- implementing SLA management

tcl/intranet-helpdesk-procs.tcl

@@ -20,7 +20,8 @@ ad_proc -public im_ticket_status_closed {} { return 30001 }
 ad_proc -public im_ticket_status_internal_review {} { return 30010 }
 ad_proc -public im_ticket_status_assigned {} { return 30011 }
 ad_proc -public im_ticket_status_customer_review {} { return 30012 }
-
+ad_proc -public im_ticket_status_waiting_for_other {} { return 30026 }
+ad_proc -public im_ticket_status_frozen {} { return 30028 }
 ad_proc -public im_ticket_status_duplicate {} { return 30090 }
 ad_proc -public im_ticket_status_invalid {} { return 30091 }
 ad_proc -public im_ticket_status_outdated {} { return 30092 }

www/action.tcl

@@ -128,8 +128,11 @@ switch $action_id {
 	    set redirect_base_url [db_string redir "select aux_string1 from im_categories where category_id = :action_id" -default ""]
 	    if {"" != [string trim $redirect_base_url]} {
 		# Redirect for custom action
-		set redirect_url [export_vars -base $redirect_base_url {action_id}]
+		set redirect_url [export_vars -base $redirect_base_url {action_id return_url}]
 		foreach ticket_id $tid { append redirect_url "&tid=$ticket_id"}
+
+#		ad_return_complaint 1 $redirect_url
+
 		ad_returnredirect $redirect_url
 	    } else {
 		ad_return_complaint 1 "Unknown Ticket action: $action_id='[im_category_from_id $action_id]'"