Index: openacs-4/packages/download/www/archive-version-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-version-add-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/download/www/archive-version-add-2.tcl	12 Feb 2019 18:45:14 -0000	1.6
+++ openacs-4/packages/download/www/archive-version-add-2.tcl	21 Oct 2024 13:01:17 -0000	1.7
@@ -14,15 +14,15 @@
 } -validate {
     check_metadata -requires { } {
         set archive_type_id [db_string get_archive_type "select archive_type_id from download_archives where archive_id = :archive_id"]
-        set repository_id [download_repository_id]
-        array set metadata [download_validate_metadata $repository_id [array get metadata] $archive_type_id]
+        set repository_id [download::repository_id]
+        array set metadata [download::validate_metadata $repository_id [array get metadata] $archive_type_id]
     }
 }
 
 ##First, do a download_archive.new
 ##Then do a download_archive_revision.new
 ##Then insert into the download_revision_data
-set repository_id [download_repository_id]
+set repository_id [download::repository_id]
 set user_id [ad_conn user_id]
 set admin_p [permission::permission_p -object_id $repository_id -privilege admin]
 
@@ -40,7 +40,7 @@
 set revision_id [db_nextval acs_object_id_seq]
 
 db_transaction {
-    download_insert_revision $upload_file ${upload_file.tmpfile} $repository_id $archive_type_id $archive_id $version_name $revision_id $user_id $creation_ip $approved_p [array get metadata]
+    download::insert_revision $upload_file ${upload_file.tmpfile} $repository_id $archive_type_id $archive_id $version_name $revision_id $user_id $creation_ip $approved_p [array get metadata]
 }
 
 ad_returnredirect $return_url