X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMisc%2Fprune.pm;h=ce7240578552294916611141fa6760c91fada599;hb=18af4f3316291938fa8f0a74e083209f62eac4fa;hp=634cd8a6c89555d70bb9c4e0e7792358ef12646c;hpb=e1d6655b9607b22ab98fb710bf463ed3e2fedf5e;p=freeside.git

diff --git a/FS/FS/Misc/prune.pm b/FS/FS/Misc/prune.pm
index 634cd8a6c..ce7240578 100644
--- a/FS/FS/Misc/prune.pm
+++ b/FS/FS/Misc/prune.pm
@@ -10,7 +10,7 @@ use FS::cust_credit_refund;
 #use FS::cust_pay_refund;
 
 @ISA = qw( Exporter );
-@EXPORT_OK = qw( prune applications );
+@EXPORT_OK = qw( prune_applications );
 
 =head1 NAME
 
@@ -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