From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 10 Jun 2016 21:21:38 +0000 (-0700)
Subject: Merge branch 'master' of git.freeside.biz:/home/git/freeside
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=912cbcaf930f41cd6a087ea4bcc581aad035dd41;hp=c66b912fd7f13f5fb0f2cc433f22b78d3ec5b56b

Merge branch 'master' of git.freeside.biz:/home/git/freeside
---

diff --git a/bin/cust_pay-delete b/bin/cust_pay-delete
new file mode 100644
index 000000000..e266d0daa
--- /dev/null
+++ b/bin/cust_pay-delete
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearch );
+use FS::cust_pay;
+
+adminsuidsetup shift or die usage();
+
+my $custnum = shift or die usage();
+
+my $paid = shift or die usage();
+
+my $min_paynum = shift or die usage();
+
+my @cust_pay = qsearch({
+  'table'   => 'cust_pay',
+  'hashref' => { 'custnum' => $custnum,
+                 'paid'    => $paid,
+                 'paynum'  => { op=>'>=', value=>$min_paynum, },
+                 'payinfo' => '',
+               },
+});
+
+die "Delete ". scalar(@cust_pay). " payments?\n";
+
+#foreach my $cust_pay (@cust_pay) {
+#  my $error = $cust_pay->delete;
+#  die $error if $error;
+#}
+
+sub usage {
+  "Usage: cust_pay delete username custnum paid min_paynum\n";
+}