Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 17 Apr 2001 22:59:51 -0000 1.2 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 5 Sep 2001 05:17:19 -0000 1.3 @@ -654,7 +654,7 @@ ns_returnnotfound } errmsg]] { if {$code == 1} { - if {[string equal query ""]} { + if {![string equal [ns_conn query] ""]} { set q ? } else { set q "" Index: openacs-4/packages/acs-templating/tcl/filter-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/filter-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-templating/tcl/filter-procs.tcl 26 Aug 2001 13:27:55 -0000 1.3 +++ openacs-4/packages/acs-templating/tcl/filter-procs.tcl 5 Sep 2001 05:17:19 -0000 1.4 @@ -67,7 +67,6 @@ ad_proc -public template::forward { url } { - ns_log Notice "url = $url" if { ! [string match http://* $url] } { if { [string index $url 0] != "/" } { @@ -77,15 +76,16 @@ set url http://$host_name$url } - ns_log Notice "Redirecting to $url" global errorInfo - #ns_log Notice "errorInfo = $errorInfo" - set ret_val [ns_returnredirect $url] - #ns_log Notice "ret_val = $ret_val, errorInfo = $errorInfo" + ns_returnredirect $url - - error FILTER_ABORT + # (DanW OpenACS, dcwickstrom@earthlink.net) - commented this out since the + # rp doesn't seem to support this processing method. It appears that this + # is used as a mechanism to abort further processing of a page, but the rp + # doesn't have the catch and continue code as implied by acs_page_filter + # example shown above. + #error FILTER_ABORT } # Run any filter procedures that have been registered with the Index: openacs-4/packages/cms/www/modules/items/publish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/publish.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/cms/www/modules/items/publish.tcl 27 May 2001 00:22:34 -0000 1.4 +++ openacs-4/packages/cms/www/modules/items/publish.tcl 5 Sep 2001 05:17:19 -0000 1.5 @@ -22,7 +22,6 @@ template::util::array_to_vars iteminfo # item_id, publish_p - if { [string equal $publish_p t] } { # publish::publish_revision $revision_id