Index: openacs-4/packages/ecommerce/www/checkout-one-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-one-form.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/checkout-one-form.tcl 13 Jan 2005 13:57:58 -0000 1.2 +++ openacs-4/packages/ecommerce/www/checkout-one-form.tcl 9 Aug 2008 10:31:04 -0000 1.3 @@ -327,9 +327,9 @@ # 4. set total costs for each shipping option set total_shipping_price_default $total_reg_shipping_price - set total_reg_shipping_price [ec_pretty_price [expr $total_reg_shipping_price + $shipping_method_standard] $currency "t"] - set total_exp_shipping_price [ec_pretty_price [expr $total_exp_shipping_price + $shipping_method_express] $currency "t"] - set shipping_method_pickup [ec_pretty_price 0 $currency "t"] + set total_reg_shipping_price [ec_pretty_pure_price [expr $total_reg_shipping_price + $shipping_method_standard] $currency "t"] + set total_exp_shipping_price [ec_pretty_pure_price [expr $total_exp_shipping_price + $shipping_method_express] $currency "t"] + set shipping_method_pickup [ec_pretty_pure_price 0 $currency "t"] set shipping_method_no_shipping 0 # 5 prepare shipping options to present to user @@ -557,7 +557,7 @@ set show_creditcard_form_p "f" } elseif { $user_gift_certificate_balance > 0 } { set gift_certificate_covers_part_of_order 1 - set certificate_amount [ec_pretty_price $user_gift_certificate_balance] + set certificate_amount [ec_pretty_pure_price $user_gift_certificate_balance] } if { $show_creditcard_form_p == "t" } {