Index: openacs-4/packages/dotlrn/www/admin/archived-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/archived-communities.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/archived-communities.tcl	29 Jun 2004 10:18:04 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/archived-communities.tcl	13 Jan 2005 13:57:21 -0000	1.6
@@ -26,11 +26,18 @@
     archived_comms:multirow
 }
 
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin 
+
 set groups_pretty_plural "[parameter::get -localize -parameter class_instances_pretty_plural] / [parameter::get -localize -parameter clubs_pretty_plural]"
 
 set title "[_ dotlrn.archived_groups]"
 set context_bar [list $title]
 
-db_multirow archived_comms select_archived_comms {}
+db_multirow -extend { unarchive_url } archived_comms select_archived_comms {} {
+    set description [ad_quotehtml $description]
+    set unarchive_url "unarchive?community_id=$community_id"
+}
 
+
 ad_return_template