Index: openacs-4/packages/acs-authentication/tcl/authority-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-authentication/tcl/authority-procs-oracle.xql	27 Aug 2003 13:10:15 -0000	1.1
+++ openacs-4/packages/acs-authentication/tcl/authority-procs-oracle.xql	29 Aug 2003 15:22:21 -0000	1.2
@@ -8,7 +8,6 @@
             begin
             :1 := authority.new(
                 authority_id => :authority_id,
-                null, -- object_type
                 short_name => :short_name,
                 pretty_name => :pretty_name,
                 enabled_p => :enabled_p,
@@ -32,7 +31,7 @@
         <querytext>
             begin
                 :1 := authority.del(
-                    authority_id => :authority_id
+                    delete_authority_id => :authority_id
                 );
             end;
         </querytext>
Index: openacs-4/packages/acs-authentication/tcl/driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/driver-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-authentication/tcl/driver-procs.tcl	27 Aug 2003 15:48:23 -0000	1.1
+++ openacs-4/packages/acs-authentication/tcl/driver-procs.tcl	29 Aug 2003 15:22:21 -0000	1.2
@@ -82,11 +82,5 @@
     @author Simon Carstensen (simon@collaboraid.biz)
     @creation-date 2003-08-27
 } {
-    db_dml set_parameter {
-        update auth_driver_params
-        set    value = :value
-        where  key = :parameter
-        and    impl_id = :impl_id
-        and    authority_id = :authority_id
-    }
+    db_dml set_parameter {} -clobs [list $value]
 }
Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/Attic/acs-authentication-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs-oracle.xql	27 Aug 2003 11:50:48 -0000	1.1
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs-oracle.xql	29 Aug 2003 15:22:21 -0000	1.2
@@ -15,7 +15,7 @@
     <fullquery name="auth::test::get_password_vars.select_vars">
         <querytext>
             select q.* from
-            (select u.user_id
+            (select u.user_id,
                     aa.authority_id,
                     u.username 
             from users u,
Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	29 Aug 2003 14:38:30 -0000	1.7
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	29 Aug 2003 15:22:21 -0000	1.8
@@ -280,7 +280,7 @@
 
     # With user info
     set url [auth::password::get_forgotten_url -authority_id $test_vars(authority_id) -username $test_vars(username)]
-    aa_true "there is a local forgotten-password page with user info" [regexp {recover-password} $url]
+    aa_true "there is a local forgotten-password page with user info ($url)" [regexp {recover-password} $url]
 
     set url [auth::password::get_forgotten_url -authority_id $test_vars(authority_id) -username $test_vars(username) -remote_only]
     aa_equals "cannot get remote url with missing forgotten_pwd_url" $url ""