Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl,v
diff -u -N -r1.13 -r1.13.2.1
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl	25 Jul 2018 17:44:25 -0000	1.13
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl	22 Feb 2021 11:47:19 -0000	1.13.2.1
@@ -46,8 +46,18 @@
     cr_cleanup_orphaned_files
 }
 
+ad_proc -private cr_cleanup_orphaned_files {} {
 
+    Helper proc to cleanup orphaned files in the content
+    repository. Orphaned files can be created during aborted
+    transactions involving the files being added to the content
+    repository.
 
+} {
+    cr_delete_orphans [cr_get_file_creation_log]
+}
+
+
 ##
 ## Scan AOLserver mime types and insert them into cr_mime_types
 ##
@@ -84,7 +94,7 @@
 ##
 
 
-ad_proc cr_check_orphaned_files {-delete:boolean {-mtime ""}} {
+ad_proc -private cr_check_orphaned_files {-delete:boolean {-mtime ""}} {
 
     Check for orphaned files in the content repository directory, and
     delete such files if required.  Orphaned files might be created,
@@ -124,6 +134,16 @@
     return $result
 }
 
+ad_proc -private acs_cr_scheduled_release_exec {} {
+
+    This was handled by oracle, but since other dbs, such as PostgreSQL don't 
+    support job submission, the job scheduling has been moved to aolserver.
+    (OpenACS - DanW)
+
+} {
+
+    db_exec_plsql schedule_releases {}
+}
 #
 # Local variables:
 #    mode: tcl