Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.144 -r1.145
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	7 Jun 2002 04:47:38 -0000	1.144
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Jun 2002 04:35:59 -0000	1.145
@@ -1277,6 +1277,15 @@
         return [db_string select_community_description {} -default ""]
     }
 
+    ad_proc -public set_community_description {
+        {-community_id:required}
+        {-description:required}
+    } {
+        update the description for a community
+    } {
+        db_dml update_community_description {}
+    }
+
     ad_proc -public get_community_key {
         {-community_id:required}
     } {
@@ -1879,6 +1888,10 @@
         return [db_list_of_lists select_available_attributes {}]
     }
 
+    ad_proc -private get_available_attributes_flush {} {
+        util_memoize_flush {dotlrn_community::get_available_attributes_not_cached}
+    }
+
     ad_proc -public get_attributes {
         {-community_id ""}
     } {
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.71 -r1.72
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Jun 2002 05:10:15 -0000	1.71
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	13 Jun 2002 04:35:59 -0000	1.72
@@ -346,6 +346,14 @@
             where community_id = :community_id
         </querytext>
     </fullquery>
+ 
+    <fullquery name="dotlrn_community::set_community_description.update_community_description">
+        <querytext>
+            update dotlrn_communities
+            set description = :description
+            where community_id = :community_id
+        </querytext>
+    </fullquery>
 
     <fullquery name="dotlrn_community::get_community_key.select_community_key">
         <querytext>