Index: openacs.org-dev/packages/download/tcl/download-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/download/tcl/download-procs.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/download/tcl/download-procs.tcl 9 Jul 2002 17:35:04 -0000 1.1.1.1 +++ openacs.org-dev/packages/download/tcl/download-procs.tcl 8 Oct 2002 15:47:04 -0000 1.1.1.2 @@ -3,7 +3,7 @@ Procs used by the download module. @author jbank@arsdigita.com [jbank@arsdigita.com] @creation-date Tue Dec 12 15:13:52 2000 - @cvs-id + @cvs-id $Id$ } # @author jbank@arsdigita.com [jbank@arsdigita.com] @@ -23,10 +23,11 @@ if { $admin_p } { set repository_id [db_nextval acs_object_id_seq] set return_url "[ad_conn package_url]admin/repository-types" - ad_return_error "Not setup" "Please configure this instance of the download module." + ad_return_exception_page 200 "Not setup" "Please configure this instance of the download module." } else { - ad_return_error "Not setup" "Please have an admin configure this instance of the download module." + ad_return_exception_page 200 "Not setup" "Please have an admin configure this instance of the download module." } + ad_script_abort } } else { if { $do_redirect } { @@ -36,7 +37,8 @@ }] if { $count == 0 } { set return_url "[ad_conn url]?[ad_conn query]" - ad_return_error "Not setup" "Please add a download type." + ad_return_exceptio_page 200 "Not setup" "Please add a download type." + ad_script_abort } } }