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.14 -r1.15
--- openacs-4/packages/simulation/www/siminst/map-characters.tcl	14 Jan 2004 15:10:54 -0000	1.14
+++ openacs-4/packages/simulation/www/siminst/map-characters.tcl	22 Jan 2004 14:08:39 -0000	1.15
@@ -25,7 +25,14 @@
         }
     }
 
-set character_options [simulation::object::get_object_type_options -null_label "" -object_type sim_character]
+# Only show characters in the yellow pages
+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'
+    order by sc.title
+}]
 
 # Loop over all workflow roles and add a character select widget for each
 foreach role_id [workflow::get_roles -workflow_id $workflow_id] {