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.4 -r1.5
--- openacs-4/packages/simulation/tcl/role-procs.tcl	18 Nov 2003 12:19:39 -0000	1.4
+++ openacs-4/packages/simulation/tcl/role-procs.tcl	28 Nov 2003 16:55:52 -0000	1.5
@@ -20,17 +20,39 @@
     @author Peter Marklund
 } {
     db_transaction {
-        # create the role
+        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]
 
+        db_dml insert_sim_role {
+            insert into sim_roles (role_id) values (:role_id)
+        }
     }    
 }
 
 ad_proc -public simulation::role::delete {
     {-role_id:required}
 } {
-    workflow::role::delete -role_id $role_id
+    db_transaction {
+        workflow::role::delete -role_id $role_id
+
+        db_dml delete_sim_role {
+            delete from sim_roles where role_id = :role_id
+        }
+    }
 }
+
+ad_proc -public simulation::role::edit {
+    {-role_id:required}
+    {-character_id:required}
+} {
+    Edit a simulation role.
+} {
+    db_dml edit_sim_role {
+        update sim_roles
+        set character_id = :character_id
+        where role_id = :role_id
+    }
+}