Index: openacs-4/packages/ecommerce/www/credit-card-correction.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/credit-card-correction.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ecommerce/www/credit-card-correction.tcl	18 Sep 2002 21:33:46 -0000	1.4
+++ openacs-4/packages/ecommerce/www/credit-card-correction.tcl	3 Oct 2002 18:12:09 -0000	1.5
@@ -51,7 +51,7 @@
     where user_session_id = :user_session_id
     and order_state = 'in_basket'" -default ""]
 if { [empty_string_p $order_id] } {
-    ad_returnredirect index
+    rp_internal_redirect index
     ad_script_abort
 }
 
@@ -65,7 +65,7 @@
     select count(*) 
     from ec_items
     where order_id = :order_id"] == 0 } {
-    ad_returnredirect shopping-cart
+    rp_internal_redirect shopping-cart
     ad_script_abort
 }
 
@@ -78,7 +78,7 @@
     from ec_orders
     where order_id = :order_id"]
 if { $order_owner != $user_id } {
-    ad_returnredirect checkout
+    rp_internal_redirect checkout
     ad_script_abort
 }
 
@@ -93,7 +93,7 @@
     where c.creditcard_id = o.creditcard_id
     and order_id = :order_id
     and c.billing_address = a.address_id"] == 0 } {
-    ad_returnredirect checkout-2
+    rp_internal_redirect checkout-2
     ad_script_abort
 }