import torrus 1.0.9

[freeside.git] / FS / FS / Misc / prune.pm

diff --git a/FS/FS/Misc/prune.pm b/FS/FS/Misc/prune.pm
index 634cd8a..3f0c79d 100644 (file)
--- 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 = <<EOW;
     WHERE
          0 = (select count(*) from cust_credit