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.4 -r1.5
--- openacs-4/packages/acs-authentication/tcl/driver-procs.tcl	16 Sep 2003 13:07:42 -0000	1.4
+++ openacs-4/packages/acs-authentication/tcl/driver-procs.tcl	17 Sep 2003 12:02:09 -0000	1.5
@@ -25,10 +25,14 @@
     @author Simon Carstensen (simon@collaboraid.biz)
     @creation-date 2003-08-27
 } {
-    return [acs_sc::invoke \
-                -error \
-                -impl_id $impl_id \
-                -operation GetParameters]
+    set parameters {}
+    with_catch errmsg {
+        set parameters [acs_sc::invoke \
+                            -error \
+                            -impl_id $impl_id \
+                            -operation GetParameters]
+    } {}
+    return $parameters
 }
 
 ad_proc -public auth::driver::get_parameter_values {
@@ -84,3 +88,18 @@
         db_dml insert_parameter {} -clobs [list $value]
     }
 }
+
+ad_proc -public auth::driver::GetParameters { 
+    {-impl_id:required}
+} {
+    Returns a list of names of parameters for the driver
+
+    @author Simon Carstensen (simon@collaboraid.biz)
+    @creation-date 2003-08-27
+} {
+    return [acs_sc::invoke \
+                -error \
+                -impl_id $impl_id \
+                -operation GetParameters]
+}
+