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.2 -r1.3 --- openacs-4/packages/acs-authentication/tcl/authority-procs-oracle.xql 29 Aug 2003 15:22:21 -0000 1.2 +++ openacs-4/packages/acs-authentication/tcl/authority-procs-oracle.xql 9 Sep 2003 12:09:50 -0000 1.3 @@ -19,6 +19,10 @@ register_impl_id => :register_impl_id, register_url => :register_url, help_contact_text => :help_contact_text, + get_doc_impl_id => :get_doc_impl_id, + process_doc_impl_id => :process_doc_impl_id, + snapshot_p => :snapshot_p, + batch_sync_enabled_p => :batch_sync_enabled_p, creation_user => :creation_user, creation_ip => :creation_ip, context_id => :context_id Index: openacs-4/packages/acs-authentication/tcl/authority-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs-postgresql.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-authentication/tcl/authority-procs-postgresql.xql 27 Aug 2003 13:10:15 -0000 1.1 +++ openacs-4/packages/acs-authentication/tcl/authority-procs-postgresql.xql 9 Sep 2003 12:09:50 -0000 1.2 @@ -19,6 +19,10 @@ :register_impl_id, :register_url, :help_contact_text, + :get_doc_impl_id, + :process_doc_impl_id, + :snapshot_p, + :batch_sync_enabled_p, :creation_user, :creation_ip, :context_id 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.7 -r1.8 --- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 4 Sep 2003 14:38:45 -0000 1.7 +++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 9 Sep 2003 12:09:50 -0000 1.8 @@ -55,6 +55,14 @@
  • register_url An alternative URL to redirect to when the user wants to register for an account. Defaults to none. + +
  • get_doc_impl_id Id of the batch sync GetDocument service contract implementation + +
  • process_doc_impl_id Id of the batch sync ProcessDocument service contract implementation + +
  • snapshot_p Whether batch jobs are snapshots or not + +
  • batch_sync_enabled_p Is batch sync enabled for the authority? @author Lars Pind (lars@collaboraid.biz) @@ -261,6 +269,10 @@ change_pwd_url register_impl_id register_url + get_doc_impl_id + process_doc_impl_id + snapshot_p + batch_sync_enabled_p } } 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.22 -r1.23 --- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl 9 Sep 2003 11:14:00 -0000 1.22 +++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl 9 Sep 2003 12:10:40 -0000 1.23 @@ -477,8 +477,11 @@ change_pwd_url "" register_impl_id "" register_url "" + get_doc_impl_id "" + process_doc_impl_id "" + snapshot_p "f" + batch_sync_enabled_p "f" } - set authority_id [auth::authority::create -array columns] @@ -492,7 +495,6 @@ # Edit authority and test that it has actually changed. array set columns { - short_name "test2" pretty_name "Test authority2" help_contact_text "Blah blah2" enabled_p "f" @@ -501,6 +503,7 @@ change_pwd_url "foobar.com" register_url "foobar.com" } + set columns(short_name) [ad_generate_random_string] auth::authority::edit \ -authority_id $authority_id \