Index: openacs-4/packages/simulation/www/object-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/object-list.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/simulation/www/object-list.tcl	27 Oct 2003 07:31:55 -0000	1.7
+++ openacs-4/packages/simulation/www/object-list.tcl	29 Oct 2003 18:48:09 -0000	1.8
@@ -56,6 +56,7 @@
            i.name,
            r.title,
            r.description,
+           r.mime_type,
            i.content_type,
            ot.pretty_name as object_type_pretty
     from   cr_folders f,
@@ -70,15 +71,16 @@
 " {
     set description [string_truncate -len 200 $description]
     set edit_url [export_vars -base "object-edit" { item_id }]
-    set view_url [export_vars -base "object/$name"]
     set delete_url [export_vars -base "object-delete" { item_id }]
-}
 
-multirow create object_types create_url label
-
-foreach elm [simulation::object_type::get_options] {
-    foreach { pretty_name content_type } $elm {}
-    multirow append object_types \
-        [export_vars -base object-edit { content_type parent_id }] \
-        "Create new $pretty_name"
+    switch -glob $mime_type {
+        text/* {
+            set view_url [export_vars -base "object/$name"]
+        }
+        default {
+            set view_url [export_vars -base "object-content/$name"]
+        }
+    }
 }
+
+set create_object_url [export_vars -base object-edit { parent_id }]