Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-all.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-all.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-all.tcl	16 Jul 2005 12:51:06 -0000	1.4
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-all.tcl	4 Aug 2005 15:05:25 -0000	1.5
@@ -25,6 +25,7 @@
 if { [empty_string_p $search] } {
     # Clear shopping cart
     set user_session_id [ec_get_user_session_id]
+    db_dml delete_offers "delete from ec_user_session_offer_codes where user_session_id = :user_session_id"
 
     set order_id [db_string get_order_id "select order_id from ec_orders where user_session_id=:user_session_id and order_state='in_basket'" -default ""]