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 -N -r1.2 -r1.3
--- openacs-4/packages/acs-authentication/tcl/sync-procs.xql	11 Sep 2003 16:11:11 -0000	1.2
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.xql	15 Nov 2017 15:56:49 -0000	1.3
@@ -2,6 +2,25 @@
 
 <queryset>
 
+    <fullquery name="auth::sync::job::start_get_document.update_doc_start_time">
+        <querytext>
+            update auth_batch_jobs
+            set    doc_start_time = current_timestamp
+            where  job_id = :job_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="auth::sync::job::end.update_job_end">
+        <querytext>
+
+            update auth_batch_jobs
+            set    job_end_time = current_timestamp,
+                   message = :message
+            where  job_id = :job_id
+
+        </querytext>
+    </fullquery>    
+
     <fullquery name="auth::sync::entry::get.select_entry">
         <querytext>
             select e.entry_id,
@@ -24,4 +43,11 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="auth::sync::purge_jobs.purge_jobs">
+        <querytext>
+            delete from auth_batch_jobs
+            where  job_end_time < current_date - cast(:num_days as integer)
+        </querytext>
+    </fullquery>    
+
 </queryset>