X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=4d27765d0125776d8e9a56a2614b6ae2922fe79d;hp=229362e6cb63c5154c84b9507349598e7b61dbde;hb=b3e85cf7a5a514f185c7d9c5ba50550c759c9ab5;hpb=5a5242465520ef7a64a715496c31a3c17c95cc57
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index 229362e6c..4d27765d0 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -3,7 +3,6 @@
my $conf = new FS::Conf;
-#false laziness with view/cust_pkg.cgi, but i'm trying to make that go away so
my %uiview = ();
my %uiadd = ();
foreach my $part_svc ( qsearch('part_svc',{}) ) {
@@ -20,7 +19,6 @@ print header("Customer View", menubar(
@@ -38,15 +36,15 @@ print qq!Edit this customer!;
%>
<%
-print qq! | !.
+print qq! | !.
'Cancel this customer'
if $cust_main->ncancelled_pkgs;
@@ -237,8 +235,7 @@ if ( $conf->config('payby-default') ne 'HIDE' ) {
;
if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) {
- my $payinfo = $cust_main->payinfo;
- $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4));
+ my $payinfo = $cust_main->payinfo_masked;
print 'Credit card ',
( $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' ),
'',
@@ -303,13 +300,25 @@ if ( defined $cust_main->dbdef_table->column('comments')
'';
}
-print '';
+%>
-print '
'.
- '
+
+<%
if ( $conf->config('payby-default') ne 'HIDE' ) {
- print '
'.
+ print
qq!