Index: openacs-4/packages/download/www/download-verify.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/download-verify.adp,v diff -u -r1.11 -r1.12 --- openacs-4/packages/download/www/download-verify.adp 3 Jul 2015 11:19:05 -0000 1.11 +++ openacs-4/packages/download/www/download-verify.adp 21 Oct 2024 12:41:14 -0000 1.12 @@ -12,7 +12,14 @@
<%= [export_vars -form {download_id revision_id}] %> #download.Reason_for_Download# - @reason_widget;noquote@ + + + #download.lt_If_you_have_selected_#
#download.please_tell_us_why# Index: openacs-4/packages/download/www/download-verify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/download-verify.tcl,v diff -u -r1.12 -r1.13 --- openacs-4/packages/download/www/download-verify.tcl 21 Oct 2024 12:27:03 -0000 1.12 +++ openacs-4/packages/download/www/download-verify.tcl 21 Oct 2024 12:41:14 -0000 1.13 @@ -44,10 +44,11 @@ ##TODO Get version name set action "[ad_conn package_url]download/$file_name" -set option_list "\{\"\" \"[_ download.Other]\"\}" +db_multirow reasons get_reasons { + select reason, download_reason_id + from download_reasons + where repository_id = :repository_id +} -set reason_widget [ad_db_select_widget -option_list $option_list reasons " - select reason, download_reason_id from download_reasons where repository_id = $repository_id" reason_id] - set download_id [db_nextval download_reasons_sequence] ad_return_template