+function cancel_areyousure(href) {
+ if (confirm("Perminantly delete all services and cancel this customer?") == true)
+ window.location.href = href;
+}
+
+END
+
+print qq! | !.
+ 'Cancel this customer'
+ if $cust_main->ncancelled_pkgs;
+
+print qq! | !.
+ 'Delete this customer'
if $conf->exists('deletecustomers');
unless ( $conf->exists('disable_customer_referrals') ) {
@@ -83,9 +96,13 @@ print '',
$cust_main->country,
'',
;
- print 'Day Phone | ',
+ my $daytime_label = FS::Msgcat::_gettext('daytime') || 'Day Phone';
+ my $night_label = FS::Msgcat::_gettext('night') || 'Night Phone';
+ print ' |
'. $daytime_label.
+ ' | ',
$cust_main->daytime || ' ', ' |
',
- 'Night Phone | ',
+ ' |
'. $night_label.
+ ' | ',
$cust_main->night || ' ', ' |
',
'Fax | ',
$cust_main->fax || ' ', ' |
',
@@ -122,10 +139,10 @@ print '',
$cust_main->get("${pre}country"),
'',
;
- print 'Day Phone | ',
+ print '
'. $daytime_label. ' | ',
'',
$cust_main->get("${pre}daytime") || ' ', ' |
',
- 'Night Phone | '.
+ '
'. $night_label. ' | '.
'',
$cust_main->get("${pre}night") || ' ', ' |
',
'Fax | ',
@@ -206,10 +223,12 @@ if ( $conf->config('payby-default') ne 'HIDE' ) {
' |
Billing type | ',
;
- if ( $cust_main->payby eq 'CARD' ) {
+ 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));
- print 'Credit card |
',
+ print 'Credit card ',
+ ( $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' ),
+ '',
'Card number | ',
$payinfo, ' |
',
'Expiration | ',
@@ -217,9 +236,11 @@ if ( $conf->config('payby-default') ne 'HIDE' ) {
' |
Name on card | ',
$cust_main->payname, ' |
'
;
- } elsif ( $cust_main->payby eq 'CHEK' ) {
+ } elsif ( $cust_main->payby eq 'CHEK' || $cust_main->payby eq 'DCHK') {
my( $account, $aba ) = split('@', $cust_main->payinfo );
- print 'Electronic check',
+ print 'Electronic check',
+ ( $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' ),
+ '',
'Account number | ',
$account, ' |
',
'ABA/Routing code | ',
@@ -227,6 +248,13 @@ if ( $conf->config('payby-default') ne 'HIDE' ) {
' |
Bank name | ',
$cust_main->payname, ' |
'
;
+ } elsif ( $cust_main->payby eq 'LECB' ) {
+ $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/;
+ my $payinfo = "$1-$2-$3";
+ print 'Phone bill billing',
+ 'Phone number | ',
+ $payinfo, ' |
',
+ ;
} elsif ( $cust_main->payby eq 'BILL' ) {
print 'Billing';
print 'P.O. | ',
@@ -269,14 +297,14 @@ print ' '.
qq!!.
' |