X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMisc%2Fprune.pm;h=ce7240578552294916611141fa6760c91fada599;hb=8dd41f364aaba88969dfd0908feb22709025e7f6;hp=371f31cbbef0671303e90244e76f7c02d33b7a36;hpb=d19ad78158a96e33b3e113561d1263fa6b2fc13d;p=freeside.git

diff --git a/FS/FS/Misc/prune.pm b/FS/FS/Misc/prune.pm
index 371f31cbb..ce7240578 100644
--- a/FS/FS/Misc/prune.pm
+++ b/FS/FS/Misc/prune.pm
@@ -22,6 +22,10 @@ use FS::Misc::prune qw(prune_applications);
 
 prune_applications();
 
+=head1 SUBROUTINES
+
+=over 4
+
 =item prune_applications OPTION_HASH
 
 Removes applications of credits to refunds in the event that the database
@@ -34,39 +38,40 @@ affected records is returned rather than actually deleting the records.
 
 sub prune_applications {
   my $options = shift;
-  my $dbh = dbh
+  my $dbh = dbh;
 
   local $DEBUG = 1 if exists($options->{debug});
+
   my $ccr = <<EOW;
     WHERE
-         0 = (select count(*) from cust_credit
+         NOT EXISTS (select 1 from cust_credit
                where cust_credit_refund.crednum = cust_credit.crednum)
       or 
-         0 = (select count(*) from cust_refund
+         NOT EXISTS (select 1 from cust_refund
                where cust_credit_refund.refundnum = cust_refund.refundnum)
 EOW
   my $ccb = <<EOW;
     WHERE
-         0 = (select count(*) from cust_credit
+         NOT EXISTS (select 1 from cust_credit
                where cust_credit_bill.crednum = cust_credit.crednum)
       or 
-         0 = (select count(*) from cust_bill
+         NOT EXISTS (select 1 from cust_bill
                where cust_credit_bill.invnum = cust_bill.invnum)
 EOW
   my $cbp = <<EOW;
     WHERE
-         0 = (select count(*) from cust_bill
+         NOT EXISTS (select 1 from cust_bill
                where cust_bill_pay.invnum = cust_bill.invnum)
       or 
-         0 = (select count(*) from cust_pay
+         NOT EXISTS (select 1 from cust_pay
                where cust_bill_pay.paynum = cust_pay.paynum)
 EOW
   my $cpr = <<EOW;
     WHERE
-         0 = (select count(*) from cust_pay
+         NOT EXISTS (select 1 from cust_pay
                where cust_pay_refund.paynum = cust_pay.paynum)
       or 
-         0 = (select count(*) from cust_refund
+         NOT EXISTS (select 1 from cust_refund
                where cust_pay_refund.refundnum = cust_refund.refundnum)
 EOW