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.57 -r1.58
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 14 May 2002 19:27:54 -0000 1.57
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 14 May 2002 21:42:15 -0000 1.58
@@ -50,10 +50,10 @@
- select 1
- from dotlrn_communities
+ select count(*)
+ from dotlrn_communities_all
where :parent_community_id in (select dc.parent_community_id
- from dotlrn_communities dc
+ from dotlrn_communities_all dc
where dc.community_key = :community_key)
@@ -392,13 +392,13 @@
- update dotlrn_communities set archive_p = 't' where community_id = :community_id
+ update dotlrn_communities set archived_p = 't' where community_id = :community_id
- update dotlrn_communities set archive_p = 'f' where community_id = :community_id
+ update dotlrn_communities set archived_p = 'f' where community_id = :community_id