Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	10 Sep 2003 09:09:47 -0000	1.11
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	11 Sep 2003 09:20:37 -0000	1.12
@@ -115,6 +115,13 @@
             set creation_ip [ad_conn peeraddr]
         }
 
+        # Auto generate short name if not provided
+        if { [empty_string_p $short_name] } {
+            set short_name [string tolower $pretty_name]
+            regsub -all {\s|-} $short_name {_} short_name
+            set short_name [string_truncate -len 255 $short_name]
+        }
+
         set authority_id [db_exec_plsql create_authority {}]
 
         # Set the arguments not taken by the new function with an update statement
@@ -372,6 +379,7 @@
         short_name ""
         pretty_name ""
         help_contact_text ""
+        help_contact_text_format "text/enhanced"
         enabled_p "f"
         sort_order ""
         auth_impl_id ""