Index: openacs-4/contrib/packages/simulation/www/object-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/object-list.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/contrib/packages/simulation/www/object-list.tcl	11 Nov 2003 15:32:46 -0000	1.11
+++ openacs-4/contrib/packages/simulation/www/object-list.tcl	12 Nov 2003 15:24:03 -0000	1.12
@@ -13,80 +13,6 @@
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
-if { ![exists_and_not_null parent_id] } {
-    set parent_id [bcms::folder::get_id_by_package_id -parent_id 0]
-}
-
-template::list::create \
-    -name objects \
-    -multirow objects \
-    -elements {
-        edit {
-            sub_class narrow
-            link_url_col edit_url
-            display_template {
-                <img src="/resources/acs-subsite/Edit16.gif" height="16" width="16" border="0" alt="Edit">
-            }
-        }
-        object_type_pretty {
-            label "Type"
-	    orderby upper(ot.pretty_name)
-        }
-	title { 
-	    label "Name"
-	    orderby r.title
-            link_url_col view_url
-	}
-	description {
-	    label "Description"
-	    orderby r.description
-	}
-        delete {
-            sub_class narrow
-            link_url_col delete_url
-            display_template {
-                <img src="/resources/acs-subsite/Delete16.gif" height="16" width="16" border="0" alt="Edit">
-            }
-        }
-    }
-
-
-set package_id [ad_conn package_id]
-
-db_multirow -extend { edit_url view_url delete_url } objects select_objects "
-    select i.item_id,
-           i.name,
-           r.title,
-           r.description,
-           r.mime_type,
-           i.content_type,
-           ot.pretty_name as object_type_pretty
-    from   cr_folders f,
-           cr_items i,
-           cr_revisions r,
-           acs_object_types ot
-    where  f.package_id = :package_id
-    and    i.parent_id = f.folder_id
-    and    r.revision_id = i.live_revision
-    and    ot.object_type = i.content_type
-    [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 }]
-
-    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 }]
-
 set notification_widget [notification::display::request_widget \
                              -type [simulation::notification::xml_map::type_short_name] \
                              -object_id [ad_conn package_id] \