X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMisc%2Fprune.pm;h=3f0c79d00009274b7a7156012051dcec84608fa7;hb=be49cf6b227c698d16238d1be6c9c7785fa5870d;hp=634cd8a6c89555d70bb9c4e0e7792358ef12646c;hpb=e1d6655b9607b22ab98fb710bf463ed3e2fedf5e;p=freeside.git diff --git a/FS/FS/Misc/prune.pm b/FS/FS/Misc/prune.pm index 634cd8a6c..3f0c79d00 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,9 +38,10 @@ 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 = <