Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v diff -u -r1.20 -r1.21 --- openacs-4/packages/new-portal/tcl/portal-procs.tcl 8 Oct 2001 21:20:24 -0000 1.20 +++ openacs-4/packages/new-portal/tcl/portal-procs.tcl 8 Oct 2001 21:59:39 -0000 1.21 @@ -249,15 +249,15 @@ ns_log notice "AKS22 got here $code" set output [template::adp_eval code] - if {![empty_string_p $output]} { - set mime_type [template::get_mime_type] - set header_preamble [template::get_mime_header_preamble $mime_type] +# if {![empty_string_p $output]} { +# set mime_type [template::get_mime_type] +# set header_preamble [template::get_mime_header_preamble $mime_type] +# +# ns_return 200 $mime_type "$header_preamble $output" +# } +# + return $output - ns_return 200 $mime_type "$header_preamble $output" - } - -# return $output - } ad_proc -public render_element { element_id region_id } {