Index: openacs-4/contrib/packages/simulation/www/simbuild/task-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/task-edit.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/contrib/packages/simulation/www/simbuild/task-edit.tcl	8 Jan 2004 16:02:01 -0000	1.20
+++ openacs-4/contrib/packages/simulation/www/simbuild/task-edit.tcl	9 Jan 2004 09:37:50 -0000	1.21
@@ -88,11 +88,11 @@
         {action_id:key}
         {pretty_name:text
             {label "Task Name"}
-            {html {size 20}}
+            {html {size 50}}
         }
         {pretty_past_tense:text,optional
             {label "Task name in log"}
-            {html {size 20}}
+            {html {size 50}}
             {help_text "What the task will appear like in the case log. Usually the past tense of the task name, e.g. 'Close' becomes 'Closed'."}
         }
         {task_type:text(radio)
Index: openacs-4/contrib/packages/simulation/www/simbuild/template-clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/template-clone.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/simulation/www/simbuild/template-clone.tcl	11 Dec 2003 15:50:51 -0000	1.5
+++ openacs-4/contrib/packages/simulation/www/simbuild/template-clone.tcl	9 Jan 2004 09:37:50 -0000	1.6
@@ -22,6 +22,15 @@
 } -on_request {
 
 } -on_submit {
+    set unique_p [simulation::template::pretty_name_unique_p \
+                      -package_id [ad_conn package_id] \
+                      -pretty_name $pretty_name]
+    
+    if { !$unique_p } {
+        form set_error clone pretty_name "This name is already used by another simulation"
+        break
+    }
+
     set new_workflow_array(pretty_name) $pretty_name
     set new_workflow_array(short_name) {}
     set new_workflow_array(sim_type) {dev_template}
Index: openacs-4/contrib/packages/simulation/www/simbuild/template-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/template-edit.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/contrib/packages/simulation/www/simbuild/template-edit.tcl	8 Jan 2004 12:34:28 -0000	1.17
+++ openacs-4/contrib/packages/simulation/www/simbuild/template-edit.tcl	9 Jan 2004 09:37:50 -0000	1.18
@@ -103,6 +103,15 @@
     permission::require_permission -object_id $package_id -privilege sim_template_create
     
 } -on_submit {
+    set unique_p [simulation::template::pretty_name_unique_p \
+                      -package_id [ad_conn package_id] \
+                      -pretty_name $pretty_name]
+    
+    if { !$unique_p } {
+        form set_error sim_template pretty_name "This name is already used by another simulation"
+        break
+    }
+
     set description_mime_type [template::util::richtext::get_property format $description]
     set description [template::util::richtext::get_property contents $description]
 } -new_data {
Index: openacs-4/packages/simulation/www/simbuild/task-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/task-edit.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/simulation/www/simbuild/task-edit.tcl	8 Jan 2004 16:02:01 -0000	1.20
+++ openacs-4/packages/simulation/www/simbuild/task-edit.tcl	9 Jan 2004 09:37:50 -0000	1.21
@@ -88,11 +88,11 @@
         {action_id:key}
         {pretty_name:text
             {label "Task Name"}
-            {html {size 20}}
+            {html {size 50}}
         }
         {pretty_past_tense:text,optional
             {label "Task name in log"}
-            {html {size 20}}
+            {html {size 50}}
             {help_text "What the task will appear like in the case log. Usually the past tense of the task name, e.g. 'Close' becomes 'Closed'."}
         }
         {task_type:text(radio)
Index: openacs-4/packages/simulation/www/simbuild/template-clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/template-clone.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/www/simbuild/template-clone.tcl	11 Dec 2003 15:50:51 -0000	1.5
+++ openacs-4/packages/simulation/www/simbuild/template-clone.tcl	9 Jan 2004 09:37:50 -0000	1.6
@@ -22,6 +22,15 @@
 } -on_request {
 
 } -on_submit {
+    set unique_p [simulation::template::pretty_name_unique_p \
+                      -package_id [ad_conn package_id] \
+                      -pretty_name $pretty_name]
+    
+    if { !$unique_p } {
+        form set_error clone pretty_name "This name is already used by another simulation"
+        break
+    }
+
     set new_workflow_array(pretty_name) $pretty_name
     set new_workflow_array(short_name) {}
     set new_workflow_array(sim_type) {dev_template}
Index: openacs-4/packages/simulation/www/simbuild/template-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/template-edit.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/simulation/www/simbuild/template-edit.tcl	8 Jan 2004 12:34:28 -0000	1.17
+++ openacs-4/packages/simulation/www/simbuild/template-edit.tcl	9 Jan 2004 09:37:50 -0000	1.18
@@ -103,6 +103,15 @@
     permission::require_permission -object_id $package_id -privilege sim_template_create
     
 } -on_submit {
+    set unique_p [simulation::template::pretty_name_unique_p \
+                      -package_id [ad_conn package_id] \
+                      -pretty_name $pretty_name]
+    
+    if { !$unique_p } {
+        form set_error sim_template pretty_name "This name is already used by another simulation"
+        break
+    }
+
     set description_mime_type [template::util::richtext::get_property format $description]
     set description [template::util::richtext::get_property contents $description]
 } -new_data {