Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-panel-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-panel-edit-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-panel-edit-2.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-panel-edit-2.tcl	19 Nov 2001 18:29:29 -0000	1.2
@@ -5,22 +5,31 @@
     @creation-date December 12, 2000
     @cvs-id $Id$
 } {
-    workflow_key
-    transition_key
-    context_key
-    sort_key
-    header
-    template_url
+    workflow_key:notnull
+    transition_key:notnull
+    {context_key "default"}
+    sort_order:notnull,integer
+    header:notnull
+    template_url:notnull
+    overrides_action_p:notnull,boolean
+    only_display_when_started_p:notnull,boolean
+    {return_url "task-panels?[export_vars -url { workflow_key transition_key context_key }]"}
+    cancel:optional
 }
 
-db_dml panel_update {
-    update wf_context_task_panels
-    set    header = :header,
-           template_url = :template_url
-    where  workflow_key = :workflow_key
-    and    transition_key = :transition_key
-    and    context_key = :context_key
-    and    sort_key = :sort_key
+if { ![info exists cancel] || [empty_string_p $cancel] } {
+
+    db_dml panel_update {
+	update wf_context_task_panels
+	set    header = :header,
+	       template_url = :template_url,
+               overrides_action_p = :overrides_action_p,
+	       only_display_when_started_p = :only_display_when_started_p
+	where  workflow_key = :workflow_key
+	and    transition_key = :transition_key
+	and    context_key = :context_key
+	and    sort_order = :sort_order
+    }   
 }
 
-ad_returnredirect "task-panels?[export_vars -url { workflow_key transition_key context_key }]"
+ad_returnredirect $return_url