Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Feb 2002 19:43:11 -0000	1.27
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	20 Feb 2002 20:22:47 -0000	1.28
@@ -323,8 +323,19 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="dotlrn_community::applet_active_p.select_active_applet_p">
+    <querytext>
+      select 1 
+      from dotlrn_community_applets dca,
+           dotlrn_applets da
+      where community_id = :community_id
+      and da.applet_key = :applet_key
+      and active_p = 't'
+      and dca.applet_id = da.applet_id
+      and status = 'active'
+    </querytext>
+  </fullquery>
 
-
   <fullquery name="dotlrn_community::is_supertype.is_supertype">
     <querytext>
       select count(*)