Index: openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/map-characters.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	6 Jan 2004 14:56:42 -0000	1.8
+++ openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	7 Jan 2004 16:27:35 -0000	1.9
@@ -8,11 +8,16 @@
     workflow_id:integer
 }
 
-# TODO: Permission check?
-# TODO: add new character
-set page_title "Assign Roles to Characters"
+# TODO: Permission check
+# TODO: ability to add new character inline while mapping
+
+set page_title "Assign Characters to Roles"
 set context [list [list "." "SimInst"] $page_title]
 
+
+simulation::template::get -workflow_id $workflow_id -array sim_array
+set description $sim_array(description)
+
 ad_form \
     -name characters \
     -edit_buttons { { Map ok } } \
@@ -32,7 +37,8 @@
         [list [list role_${role_id}:text(select) \
                    [list label \$role_pretty_name_$role_id] \
                    [list options $character_options]
-              ]]
+
+         ]]
 }