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.16 -r1.17
--- openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	11 Mar 2004 12:13:40 -0000	1.16
+++ openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	12 Mar 2004 14:02:31 -0000	1.17
@@ -8,6 +8,7 @@
     workflow_id:integer
 }
 
+set user_id [ad_conn user_id]
 permission::require_write_permission -object_id $workflow_id
 
 set page_title "Assign Characters to Roles"
@@ -25,12 +26,15 @@
         }
     }
 
-# Only show characters in the yellow pages
+# Only show characters in the yellow pages and characters that admin has created
+# himself
 set character_options [db_list_of_lists character_options {
     select sc.title,
            sc.item_id
-    from   sim_charactersx sc
-    where  sc.in_directory_p = 't'
+    from   sim_charactersx sc,
+           acs_objects ao
+    where  sc.item_id = ao.object_id
+      and  (sc.in_directory_p = 't' or ao.creation_user = :user_id)
     order by sc.title
 }]