Index: openacs-4/packages/acs-admin/www/auth/authority-parameters.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-parameters.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-admin/www/auth/authority-parameters.adp 12 Sep 2003 12:26:39 -0000 1.2 +++ openacs-4/packages/acs-admin/www/auth/authority-parameters.adp 16 Sep 2003 13:04:12 -0000 1.3 @@ -4,7 +4,7 @@ parameters.@first_param_name;noquote@ - + The selected driver implementation has no parameters to configure. Index: openacs-4/packages/acs-admin/www/auth/authority.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/auth/authority.adp 12 Sep 2003 12:26:39 -0000 1.4 +++ openacs-4/packages/acs-admin/www/auth/authority.adp 16 Sep 2003 13:04:12 -0000 1.5 @@ -8,9 +8,11 @@

Batch Jobs

-

- » Run new batch job now -

+ +

+ » Run new batch job now +

+
Index: openacs-4/packages/acs-admin/www/auth/authority.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/acs-admin/www/auth/authority.tcl 12 Sep 2003 12:26:39 -0000 1.6 +++ openacs-4/packages/acs-admin/www/auth/authority.tcl 16 Sep 2003 13:04:12 -0000 1.7 @@ -39,39 +39,44 @@ } {auth_impl_id:integer(select),optional - {label "Authentication implementation"} - {options {[acs_sc::impl::get_options -empty_label "disabled" -contract_name auth_authentication]}} + {label "Authentication"} + {section "Authentication"} + {options {[acs_sc::impl::get_options -empty_label "Disabled" -contract_name auth_authentication]}} } {pwd_impl_id:integer(select),optional - {label "Password implementation"} - {options {[acs_sc::impl::get_options -empty_label "disabled" -contract_name auth_password]}} + {label "Password management"} + {section "Password Management"} + {options {[acs_sc::impl::get_options -empty_label "Disabled" -contract_name auth_password]}} } - {register_impl_id:integer(select),optional - {label "Register implementation"} - {options {[acs_sc::impl::get_options -empty_label "disabled" -contract_name auth_registration]}} - } - {forgotten_pwd_url:text,optional {html {size 50}} - {label "Forgotten password URL"} - {help_text "URL that users are sent to when they have forgotten their password. Any username in this url must be on the syntax foo={username} and {username} will be replaced with the real username"} + {label "Recover password URL"} + {help_text "Instead of a password management driver, you may provide a URL to which users are sent when they need help recovering their password. Any username in this url must be on the syntax foo={username} and {username} will be replaced with the real username."} } {change_pwd_url:text,optional {html {size 50}} {label "Change password URL"} - {help_text "URL where users can change their password. Any username in this url must be on the syntax foo={username} and {username} will be replaced with the real username"} + {help_text "Instead of a password management driver, you may provide a URL to which users are sent when they want to change their password. Any username in this url must be on the syntax foo={username} and {username} will be replaced with the real username."} } + + {register_impl_id:integer(select),optional + {label "Account registration"} + {section "Account Registration"} + {options {[acs_sc::impl::get_options -empty_label "Disabled" -contract_name auth_registration]}} + } + {register_url:text,optional {html {size 50}} - {label "Register URL"} + {label "Account registration URL"} {help_text "URL where users register for a new account."} } {help_contact_text:richtext,optional {html {cols 60 rows 13}} {label "Help contact text"} + {section "User Help"} {help_text "Contact information (phone, email, etc.) to be displayed as a last resort when people are having problems with an authority."} } @@ -82,20 +87,14 @@ {section {Batch Synchronization}} } - {snapshot_p:text(radio) - {label "Use snapshot synchronization?"} - {options {{Yes t} {No f}}} - {value f} - } - {get_doc_impl_id:integer(select),optional {label "GetDocument implementation"} - {options {[acs_sc::impl::get_options -empty_label "disabled" -contract_name auth_getdoc]}} + {options {[acs_sc::impl::get_options -empty_label "Disabled" -contract_name auth_sync_retrieve]}} } {process_doc_impl_id:integer(select),optional {label "ProcessDocument implementation"} - {options {[acs_sc::impl::get_options -empty_label "disabled" -contract_name auth_processdoc]}} + {options {[acs_sc::impl::get_options -empty_label "Disabled" -contract_name auth_sync_process]}} } } @@ -187,7 +186,9 @@ auth::authority::edit \ -authority_id $authority_id \ -array element_array -} +} -after_submit { + ad_returnredirect [export_vars -base [ad_conn url] { authority_id }] +} # Show recent batch jobs for existing authorities @@ -249,11 +250,18 @@ set short_message [string_truncate -len 30 $message] } + if { [exists_and_not_null get_doc_impl_id] && [exists_and_not_null process_doc_impl_id] } { + set batch_sync_run_url [export_vars -base batch-job-run { authority_id }] + } else { + # If there's neither a driver, nor any log history to display, hide any mention of batch jobs + if { ${batch_jobs:rowcount} == 0 } { + set display_batch_history_p 0 + } + } } set context [list [list "." "Authentication"] $page_title] -set batch_sync_run_url [export_vars -base batch-job-run { authority_id }] # This code should be executed for non-local authorities in the following types of requests: # - initial request of the form (display mode) Index: openacs-4/packages/acs-admin/www/auth/batch-action.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-action.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-admin/www/auth/batch-action.tcl 11 Sep 2003 16:12:30 -0000 1.2 +++ openacs-4/packages/acs-admin/www/auth/batch-action.tcl 16 Sep 2003 13:04:12 -0000 1.3 @@ -7,7 +7,7 @@ entry_id:integer } -auth::sync::entry::get -entry_id $entry_id -array batch_action +auth::sync::job::get_entry -entry_id $entry_id -array batch_action set page_title "One batch action" Index: openacs-4/packages/acs-admin/www/auth/batch-job-run.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job-run.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/acs-admin/www/auth/batch-job-run.adp 11 Sep 2003 16:12:30 -0000 1.1 +++ openacs-4/packages/acs-admin/www/auth/batch-job-run.adp 16 Sep 2003 13:04:12 -0000 1.2 @@ -2,4 +2,8 @@ @context;noquote@ @page_title;noquote@ -Batch sync completed. Return to the authority page to view results. +

