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.75 -r1.76
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	14 Mar 2002 06:47:58 -0000	1.75
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	14 Mar 2002 23:47:17 -0000	1.76
@@ -879,6 +879,14 @@
         return [db_string select_community_description {} -default ""]
     }
 
+    ad_proc -public get_community_key {
+        {-community_id:required}
+    } {
+        Get the key for a community
+    } {
+        return [db_string select_community_key {} -default ""]
+    }
+
     ad_proc -public not_closed_p {
         {-community_id:required}
     } {