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.18 -r1.19
--- openacs-4/packages/xowiki/www/admin/index.tcl	29 Jul 2007 14:36:47 -0000	1.18
+++ openacs-4/packages/xowiki/www/admin/index.tcl	2 Aug 2007 12:09:14 -0000	1.19
@@ -37,12 +37,12 @@
 set base [::$package_id package_url]
 foreach object_type $object_types {
   set return_url [export_vars -base ${base}admin {object_type}]
+  set add_title ""
+  set add_href ""
   if {[catch {set n [db_list count [$object_type instance_select_query \
                                        -folder_id [::$package_id set folder_id] \
                                        -count 1 -with_subtypes false]]}]} {
     set n -
-    set add_title ""
-    set add_href ""
     set delete_title "Delete all such items of this instance"
   } else {
     set add_title [_ xotcl-core.add [list type [$object_type pretty_name]]]