3 use FS::UID qw( adminsuidsetup );
4 use FS::Record qw( qsearch );
7 adminsuidsetup shift or die usage();
9 my $custnum = shift or die usage();
11 my $paid = shift or die usage();
13 my $min_paynum = shift or die usage();
15 my @cust_pay = qsearch({
16 'table' => 'cust_pay',
17 'hashref' => { 'custnum' => $custnum,
19 'paynum' => { op=>'>=', value=>$min_paynum, },
24 die "Delete ". scalar(@cust_pay). " payments?\n";
26 #foreach my $cust_pay (@cust_pay) {
27 # my $error = $cust_pay->delete;
28 # die $error if $error;
32 "Usage: cust_pay delete username custnum paid min_paynum\n";