Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.84 -r1.85
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	3 Sep 2007 21:07:53 -0000	1.84
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	4 Sep 2007 11:31:20 -0000	1.85
@@ -10,6 +10,7 @@
 
   ::xo::PackageMgr create Package \
       -superclass ::xo::Package \
+      -package_key xowiki \
       -parameter {{folder_id "[::xo::cc query_parameter folder_id 0]"}}
 
   Package ad_proc instantiate_page_from_id {
@@ -42,19 +43,6 @@
     return $page
   }
 
-  Package ad_proc instances {{-include_unmounted false}} {
-    @return list of package_ids of xowiki instances
-  } {
-    if {$include_unmounted} {
-      return [db_list [my qn get_xowiki_packages] {select package_id \
-        from apm_packages where package_key = 'xowiki'}]
-    } else {
-      return [db_list [my qn get_mounted_packages] {select package_id \
-        from apm_packages p, site_nodes s  \
-        where package_key = 'xowiki' and s.object_id = p.package_id}]
-    }
-  }
-
   Package ad_proc get_url_from_id {{-item_id 0} {-revision_id 0}} {
     Get the full URL from a page in situations, where the context is not set up.
     @see instantiate_page_from_id