Batch sync completed.

+ +

+ » View job results +

Index: openacs-4/packages/acs-admin/www/auth/batch-job-run.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job-run.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/acs-admin/www/auth/batch-job-run.tcl 11 Sep 2003 16:12:30 -0000 1.1 +++ openacs-4/packages/acs-admin/www/auth/batch-job-run.tcl 16 Sep 2003 13:04:12 -0000 1.2 @@ -13,4 +13,6 @@ set authority_page_url [export_vars -base authority { {authority_id $authority(authority_id)} }] set context [list [list "." "Authentication"] [list $authority_page_url "$authority(pretty_name)"] $page_title] -auth::authority::batch_sync -authority_id $authority_id +set job_id [auth::authority::batch_sync -authority_id $authority_id] + +set job_url [export_vars -base batch-job { job_id }] Index: openacs-4/packages/acs-admin/www/auth/batch-job.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/auth/batch-job.tcl 11 Sep 2003 16:12:30 -0000 1.3 +++ openacs-4/packages/acs-admin/www/auth/batch-job.tcl 16 Sep 2003 13:04:12 -0000 1.4 @@ -26,6 +26,10 @@ {job_end_time:text(inform) {label "End time"} } + {run_time_seconds:text(inform) + {label "Running time"} + {after_html " seconds"} + } {interactive_p:text(inform) {label "Interactive"} } @@ -53,9 +57,6 @@ {document_download:text(inform) {label "Document"} } - {run_time_seconds:text(inform) - {label "Runtime seconds"} - } {num_actions:text(inform) {label "Number of actions"} }