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.3 -r1.4
--- openacs-4/packages/simulation/www/object-list.tcl	17 Oct 2003 09:22:55 -0000	1.3
+++ openacs-4/packages/simulation/www/object-list.tcl	17 Oct 2003 09:55:54 -0000	1.4
@@ -20,8 +20,9 @@
     -elements {
         edit {
             sub_class narrow
+            link_url_col edit_url
             display_template {
-                <a href="@objects.edit_url@"><img src="/resources/acs-subsite/Edit16.gif" height="16" width="16" border="0" alt="Edit"></a>
+                <img src="/resources/acs-subsite/Edit16.gif" height="16" width="16" border="0" alt="Edit">
             }
         }
         object_type_pretty {
@@ -37,12 +38,19 @@
 	    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 } objects select_objects "
+db_multirow -extend { edit_url view_url delete_url } objects select_objects "
     select i.item_id,
            i.name,
            r.title,
@@ -62,6 +70,7 @@
     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 }]
 }
 
 set sim_types { sim_character sim_prop sim_home }