Index: openacs-4/packages/simulation/www/siminst/map-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-create.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/siminst/map-create.tcl	28 Nov 2003 16:55:52 -0000	1.1
+++ openacs-4/packages/simulation/www/siminst/map-create.tcl	2 Dec 2003 13:46:54 -0000	1.2
@@ -7,12 +7,15 @@
     workflow_id:integer
 }
 
-set page_title "Create mapped template"
-set context [list [list "." "SimInst"] $page_title]
+set user_id [auth::require_login]
 
+set page_title "Create Mapped Template"
+set context [list [list "." "SimInst"] $page_title]
 set old_name [workflow::get_element -workflow_id $workflow_id -element pretty_name]
-set name_default "$old_name Mapped"
+acs_user::get -user_id $user_id -array user_array
 
+set name_default "$old_name mapped by $user_array(name)"
+
 ad_form \
     -name template \
     -export { workflow_id } \