Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/subsite-procs.xql,v
diff -u -r1.3.4.1 -r1.3.4.2
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	9 Mar 2003 22:56:23 -0000	1.3.4.1
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	17 Mar 2003 02:26:21 -0000	1.3.4.2
@@ -1,6 +1,18 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="subsite::after_mount.group_exists">      
+      <querytext>
+      
+	    select 1
+            from dual
+            where exists (select 1
+                          from application_groups
+                          where package_id = :package_id)
+	
+      </querytext>
+</fullquery>
+
 <fullquery name="subsite::after_mount.subsite_name_query">      
       <querytext>