X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=2b7d8d0dcb3a16c3cf067b2876722872b91d726c;hb=c0567c688084e89fcd11bf82348b6c418f1254ac;hp=706526865fad93762b5240b9509afbd1ffb152b6;hpb=2a5963390ddd68ecb2e40568ca272c0a2f8b831a;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 706526865..2b7d8d0dc 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -124,9 +124,11 @@ if ( $custnum && ! $conf->exists('editreferrals') ) {
#referring customer
#print qq!
Referring Customer: !;
-if ( $cust_main->referral_custnum ) {
- my $referring_cust_main =
- qsearchs('cust_main', { custnum => $cust_main->referral_custnum } );
+my $referring_cust_main = '';
+if ( $cust_main->referral_custnum
+ and $referring_cust_main =
+ qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
+) {
print '
Referring Customer: '.
$cust_main->referral_custnum. ': '.
@@ -357,7 +359,7 @@ if ( $payby_default eq 'HIDE' ) {
print qq!';
- foreach my $payby (qw( CARD CHEK LECB BILL COMP )) {
+ foreach my $payby (qw( CARD DCRD CHEK DCHK LECB BILL COMP )) {
foreach my $field (qw( payinfo payname )) {
print qq!';
@@ -405,8 +407,10 @@ if ( $payby_default eq 'HIDE' ) {
);
my %payby = (
- 'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!,
- 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'CARD' => qq!Credit card (automatic)
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!,
+ 'DCRD' => qq!Credit card (on-demand)
${r}
${r}Exp !. expselect("DCRD"). qq!
${r}Name on card
!,
+ 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
'LECB' => qq!Phone bill billing
${r}Phone number !,
'BILL' => qq!Billing
P.O.
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP"),
@@ -415,15 +419,17 @@ if ( $payby_default eq 'HIDE' ) {
my( $account, $aba ) = split('@', $payinfo);
my %paybychecked = (
- 'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!,
- 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'CARD' => qq!Credit card (automatic)
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!,
+ 'DCRD' => qq!Credit card (on-demand)
${r}
${r}Exp !. expselect("DCRD", $cust_main->paydate). qq!
${r}Name on card
!,
+ 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
'LECB' => qq!Phone bill billing
${r}Phone number !,
'BILL' => qq!Billing
P.O.
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP", $cust_main->paydate),
);
$cust_main->payby($payby_default) unless $cust_main->payby;
- for (qw(CARD CHEK LECB BILL COMP)) {
+ for (qw(CARD DCRD CHEK DCHK LECB BILL COMP)) {
print qq!