Index: openacs-4/packages/xowiki/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xowiki/www/admin/index.tcl	3 May 2006 12:03:23 -0000	1.9
+++ openacs-4/packages/xowiki/www/admin/index.tcl	26 Jul 2006 22:56:46 -0000	1.10
@@ -8,28 +8,33 @@
   object_type:optional
 }
 
+set package_id [ad_conn package_id]
+set Package    [::xowiki::Package create ::$package_id]
+$Package instvar folder_id
+
 set context [list]
 set supertype ::xowiki::Page
 set title "Administer all kind of [$supertype set pretty_plural]"
 
 set object_type_key [$supertype set object_type_key]
-set folder_id       [$supertype require_folder -name xowiki]
 set object_types    [$supertype object_types]
 
-
 TableWidget t1 -volatile \
     -actions [subst {
+      Action new -label all -url list
       Action new -label export -url export
       Action new -label import -url import
-      Action new -label permissions -url /admin/applications/permissions?package_id=[ad_conn package_id]
+      Action new -label permissions -url /admin/applications/permissions?package_id=$package_id
     }] \
     -columns {
       Field object_type -label [_ xowiki.page_type]
       AnchorField instances -label Instances -html {align center}
       ImageField_AddIcon edit -label "Add" -html {align center}
-      ImageField_DeleteIcon delete -label "Delete" -html {align center}
+      ImageField_DeleteIcon delete -label "Delete All" \
+	  -html {align center onClick "return(confirm('Delete really all?'));"}
     }
 
+set base [$Package package_url]
 db_foreach type_select \
     "select object_type from acs_object_types where 
         tree_sortkey between :object_type_key and tree_right(:object_type_key)
@@ -38,17 +43,16 @@
 	  -object_type $object_type \
 	  -instances [db_list count [$object_type instance_select_query \
 				 -folder_id $folder_id -count 1 -with_subtypes false]] \
-	  -instances.href [export_vars -base ../index {object_type}] \
-	  -edit.href   [export_vars -base ../edit {object_type folder_id}] \
+	  -instances.href [export_vars -base ./list {object_type}] \
+	  -edit.href   [export_vars -base $base {{edit-new 1} object_type}] \
 	  -delete.href [export_vars -base delete-type {object_type}] \
 	  -edit.title  [_ xotcl-core.add [list type [$object_type pretty_name]]] \
-	  -delete.title  "Delete Type [$object_type pretty_name]"
+	  -delete.title  "Delete all [$object_type pretty_plural] of this instance"
     }
 
 set t1 [t1 asHTML]
 
 # set up categories
-set package_id [ad_conn package_id]
 set category_map_url [export_vars -base \
 	  [site_node::get_package_url -package_key categories]cadmin/one-object \
 			  { { object_id $package_id } }]
\ No newline at end of file