Index: openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl	1 Mar 2005 00:01:31 -0000	1.10
+++ openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl	10 Aug 2008 12:05:58 -0000	1.11
@@ -263,7 +263,9 @@
     } else {
 	set order_shipping_cost 0
     }
-
+    # following line allows for adding a cost based modifier to shipping
+    set order_shipping_cost [expr { [ecds_base_shipping_price_from_order_value $total_item_price_tax ] + $order_shipping_cost } ]
+    
     # Add on the extra base cost for express shipping, if appropriate
 
     if { $shipping_method == "express" } {