Index: openacs-4/packages/acs-authentication/tcl/sync-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs-oracle.xql,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-authentication/tcl/sync-procs-oracle.xql 10 Sep 2003 12:42:01 -0000 1.6 +++ openacs-4/packages/acs-authentication/tcl/sync-procs-oracle.xql 10 Sep 2003 14:26:06 -0000 1.7 @@ -6,8 +6,8 @@ select job_id, - job_start_time, - job_end_time, + to_char(job_start_time, 'YYYY-MM-DD HH24:MI:SS') as job_start_time, + to_char(job_end_time, 'YYYY-MM-DD HH24:MI:SS') as job_end_time, interactive_p, snapshot_p, authority_id, Index: openacs-4/packages/acs-authentication/tcl/sync-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs-postgresql.xql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-authentication/tcl/sync-procs-postgresql.xql 10 Sep 2003 12:42:01 -0000 1.5 +++ openacs-4/packages/acs-authentication/tcl/sync-procs-postgresql.xql 10 Sep 2003 14:26:06 -0000 1.6 @@ -6,16 +6,16 @@ select job_id, - job_start_time, - job_end_time, + to_char(job_start_time, 'YYYY-MM-DD HH24:MI:SS') as job_start_time, + to_char(job_end_time, 'YYYY-MM-DD HH24:MI:SS') as job_end_time, interactive_p, snapshot_p, authority_id, (select aa.pretty_name from auth_authorities aa where aa.authority_id = j.authority_id) as authority_pretty_name, message, creation_user, - doc_start_time, - doc_end_time, + to_char(doc_start_time, 'YYYY-MM-DD HH24:MI:SS') as doc_start_time, + to_char(doc_end_time, 'YYYY-MM-DD HH24:MI:SS') as doc_end_time, doc_status, doc_message, document, Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 10 Sep 2003 13:37:37 -0000 1.10 +++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 10 Sep 2003 14:26:06 -0000 1.11 @@ -11,10 +11,10 @@ namespace eval auth::sync::job {} namespace eval auth::sync::get_doc {} namespace eval auth::sync::get_doc::http {} +namespace eval auth::sync::entry {} namespace eval auth::sync::process_doc {} namespace eval auth::sync::process_doc::ims {} - ##### # # auth::sync::job namespace @@ -580,9 +580,30 @@ return [array get result] } +##### +# +# auth::sync::entry namespace +# +##### +ad_proc -public auth::sync::entry::get { + {-entry_id:required} + {-array:required} +} { + Get information about a batch entry in an array. + @param entry_id The ID of the batch entry you're ending. + + @param array Name of an array into which you want the information. + + @author Peter Marklund +} { + upvar 1 $array row + db_1row select_entry {} -column_array row +} + + ##### # # auth::sync::process_doc::ims namespace @@ -681,4 +702,3 @@ -url $url } } - Index: openacs-4/packages/acs-authentication/tcl/sync-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-authentication/tcl/sync-procs.xql 10 Sep 2003 14:26:06 -0000 1.1 @@ -0,0 +1,26 @@ + + + + + + + select entry_id, + to_char(entry_time, 'YYYY-MM-DD HH24:MI:SS') as entry_time, + operation, + authority_id, + (select aa.pretty_name + from auth_authorities aa + where aa.authority_id = auth_batch_job_entries.authority_id + ) as authority_pretty_name, + job_id, + username, + user_id, + success_p, + message, + element_messages + from auth_batch_job_entries + where entry_id = :entry_id + + + +