- replace ad_parameter by im_parameter for OpenACS

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

@@ -503,7 +503,7 @@ SELECT im_component_plugin__new (
 	'/intranet/index',			-- page_url
 	null,					-- view_name
 	40,					-- sort_order
-	'im_helpdesk_ticket_aging_diagram -diagram_limit 600 -diagram_height 450 -ticket_customer_contact_id [ad_get_user_id]',	-- component_tcl
+	'im_helpdesk_ticket_aging_diagram -diagram_limit 600 -diagram_height 450 -ticket_customer_contact_id [ad_conn user_id]',	-- component_tcl
 	'lang::message::lookup "" "intranet-helpdesk.My_Tickets_Aging" "My Tickets Aging"'
 );
 
@@ -554,7 +554,7 @@ SELECT im_component_plugin__new (
 	40,					-- sort_order
 	'im_helpdesk_ticket_aging_diagram -diagram_limit 600 -diagram_height 450 ' ||
 	'-ticket_customer_contact_dept_id [db_string my_dept "select department_id ' ||
-	'from im_employees where employee_id = [ad_get_user_id]" -default ""]',	-- component_tcl
+	'from im_employees where employee_id = [ad_conn user_id]" -default ""]',	-- component_tcl
 	'lang::message::lookup "" "intranet-helpdesk.Tickets_Created_by_my_Department" "Tickets Created by my Department"'
 );
 
@@ -582,7 +582,7 @@ SELECT im_component_plugin__new (
 	40,					-- sort_order
 	'im_helpdesk_ticket_aging_diagram -diagram_limit 600 -diagram_height 450 ' ||
 	'-ticket_assignee_dept_id [db_string my_dept "select department_id ' ||
-	'from im_employees where employee_id = [ad_get_user_id]" -default ""]',	-- component_tcl
+	'from im_employees where employee_id = [ad_conn user_id]" -default ""]',	-- component_tcl
 	'lang::message::lookup "" "intranet-helpdesk.Tickets_Executed_by_my_Department" "Tickets Executed by my Department"'
 );
 
@@ -648,7 +648,7 @@ SELECT im_component_plugin__new (
 	'/intranet/index',		-- page_url
 	null,				-- view_name
 	40,				-- sort_order
-	'im_helpdesk_ticket_age_number_per_queue -ticket_customer_contact_id [ad_get_user_id]',	-- component_tcl
+	'im_helpdesk_ticket_age_number_per_queue -ticket_customer_contact_id [ad_conn user_id]',	-- component_tcl
 	'lang::message::lookup "" "intranet-helpdesk.My_Ticket_Execution" "My Tickets Execution"'
 );
 

tcl/intranet-helpdesk-procs.tcl

