diff options
author | ivan <ivan> | 2005-08-27 08:46:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-08-27 08:46:58 +0000 |
commit | 369cc8545df88dd4e717ccd8f6aa8719bc4308b3 (patch) | |
tree | 3c26fe16d8c99e6ed758eb1c10674b541b7078be /httemplate/misc | |
parent | 662ec73ab3a85c8e9702abba81aac3f3c31033b3 (diff) |
add banned credit card / ACH table, re-do cancel popup to have a checkbox to ban payinfo
Diffstat (limited to 'httemplate/misc')
-rwxr-xr-x | httemplate/misc/cust_main-cancel.cgi | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/httemplate/misc/cust_main-cancel.cgi b/httemplate/misc/cust_main-cancel.cgi index 257c3384f..519e6c2b2 100755 --- a/httemplate/misc/cust_main-cancel.cgi +++ b/httemplate/misc/cust_main-cancel.cgi @@ -1,13 +1,19 @@ <% -#untaint custnum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal custnum"; -my $custnum = $1; +my $custnum; +my $ban = ''; +if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { + $custnum = $1; + $ban = $cgi->param('ban'); +} else { + my($query) = $cgi->keywords; + $query =~ /^(\d+)$/ || die "Illegal custnum"; + $custnum = $1; +} my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); -my @errors = $cust_main->cancel; +my @errors = $cust_main->cancel( 'ban' => $ban ); eidiot(join(' / ', @errors)) if scalar(@errors); #print $cgi->redirect($p. "view/cust_main.cgi?". $cust_main->custnum); |