Index: openacs-4/packages/download/tcl/download-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/tcl/download-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/download/tcl/download-procs.tcl 10 Sep 2002 22:22:34 -0000 1.8
+++ openacs-4/packages/download/tcl/download-procs.tcl 20 Sep 2002 22:40:41 -0000 1.9
@@ -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
}
}
}