Index: openacs-4/packages/simulation/www/siminst/map-characters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-characters.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/siminst/map-characters.tcl	27 Nov 2003 16:43:36 -0000	1.1
+++ openacs-4/packages/simulation/www/siminst/map-characters.tcl	28 Nov 2003 09:32:26 -0000	1.2
@@ -10,3 +10,15 @@
 
 set page_title "Map to Characters"
 set context [list [list "." "SimInst"] $page_title]
+
+# Loop over all workflow roles and add a character select widget for each
+# set form [list]
+# set character_options [simulation::get_object_options -content_type sim_character]
+# foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
+#     lappend form [list role_${role_id}:text(select) \
+#                       [list label [workflow::get_element -role_id $role_id -element pretty_name]] \
+#                       [list options $character_options]
+#                  ]
+# }
+
+# ad_form -name characters -form $form