Index: openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl	12 Sep 2002 02:41:56 -0000	1.10
+++ openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl	27 Sep 2002 04:46:45 -0000	1.11
@@ -1027,3 +1027,19 @@
     set userag [ns_set iget $header "USER-AGENT"]
     return $userag
 }
+
+ad_proc ec_prune_product_purchase_combinations {
+} {
+    Prune expired product purchase combinations. A combination is
+    deemed expired when one of the products is inactive.
+
+} {
+    db_dml prune_expired_combinations {
+	delete from ec_product_purchase_comb
+	where exists (select product_id 
+		      from ec_products p
+		      where p.active_p = 'f'
+		      and p.product_id in (ec_product_purchase_comb.product_id, ec_product_purchase_comb.product_0, 
+					   ec_product_purchase_comb.product_1, ec_product_purchase_comb.product_2, 
+					   ec_product_purchase_comb.product_3, ec_product_purchase_comb.product_4))}
+}