Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	29 Dec 2006 11:08:19 -0000	1.7
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	1 Jan 2007 11:07:09 -0000	1.8
@@ -272,16 +272,19 @@
       catch {db_1row create_att {select content_type__create_attribute(
           :object_type,:attribute_name,:datatype,
           :pretty_name,null,null,null,:sqltype)}}
-      db_dml create_index "create index xowiki_page_page_order_idx \
-	on xowiki_page using gist (page_order)"
-      foreach type [db_list get_xowiki_types \
-                        "select object_type from acs_object_types \
-				where supertype like '::xowiki::%'"] {
-        db_1row refresh "select content_type__refresh_view('$type') from dual"
-      }
-      return 1
+      catch {db_dml create_index "create index xowiki_page_page_order_idx \
+	  on xowiki_page using gist (page_order)"}
+      set result 1
+    } else {
+      set result 0
     }
-    return 0
+    set updates [db_list_of_lists get_xowiki_types \
+                     "select object_type,\
+                               content_type__refresh_view(object_type)
+                      from acs_object_types \
+		      where object_type like '::xowiki::%' \
+                      order by tree_sortkey "]
+    return $result
   }
 
 }
\ No newline at end of file