From da14440c0ce55a29371064fd1cf34bd6e390865d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 13 Jul 2007 23:58:55 +0000
Subject: [PATCH] adding quick find-overapplied script

---
 bin/find-overapplied | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 bin/find-overapplied

diff --git a/bin/find-overapplied b/bin/find-overapplied
new file mode 100644
index 000000000..6bcc31539
--- /dev/null
+++ b/bin/find-overapplied
@@ -0,0 +1,27 @@
+#!/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 credits:\n". Dumper(@payments). "\n";
+}
+
+sub usage {
+  die "Usage:\n\n  find-overapplied user\n";
+}
+
-- 
2.11.0