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.56 -r1.57
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	6 May 2002 23:55:02 -0000	1.56
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	14 May 2002 19:27:54 -0000	1.57
@@ -390,6 +390,18 @@
       </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::archive.update_archive_p">
+      <querytext>
+        update dotlrn_communities set archive_p = 't' where community_id = :community_id
+      </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_community::unarchive.update_archive_p">
+      <querytext>
+        update dotlrn_communities set archive_p = 'f' where community_id = :community_id
+      </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn_community::get_portal_id_not_cached.select_portal_id">
         <querytext>
             select portal_id