Index: openacs-4/contrib/packages/simulation/www/role-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/role-edit.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/www/role-edit.tcl	29 Oct 2003 12:57:13 -0000	1.3
+++ openacs-4/contrib/packages/simulation/www/role-edit.tcl	6 Nov 2003 15:35:47 -0000	1.4
@@ -104,24 +104,12 @@
     set context [list [list "sim-template-list" "Sim Templates"] [list "sim-template-edit?workflow_id=$workflow_id" "$sim_template_array(pretty_name)"] $page_title]
 } -new_data {
 
-    db_transaction {
+    simulation::role::new \
+        -template_id $workflow_id \
+        -character_id $character_id \
+        -role_short_name $name \
+        -role_pretty_name $name
 
-        simulation::template::associate_object \
-            -template_id $workflow_id \
-            -object_id $character_id
-
-    # create the role
-    set role_id [workflow::role::new \
-                     -workflow_id $workflow_id \
-                     -short_name $name \
-                     -pretty_name $name]
-    # and then add extra data for simulation
-    db_dml set_role_character {
-        insert into sim_roles
-        values (:role_id, :character_id)
-    }
-
-}    
 } -after_submit {
     ad_returnredirect [export_vars -base "sim-template-edit" { workflow_id }]
     ad_script_abort