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.179 -r1.180
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Oct 2003 14:09:22 -0000	1.179
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Oct 2003 22:06:37 -0000	1.180
@@ -1062,6 +1062,22 @@
         }
     }
 
+    ad_proc -public generate_key {
+        {-name:required}
+    } {
+        Generate a key from a name. Compresses all adjacent non-alphanum
+        chars to a dash. Yes, this is not unique, grows rapidly, will
+        need collision detection and resolution, yada yada.
+    } {
+        set existing [db_list existing_community_keys {}]
+
+        return [util_text_to_url \
+                    -replacement {} \
+                    -existing_urls [concat $existing { members configure spam index not-allowed clone help }] \
+                    -- $name]
+    }
+
+
     ad_proc -public check_community_key_valid_p {
         {-community_key:required}
         {-parent_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.80 -r1.81
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	29 May 2003 18:05:01 -0000	1.80
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	21 Oct 2003 22:06:37 -0000	1.81
@@ -40,6 +40,13 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::generate_key.existing_community_keys">
+        <querytext>
+            select community_key 
+            from   dotlrn_communities_all
+        </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn_community::check_community_key_valid_p.collision_check_with_parent">
         <querytext>
             select count(*)