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.6 -r1.7
--- openacs-4/packages/simulation/tcl/role-procs.tcl	10 Dec 2003 16:06:46 -0000	1.6
+++ openacs-4/packages/simulation/tcl/role-procs.tcl	12 Dec 2003 12:21:39 -0000	1.7
@@ -51,7 +51,22 @@
 } {
     db_dml edit_sim_role {
         update sim_roles
-        set character_id = :character_id
-        where role_id = :role_id
+        set    character_id = :character_id
+        where  role_id = :role_id
     }
 }
+
+ad_proc -public simulation::role::get {
+    {-role_id:required}
+    {-array:required}
+} {
+    Get information about a simulation role
+} {
+    upvar 1 $array row
+    db_1row select_sim_role {
+        select role_id,
+               character_id
+        from   sim_roles
+        where  role_id = :role_id
+    } -column_array row
+}