- Helpdesk:

  Moving slow Sencha portlets to Tickets -> Dashboard page

sql/postgresql/intranet-helpdesk-create.sql

@@ -980,7 +980,7 @@ SELECT im_menu__new (
 	'intranet-helpdesk',		-- package_name
 	'helpdesk_summary',		-- label
 	'Summary',			-- name
-	'/intranet-helpdesk/new?form_mode=display',	-- url
+	'/intranet-helpdesk/index',	-- url
 	10,				-- sort_order
 	(select menu_id from im_menus where label = 'helpdesk'),
 	null				-- p_visible_tcl

sql/postgresql/intranet-helpdesk-portlets-create.sql

@@ -500,7 +500,7 @@ SELECT im_component_plugin__new (
 	'My Tickets Aging',			-- plugin_name - shown in menu
 	'intranet-helpdesk',			-- package_name
 	'right',				-- location
-	'/intranet/index',			-- page_url
+	'/intranet-helpdesk/dashboard',		-- page_url
 	null,					-- view_name
 	40,					-- sort_order
 	'im_helpdesk_ticket_aging_diagram -diagram_limit 600 -diagram_height 450 -ticket_customer_contact_id [ad_conn user_id]',	-- component_tcl

tcl/intranet-helpdesk-procs.tcl

@@ -311,7 +311,7 @@ ad_proc -public im_ticket_permission_read_sql {
 # ---------------------------------------------------------------------
 
 ad_proc -public im_ticket_navbar { 
-    {-navbar_menu_label "tickets"}
+    {-navbar_menu_label "helpdesk"}
     default_letter 
     base_url 
     next_page_url 

www/dashboard.adp

+<master>
+<property name="doc(title)">@page_title@</property>
+<property name="main_navbar_label">helpdesk</property>
+<property name="left_navbar">@left_navbar_html;literal@</property>
+<property name="sub_navbar">@ticket_navbar_html;literal@</property>
+
+<if 0 eq @plugin_id@>
+
+	<table cellpadding="0" cellspacing="0" border="0" width="100%">
+	<tr>
+	  <td colspan="3">
+	    <%= [im_component_bay top] %>
+	  </td>
+	</tr>
+	<tr>
+	  <td valign="top" width="50%">
+	    <%= [im_component_bay left] %>
+	  </td>
+	  <td width=2>&nbsp;</td>
+	  <td valign="top" width="50%">
+	    <%= [im_component_bay right] %>
+	  </td>
+	</tr>
+	<tr>
+	  <td colspan="3">
+	    <%= [im_component_bay bottom] %>
+	  </td>
+	</tr>
+	</table>
+
+</if>
+<else>
+        <%= [im_component_page -plugin_id $plugin_id -return_url $return_url] %>
+</else>
+
+

www/dashboard.tcl

+# /packages/intranet-helpdesk/www/dashboard.tcl
+#
+# Copyright (C) 1998-2004 various parties
+# The code is based on ArsDigita ACS 3.4
+#
+# This program is free software. You can redistribute it
+# and/or modify it under the terms of the GNU General
+# Public License as published by the Free Software Foundation;
+# either version 2 of the License, or (at your option)
+# any later version. This program is distributed in the
+# hope that it will be useful, but WITHOUT ANY WARRANTY;
+# without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.
+# See the GNU General Public License for more details.
+
+ad_page_contract {
+    Ticket Dashboard
+
+    @author frank.bergmann@project-open.com
+} {
+    { plugin_id:integer 0 }
+}
+
+# ---------------------------------------------------------------
+# Security & Defaults
+# ---------------------------------------------------------------
+
+set user_id [auth::require_login]
+set subsite_id [ad_conn subsite_id]
+set current_user_id $user_id
+set page_title  [lang::message::lookup "" intranet-helpdesk.PageTitleHome "Ticket Dashboard"]
+set page_focus "im_header_form.keywords"
+set current_url [ns_conn url]
+set return_url "/intranet/"
+set header_stuff ""
+
+set user_admin_p [im_is_user_site_wide_or_intranet_admin $current_user_id]
+set today [lindex [split [ns_localsqltimestamp] " "] 0]
+
+
+
+# ---------------------------------------------------------------
+# Sub-Navbar
+# ---------------------------------------------------------------
+
+set letter ""
+set menu_select_label "helpdesk_dashboard"
+set next_page_url ""
+set previous_page_url ""
+set ticket_navbar_html [im_ticket_navbar -navbar_menu_label "helpdesk" $letter "/intranet-helpdesk/index" $next_page_url $previous_page_url [list start_idx order_by how_many letter ticket_status_id] $menu_select_label]
+
+set left_navbar_html ""
+

www/index.tcl

@@ -30,7 +30,7 @@ ad_page_contract {
     { letter:trim "" }
     { start_idx:integer 0 }
     { how_many "" }
-    { view_name "ticket_list" }
+    { view_name "" }
 }
 
 # ---------------------------------------------------------------
@@ -82,6 +82,7 @@ if { "" == $mine_p } {
 # Define the column headers and column contents that 
 # we want to show:
 #
+if {"" == $view_name || "standard" == $view_name} { set view_name "ticket_list" }
 set view_id [db_string get_view_id "select view_id from im_views where view_name=:view_name" -default 0]
 if {!$view_id } {
     ad_return_complaint 1 "<b>Unknown View Name</b>:<br> The view '$view_name' is not defined.<br> 
@@ -918,8 +919,8 @@ if {"" == $dashboard_column_html} {
 # Sub-Navbar
 # ---------------------------------------------------------------
 
-set menu_select_label ""
-set ticket_navbar_html [im_ticket_navbar $letter "/intranet-helpdesk/index" $next_page_url $previous_page_url [list start_idx order_by how_many view_name letter ticket_status_id] $menu_select_label]
+set menu_select_label "helpdesk_summary"
+set ticket_navbar_html [im_ticket_navbar -navbar_menu_label "helpdesk" $letter "/intranet-helpdesk/index" $next_page_url $previous_page_url [list start_idx order_by how_many view_name letter ticket_status_id] $menu_select_label]