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.12 -r1.13
--- openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	12 Jan 2004 09:23:10 -0000	1.12
+++ openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	12 Jan 2004 11:35:33 -0000	1.13
@@ -8,8 +8,7 @@
     workflow_id:integer
 }
 
-# TODO: Permission check
-# TODO: ability to add new character inline while mapping
+permission::require_write_permission -object_id $workflow_id
 
 set page_title "Assign Characters to Roles"
 set context [list [list "." "SimInst"] $page_title]