Index: openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.xql	26 May 2002 04:36:50 -0000	1.4
+++ openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.xql	27 Sep 2002 04:46:45 -0000	1.5
@@ -83,4 +83,16 @@
     </querytext>
   </fullquery>
   
+  <fullquery name="ec_prune_product_purchase_combinations.prune_expired_combinations">
+    <querytext>
+      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))
+    </querytext>
+  </fullquery>
+
 </queryset>