Index: openacs-4/packages/simulation/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/Attic/role-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/tcl/role-procs.tcl	28 Nov 2003 16:55:52 -0000	1.5
+++ openacs-4/packages/simulation/tcl/role-procs.tcl	10 Dec 2003 16:06:46 -0000	1.6
@@ -10,8 +10,8 @@
 
 ad_proc -public simulation::role::new {
     {-template_id:required}
-    {-role_short_name:required}
-    {-role_pretty_name:required}
+    {-short_name {}}
+    {-pretty_name:required}
 } {
     Create a new simulation role for a given simulation template. 
     Will map the character to the template if this
@@ -20,11 +20,10 @@
     @author Peter Marklund
 } {
     db_transaction {
-        set role_short_name [util_text_to_url -replacement "_" $role_short_name]
         set role_id [workflow::role::new \
                          -workflow_id $template_id \
-                         -short_name $role_short_name \
-                         -pretty_name $role_pretty_name]
+                         -short_name $short_name \
+                         -pretty_name $pretty_name]
 
         db_dml insert_sim_role {
             insert into sim_roles (role_id) values (:role_id)