Index: openacs-4/packages/simulation/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/www/index.tcl	3 Nov 2003 14:13:43 -0000	1.5
+++ openacs-4/packages/simulation/www/index.tcl	11 Nov 2003 15:32:46 -0000	1.6
@@ -60,10 +60,20 @@
 #---------------------------------------------------------------------
 # object_count list
 #---------------------------------------------------------------------
+if { ![exists_and_not_null parent_id] } {
+    set parent_id [bcms::folder::get_id_by_package_id -parent_id 0]
+}
 
+set action_list [list "Add an Object" [export_vars -base object-edit { parent_id }] ]
+
+#error "
+#object_add_url: $object_add_url
+#add_action: $add_action"
+
 template::list::create \
     -name object_count \
     -multirow object_count \
+    -actions $action_list \
     -html {width "100%"} \
     -elements {
         type {
@@ -88,6 +98,8 @@
            count(content_type) as count
       from cr_items
      where content_type like 'sim_%'
+        or content_type like 'image'
+        or content_type like 'stylesheet'
      group by content_type
 " {
     set view_url [export_vars -base "object-list" { type }]