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
}
}
}