This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6

1 files changed, 0 insertions, 27 deletions

diff --git a/bin/find-overapplied b/bin/find-overapplied
deleted file mode 100644
index 7973cef..0000000
--- a/bin/find-overapplied
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Data::Dumper;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearch);
-use FS::cust_credit;
-use FS::cust_pay;
-
-my $user = shift or die &usage;
-adminsuidsetup $user;
-
-my @credits  = grep { $_->credited  < 0 } qsearch('cust_credit', {});
-my @payments = grep { $_->unapplied < 0 } qsearch('cust_pay',    {});
-
-if ( @credits ) {
-  print scalar(@credits). " overapplied credits:\n". Dumper(@credits). "\n";
-}
-
-if ( @payments ) {
-  print scalar(@payments). " overapplied payments:\n". Dumper(@payments). "\n";
-}
-
-sub usage {
-  die "Usage:\n\n  find-overapplied user\n";
-}
-