@@ -1846,7 +1846,7 @@ ad_proc -public im_helpdesk_inbox_pop3_import_sweeper { } {
 
 	# Send out a warning email
 	set email [parameter::get_from_package_key -package_key "intranet-helpdesk" -parameter "HelpdeskOwner" -default ""]
-	set sender_email [ad_parameter -package_id [ad_acs_kernel_id] SystemOwner "" [ad_system_owner]]
+	set sender_email [im_parameter -package_id [ad_acs_kernel_id] SystemOwner "" [ad_system_owner]]
 	set subject "Error Importing Customer Emails"
 	set message "Error executing: $cmd
 Please search for 'Error:' in the text below.

www/index.tcl

@@ -57,7 +57,7 @@ if {"all" == $mine_p && !$view_tickets_all_p} {
 }
 
 if { [empty_string_p $how_many] || $how_many < 1 } {
-    set how_many [ad_parameter -package_id [im_package_core_id] NumberResultsPerPage  "" 50]
+    set how_many [im_parameter -package_id [im_package_core_id] NumberResultsPerPage  "" 50]
 }
 set end_idx [expr $start_idx + $how_many]
 

www/new.tcl

@@ -150,7 +150,7 @@ set copy_from_ticket_name ""
 set message_html ""
 
 if {![info exists ticket_status_id] || "" == $ticket_status_id} {
-    set ticket_status_id [ad_parameter -package_id [im_package_helpdesk_id] DefaultNewTicketStatus "" [im_ticket_status_open]]
+    set ticket_status_id [im_parameter -package_id [im_package_helpdesk_id] DefaultNewTicketStatus "" [im_ticket_status_open]]
 }
 
 
@@ -261,8 +261,8 @@ if {"edit" == $form_mode && [info exists ticket_id]} {
 
 	# Write out a warning if the ticket was modified by a different
 	# user in the last 10 minutes
-	set max_lock_seconds [ad_parameter -package_id [im_package_core_id] LockMaxLockSeconds "" 600]
-	set max_lock_seconds [ad_parameter -package_id [im_package_helpdesk_id] LockMaxLockSeconds "" $max_lock_seconds]
+	set max_lock_seconds [im_parameter -package_id [im_package_core_id] LockMaxLockSeconds "" 600]
+	set max_lock_seconds [im_parameter -package_id [im_package_helpdesk_id] LockMaxLockSeconds "" $max_lock_seconds]
 	if {$lock_seconds < $max_lock_seconds && $lock_user != $current_user_id} {
 	    
 	    set msg [lang::message::lookup "" intranet-helpdesk.Ticket_Recently_Edited "This ticket was locked by %lock_user_name% %lock_minutes% minutes and %lock_seconds% seconds ago."]
@@ -1157,7 +1157,7 @@ if {0 != $render_template_id} {
     if {1 == $render_template_id} {
 	# Default Template
 
-	set template_from_param [ad_parameter -package_id [im_package_helpdesk_id] DefaultTicketTemplate "" ""]
+	set template_from_param [im_parameter -package_id [im_package_helpdesk_id] DefaultTicketTemplate "" ""]
 	if {"" == $template_from_param} {
 	    # Use the default template that comes as part of the module
 	    set template_body "default.adp"
@@ -1165,11 +1165,11 @@ if {0 != $render_template_id} {
 	} else {
 	    # Use the user's template in the template path
 	    set template_body $template_from_param
-	    set template_path [ad_parameter -package_id [im_package_invoices_id] InvoiceTemplatePathUnix "" "/tmp/templates/"]
+	    set template_path [im_parameter -package_id [im_package_invoices_id] InvoiceTemplatePathUnix "" "/tmp/templates/"]
 	}
     } else {
 	set template_body [im_category_from_id $render_template_id]
-	set template_path [ad_parameter -package_id [im_package_invoices_id] InvoiceTemplatePathUnix "" "/tmp/templates/"]
+	set template_path [im_parameter -package_id [im_package_invoices_id] InvoiceTemplatePathUnix "" "/tmp/templates/"]
     }
 
     if {"" == $template_body} {

www/notify-stakeholders.tcl

@@ -29,7 +29,7 @@ set page_title [lang::message::lookup "" intranet-helpdesk.Notify_Stakeholders "
 set context_bar [im_context_bar $page_title]
 
 # Get the SystemUrl without trailing "/"
-set system_url [ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]
+set system_url [im_parameter -package_id [ad_acs_kernel_id] SystemURL ""]
 set sysurl_len [string length $system_url]
 set last_char [string range $system_url [expr $sysurl_len-1] $sysurl_len]
 if {[string equal "/" $last_char]} {

www/ticket-select.tcl

@@ -53,7 +53,7 @@ if {"all" == $mine_p && !$view_tickets_all_p} {
 }
 
 if { [empty_string_p $how_many] || $how_many < 1 } {
-    set how_many [ad_parameter -package_id [im_package_core_id] NumberResultsPerPage  "" 50]
+    set how_many [im_parameter -package_id [im_package_core_id] NumberResultsPerPage  "" 50]
 }
 set end_idx [expr $start_idx + $how_many]