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.18 -r1.19
--- openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	20 Apr 2004 21:12:26 -0000	1.18
+++ openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	29 Jun 2004 10:17:34 -0000	1.19
@@ -32,9 +32,12 @@
     select sc.title,
            sc.item_id
     from   sim_charactersx sc,
+           cr_items ci,
            acs_objects ao
     where  sc.item_id = ao.object_id
-      and  (sc.in_directory_p = 't' or ao.creation_user = :user_id)
+    and    ci.item_id = sc.item_id 
+    and    ci.live_revision = sc.object_id
+    and    (sc.in_directory_p = 't' or ao.creation_user = :user_id)
     order by sc.title
 }]