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.86 -r1.87
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 28 Jul 2004 07:21:05 -0000 1.86
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 13 Jan 2005 13:57:20 -0000 1.87
@@ -468,6 +468,12 @@
+
+
+ update dotlrn_communities_all set archived_p = 'f' where community_id = :community_id
+
+
+
select portal_id