Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 1 Nov 2003 09:23:39 -0000 1.38
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 30 Dec 2003 22:18:50 -0000 1.39
@@ -412,21 +412,14 @@
@param title Title to be used for the error (will be shown to user)
@param explanation Explanation for the exception.
} {
- set page "[ad_header_with_extra_stuff $title "" ""]
-
$title
\n
$explanation\n[ad_footer]"
-
- # JCD: IE 5 and 6 have a "friendly HTTP errors" setting which
- # prevent display of short error return pages so here we pad them
- # out to circumvent it. Unfortunately quite a few pages use
- # ad_return_error with links to other pages (download for
- # example among others
+ set page [ad_parse_template -params [list [list title $title] [list explanation $explanation]] "/packages/acs-tcl/lib/ad-return-error"]
if {$status > 399
&& [string match {*; MSIE *} [ns_set iget [ad_conn headers] User-Agent]]
&& [string length $page] < 512 } {
append page [string repeat " " [expr 513 - [string length $page]]]
}
- doc_return $status text/html $page
+ ns_return $status text/html $page
# raise abortion flag, e.g., for templating
global request_aborted