Index: openacs-4/packages/simulation/lib/sim-template-tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-template-tasks.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/simulation/lib/sim-template-tasks.tcl 15 Mar 2004 10:31:20 -0000 1.40
+++ openacs-4/packages/simulation/lib/sim-template-tasks.tcl 15 Mar 2004 17:22:18 -0000 1.41
@@ -68,6 +68,14 @@
}
}
+lappend elements copy {
+ hide_p {[ad_decode $display_mode edit 0 1]}
+ sub_class narrow
+ link_url_col copy_url
+ display_template {
+
+ }
+}
lappend elements name {
label "
Name"
@@ -159,7 +167,7 @@
#-------------------------------------------------------------
set extend [list]
-lappend extend edit_url view_url delete_url assigned_role_edit_url up_url down_url add_child_action_url
+lappend extend edit_url view_url delete_url assigned_role_edit_url up_url down_url add_child_action_url copy_url
foreach state_id $states {
lappend extend state_$state_id
@@ -216,6 +224,7 @@
set view_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" -anchor tasks { action_id {return_url "[ad_return_url]\#tasks"}}]
set delete_url \
[export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-delete" { action_id {return_url "[ad_return_url]\#tasks"} }]
+ set copy_url [export_vars -base task-copy { action_id {return_url "[ad_return_url]\#tasks"} }]
set assigned_role_edit_url \
[export_vars -base "[apm_package_url_from_id $package_id]simbuild/role-edit" { { role_id $assigned_role } }]