Index: openacs.org-dev/packages/ecommerce/tcl/ecommerce-utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/ecommerce/tcl/ecommerce-utilities-procs.xql,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/ecommerce/tcl/ecommerce-utilities-procs.xql	9 Jul 2002 17:35:05 -0000	1.1.1.1
+++ openacs.org-dev/packages/ecommerce/tcl/ecommerce-utilities-procs.xql	8 Oct 2002 15:47:06 -0000	1.1.1.2
@@ -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>