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 -N -r1.2 -r1.3
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	22 Aug 2003 16:15:23 -0000	1.2
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	27 Aug 2003 13:10:15 -0000	1.3
@@ -130,15 +130,19 @@
             }
         }
 
-        lappend names "autority_id"
+        if { ![exists_and_not_null context_id] } {
+            set context_id [ad_conn package_id]
+        }
 
-        db_dml insert_authority "
-            insert into auth_authorities (
-                [join $names ", "]
-            ) values (
-                :[join $names ", :"]
-            )
-        "
+        if { ![exists_and_not_null creation_user] } {
+            set creation_user [ad_conn user_id]
+        }
+
+        if { ![exists_and_not_null creation_ip] } {
+            set creation_ip [ad_conn peeraddr]
+        }
+
+        set authority_id [db_exec_plsql create_authority {}]
     }
 
     return $authority_id
@@ -261,3 +265,10 @@
     "
 }
 
+ad_proc -public auth::authority::delete {
+    {-authority_id:required}
+} {
+    Delete an authority.
+} {
+    db_exec_plsql delete_authority {}
+}