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 -N -r1.17 -r1.18
--- openacs-4/packages/xowiki/www/admin/index.tcl	29 Jul 2007 14:33:14 -0000	1.17
+++ openacs-4/packages/xowiki/www/admin/index.tcl	29 Jul 2007 14:36:47 -0000	1.18
@@ -41,20 +41,22 @@
                                        -folder_id [::$package_id set folder_id] \
                                        -count 1 -with_subtypes false]]}]} {
     set n -
-    set add_label ""
+    set add_title ""
     set add_href ""
+    set delete_title "Delete all such items of this instance"
   } else {
-    set add_label [_ xotcl-core.add [list type [$object_type pretty_name]]]
+    set add_title [_ xotcl-core.add [list type [$object_type pretty_name]]]
     set add_href  [$package_id make_link $package_id edit-new object_type return_url autoname]
+    set delete_title "Delete all [$object_type pretty_plural] of this instance"
   }
   t1 add \
-      -object_type $object_type \
-      -instances $n \
+      -object_type  $object_type \
+      -instances    $n \
       -instances.href [export_vars -base ./list {object_type}] \
-      -edit.href   $add_href \
-      -delete.href [export_vars -base delete-type {object_type}] \
-      -edit.title  $add_label \
-      -delete.title  "Delete all [$object_type pretty_plural] of this instance"
+      -edit.href    $add_href \
+      -delete.href  [export_vars -base delete-type {object_type}] \
+      -edit.title   $add_title \
+      -delete.title $delete_title
 }
 
 set t1 [t1 asHTML]