Index: openacs-4/packages/simulation/lib/sim-objects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-objects.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simulation/lib/sim-objects.tcl	18 Nov 2003 13:31:31 -0000	1.4
+++ openacs-4/packages/simulation/lib/sim-objects.tcl	18 Nov 2003 14:22:55 -0000	1.5
@@ -10,7 +10,7 @@
         default_value display
     }
     size {
-        allowed_values {short long}
+        allowed_values {short long yellow-pages}
         default_value long
     }
 }
@@ -68,6 +68,12 @@
     }]
 }
 
+if { $size == "yellow-pages"} {
+    set filter_sql "and content_type = 'sim_character' or content_type = 'sim_location'"
+} else {
+    set filter_sql ""
+}
+
 template::list::create \
     -name objects \
     -multirow objects \
@@ -90,11 +96,12 @@
     and    i.parent_id = f.folder_id
     and    r.revision_id = i.live_revision
     and    ot.object_type = i.content_type
+           $filter_sql
     [template::list::orderby_clause -orderby -name "objects"]
 " {
     set description [string_truncate -len 200 $description]
-    set edit_url [export_vars -base "object-edit" { item_id }]
-    set delete_url [export_vars -base "object-delete" { item_id }]
+    set edit_url [export_vars -base "[apm_package_url_from_id $package_id]citybuild/object-edit" { item_id }]
+    set delete_url [export_vars -base "[apm_package_url_from_id $package_id]citybuild/object-delete" { item_id }]
 
     switch -glob $mime_type {
         text/* - {} {
@@ -106,4 +113,4 @@
     }
 }
 
-set create_object_url [export_vars -base object-edit { parent_id }]
+set create_object_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/object-edit" { parent_id }]