Index: openacs-4/packages/ecommerce/www/checkout-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-3.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ecommerce/www/checkout-3.tcl	18 Sep 2002 21:33:45 -0000	1.5
+++ openacs-4/packages/ecommerce/www/checkout-3.tcl	3 Oct 2002 18:12:09 -0000	1.6
@@ -51,7 +51,7 @@
     # Then they probably got here by pushing "Back", so just redirect
     # them to index.tcl
 
-    ad_returnredirect index
+    rp_internal_redirect index
     ad_script_abort
 }
 
@@ -63,7 +63,7 @@
     select count(*) 
     from ec_items 
     where order_id=:order_id"] == 0 } {
-    ad_returnredirect shopping-cart
+    rp_internal_redirect shopping-cart
     ad_script_abort
 }
 
@@ -76,7 +76,7 @@
     from ec_orders 
     where order_id=:order_id"]
 if { $order_owner != $user_id } {
-    ad_returnredirect checkout
+    rp_internal_redirect checkout
     ad_script_abort
 }
 
@@ -138,7 +138,7 @@
     from ec_orders 
     where order_id=:order_id" -default ""]
 if { [empty_string_p $shipping_method] || ([empty_string_p $creditcard_id] && (![info exists gift_certificate_covers_cost_p] || $gift_certificate_covers_cost_p == "f")) } {
-    ad_returnredirect checkout-2
+    rp_internal_redirect checkout-2
     ad_script_abort
 }