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.38 -r1.39
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	14 Dec 2007 10:24:51 -0000	1.38
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	28 Feb 2008 09:05:41 -0000	1.39
@@ -1,5 +1,5 @@
 ad_library {
-    XoWiki - Notification procs
+    XoWiki - Callback procs
 
     @creation-date 2006-08-08
     @author Gustaf Neumann
@@ -470,6 +470,14 @@
     return $result
   }
 
+  proc unmounted_instances {} {
+    return [db_list unmounted_instances {
+      select package_id from apm_packages p where not exists 
+      (select 1 from site_nodes where object_id = p.package_id) 
+      and p.package_key = 'xowiki'
+    }]
+  }
+
   proc form_upgrade {} {
     db_dml from_upgrade {
       update xowiki_form f set form = xowiki_formi.data from xowiki_formi