summaryrefslogtreecommitdiff
path: root/httemplate/edit/cust_main.cgi
diff options
context:
space:
mode:
authorivan <ivan>2006-12-24 01:28:38 +0000
committerivan <ivan>2006-12-24 01:28:38 +0000
commitda757c2af713bedd8706e30ac002658b0c97ce28 (patch)
tree62ceb1d87b107d7fdd7b9b140ed29646258a6958 /httemplate/edit/cust_main.cgi
parent4a54e68baa0fe7c4171d57c3eb0e1579aa21ae77 (diff)
fix more paymask regressions: allow editing records with existing expired cards, fix masking just-entered values when erroring out, fix echeck entry inserting as empty routing code and "xxEK" account number, remove old/deprecated/unused payinfo_maksed subs and calls
Diffstat (limited to 'httemplate/edit/cust_main.cgi')
-rwxr-xr-xhttemplate/edit/cust_main.cgi5
1 files changed, 5 insertions, 0 deletions
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 748cdde5f..e2ed0f1da 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -17,6 +17,7 @@
%my $error = '';
%my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart);
%my(@invoicing_list);
+%my $payinfo;
%my $same = '';
%if ( $cgi->param('error') ) {
% $error = $cgi->param('error');
@@ -36,6 +37,7 @@
% @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') );
% $same = $cgi->param('same');
% $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid');
+% $payinfo = $cust_main->payinfo; # don't mask an entered value on errors
%} elsif ( $cgi->keywords ) { #editing
% my( $query ) = $cgi->keywords;
% $query =~ /^(\d+)$/;
@@ -52,6 +54,7 @@
% $password = '';
% $popnum = 0;
% @invoicing_list = $cust_main->invoicing_list;
+% $payinfo = $cust_main->paymask;
%} else {
% $custnum='';
% $cust_main = new FS::cust_main ( {} );
@@ -64,6 +67,7 @@
% @invoicing_list = ();
% push @invoicing_list, 'POST'
% unless $conf->exists('disablepostalinvoicedefault');
+% $payinfo = '';
%}
%$cgi->delete_all();
%
@@ -259,6 +263,7 @@ Service address
<!-- billing info -->
<% include( 'cust_main/billing.html', $cust_main,
+ 'payinfo' => $payinfo,
'invoicing_list' => \@invoicing_list,
)
%>