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 -r1.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/filter-procs.tcl	31 Aug 2002 02:01:41 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/filter-procs.tcl	22 Sep 2003 16:34:32 -0000	1.7
@@ -9,17 +9,27 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
-ad_proc -public template::forward { url } {
+ad_proc -public template::forward { url args } {
     Redirect and abort processing
 } {
-  # DRB: The code that was here before didn't preserve the protocol, always
-  # using HTTP even if HTTPS was used to establish the connection.  Besides
-  # which ad_returnredirect has funky checks for even funkier browsers, and
-  # is therefore not only the standard way to redirect in OpenACS 4 but
-  # more robust as well.
+    # DRB: The code that was here before didn't preserve the protocol, always
+    # using HTTP even if HTTPS was used to establish the connection.  Besides
+    # which ad_returnredirect has funky checks for even funkier browsers, and
+    # is therefore not only the standard way to redirect in OpenACS 4 but
+    # more robust as well.
 
-  ad_returnredirect $url
-  ad_script_abort
+    set cache_p [lindex $args 0]
+
+    if { [string equal $cache_p "t"] } {
+	set persistent_p [lindex $args 1]
+	set excluded_vars [lindex $args 2]
+
+	ad_cache_returnredirect $url $persistent_p $excluded_vars
+    } else {
+	ad_returnredirect $url
+    }
+    
+    ad_script_abort
 }
 
 ad_proc -public template::filter { command args } {