Index: openacs-4/contrib/packages/simulation/www/simplay/enroll.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/enroll.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/simulation/www/simplay/enroll.tcl	19 Jan 2004 17:10:32 -0000	1.5
+++ openacs-4/contrib/packages/simulation/www/simplay/enroll.tcl	20 Jan 2004 14:11:21 -0000	1.6
@@ -43,8 +43,13 @@
 }
 
 # The user is allowed to enroll, so enroll him
-set simulation_edit(enrolled) $user_id
-simulation::template::edit -workflow_id $workflow_id -array simulation_edit
+# Not using edit proc here as it deletes currently enrolled users
+db_dml enroll_user {
+    insert into sim_party_sim_map
+      (simulation_id, party_id, type)
+    values
+      (:workflow_id, :user_id, 'enrolled')
+}
 
 # If there are casting decisions open to the user, redirect to the casting page (casting_type group or open)
 if { [string equal $simulation(casting_type) "auto"] } {