Index: openacs-4/packages/download/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/download/www/index.tcl	9 Sep 2015 09:10:49 -0000	1.23
+++ openacs-4/packages/download/www/index.tcl	17 Oct 2024 11:49:15 -0000	1.24
@@ -176,8 +176,10 @@
 
 set dimensional_html [ad_dimensional $dimensional]
 
-db_multirow types types_select {
+db_multirow -extend archive_add_url types types_select {
     select archive_type_id, pretty_name, description from download_archive_types where repository_id = :repository_id
+} {
+    set archive_add_url [export_vars -base archive-add {repository_id archive_type_id}]
 }
 
 db_multirow my_revisions my_revisions {
@@ -195,6 +197,4 @@
     order by creation_date
 }
 
-set archive_add_url [export_vars -base archive-add {repository_id archive_type_id}]
-
 ad_return_template