Index: openacs-4/packages/ecommerce/www/admin/orders/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/one.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ecommerce/www/admin/orders/one.tcl 9 Mar 2004 00:59:50 -0000 1.4
+++ openacs-4/packages/ecommerce/www/admin/orders/one.tcl 9 Aug 2008 10:33:13 -0000 1.5
@@ -142,7 +142,7 @@
set item_quantity [expr $item_quantity + $quantity]
set item_description "
$product_name;
- [ec_decode $options "" "" "$options; "]$price_name: [ec_pretty_price $price_charged]"
+ [ec_decode $options "" "" "$options; "]$price_name: [ec_pretty_pure_price $price_charged]"
set old_product_color_size_style_price_price_name [list $product_id $color_choice $size_choice $style_choice $price_charged $price_name]
}
@@ -226,7 +226,7 @@
Base shipping charged |
- [ec_pretty_price $shipping_charged] [ec_decode $shipping_method "pickup" "(Pickup)" "no shipping" "(No Shipping)" ""] |
+ [ec_pretty_pure_price $shipping_charged] [ec_decode $shipping_method "pickup" "(Pickup)" "no shipping" "(No Shipping)" ""] |
@@ -265,7 +265,7 @@
$transaction_id |
[ec_nbsp_if_null [ec_formatted_full_date $inserted_date]] |
$creditcard_last_four |
- [ec_pretty_price $transaction_amount] |
+ [ec_pretty_pure_price $transaction_amount] |
[ec_decode $transaction_type "charge" "authorization to charge" "intent to refund"] |
[ec_nbsp_if_null [ec_decode $transaction_type "refund" "Yes" [ec_decode $to_be_captured_p "t" "Yes" "f" "No" ""]]] |
[ec_nbsp_if_null [ec_formatted_full_date $authorized_date]] |
@@ -356,7 +356,7 @@
doc_body_append "
Refund ID: $refund_id
Date: [ec_formatted_full_date $refund_date]
- Amount: [ec_pretty_price $refund_amount]
+ Amount: [ec_pretty_pure_price $refund_amount]
Refunded by: $first_names $last_name
Reason: $refund_reasons