From d938dd5cd86b7fd2d9041f929a371a5faf3b18ac Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Sun, 2 Sep 2001 02:53:49 +0000
Subject: adding a credit apply utility

---
 FS/bin/freeside-apply-credits | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 FS/bin/freeside-apply-credits

(limited to 'FS/bin/freeside-apply-credits')

diff --git a/FS/bin/freeside-apply-credits b/FS/bin/freeside-apply-credits
new file mode 100755
index 000000000..eb5c1f489
--- /dev/null
+++ b/FS/bin/freeside-apply-credits
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -Tw
+
+use strict;
+use lib "/usr/lib/perl5/site_perl/5.005/FSTest2";
+use vars qw( $user $cust_main @customers );
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw(qsearch);
+use FS::cust_main;
+
+$user = shift or die &usage;
+&adminsuidsetup( $user );
+
+my @customers = qsearch('cust_main', {} );
+die "No customers" unless (scalar(@customers) > 0);
+
+foreach $cust_main (@customers) {
+  print "Applying credits for customer #". $cust_main->custnum;
+  $cust_main->apply_credits;
+}
+
+
+
-- 
cgit v1.2.1


From 310a027b9b72cf7d98c7f3e05b3bd1164077f2ab Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 19 Sep 2001 21:06:17 +0000
Subject: directory hashing remove jeff's lib patch from freeside-apply-credits
 add freeside-apply-credits to MANIFEST README for pre3-4

---
 FS/bin/freeside-apply-credits | 1 -
 1 file changed, 1 deletion(-)

(limited to 'FS/bin/freeside-apply-credits')

diff --git a/FS/bin/freeside-apply-credits b/FS/bin/freeside-apply-credits
index eb5c1f489..ea6a7bdd0 100755
--- a/FS/bin/freeside-apply-credits
+++ b/FS/bin/freeside-apply-credits
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -Tw
 
 use strict;
-use lib "/usr/lib/perl5/site_perl/5.005/FSTest2";
 use vars qw( $user $cust_main @customers );
 use FS::UID qw(adminsuidsetup);
 use FS::Record qw(qsearch);
-- 
cgit v1.2.1