- Batch Jobs:

  Reactivating batch job debugging

www/auth/batch-job-run.tcl

@@ -13,12 +13,6 @@ set page_title "Run batch job"
 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]
 
-# Fraber 110913:
-# set job_id [auth::authority::batch_sync -authority_id $authority_id]
-# set job_url [export_vars -base batch-job { job_id }]
-
-set job_url ""
-
 
 # --------------------------------------------------------------
 # Get the paremeters for the autority
@@ -55,5 +49,46 @@ foreach element_name [auth::authority::get_sc_impl_columns] {
 # Import users 
 # --------------------------------------------------------------
 
-set result [auth::ldap::batch_import::import_users [array get parameter_values] $authority_id]
+set job_start_time [db_string start_time "select now() from dual"]
+array set result_hash [auth::ldap::batch_import::import_users -debug_p 1 [array get parameter_values] $authority_id]
+set job_end_time [db_string start_time "select now() from dual"]
+
+set result $result_hash(result)
+set debug  $result_hash(debug)
+
+set job_id [db_nextval auth_batch_job_entry_id_seq]
+db_dml insert_batch_results "
+	insert into auth_batch_jobs (
+		job_id,
+		job_start_time,
+		job_end_time,
+		interactive_p,
+		snapshot_p,
+		authority_id,
+		message,
+		creation_user,
+		doc_start_time,
+		doc_end_time,
+		doc_status,
+		doc_message,
+		document
+	) values (
+		:job_id,
+		:job_start_time,
+		:job_end_time,
+		't',
+		NULL,
+		:authority_id,
+		NULL,			-- message
+		[ad_get_user_id],
+		:job_start_time,
+		:job_end_time,
+		:result,
+		NULL,			-- doc_message
+		:debug
+	)
+"
 
+# Fraber 110913:
+# set job_id [auth::authority::batch_sync -authority_id $authority_id]
+set job_url [export_vars -base batch-job { job_id }]