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 -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 @@
+
+
+ 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'
+
+
-
select count(*)