Index: openacs.org-dev/packages/ecommerce/www/shopping-cart-delete-from.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/ecommerce/www/shopping-cart-delete-from.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/ecommerce/www/shopping-cart-delete-from.tcl 9 Jul 2002 17:35:05 -0000 1.1.1.1 +++ openacs.org-dev/packages/ecommerce/www/shopping-cart-delete-from.tcl 8 Oct 2002 15:47:06 -0000 1.1.1.2 @@ -6,7 +6,7 @@ @param style_choice @author @creation-date - @cvs-id shopping-cart-delete-from.tcl,v 3.3.2.5 2000/07/21 03:59:30 ron Exp + @cvs-id $Id$ @author ported by Jerry Asher (jerry@theashergroup.com) } { product_id:integer @@ -27,11 +27,11 @@ if { [empty_string_p $order_id] } { # then they probably got here by pushing "Back", so just redirect them # into their empty shopping cart - ad_returnredirect shopping-cart.tcl - return + ad_returnredirect shopping-cart + ad_script_abort } db_dml delete_item_from_cart "delete from ec_items where order_id=:order_id and product_id=:product_id and color_choice [ec_decode $color_choice "" "is null" "= :color_choice"] and size_choice [ec_decode $size_choice "" "is null" "= :size_choice"] and style_choice [ec_decode $style_choice "" "is null" "= :style_choice"]" db_release_unused_handles -ad_returnredirect shopping-cart.tcl +ad_returnredirect shopping-cart