diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-09-12 04:28:25 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-09-12 04:28:25 -0700 |
| commit | d046cb57be3c1a74362d15e90486239cc8a5f4d7 (patch) | |
| tree | 040eb0cb25fbaab97cf988bf6a3a7473bf8bc3c2 /FS | |
| parent | cc401559d97ade5a8a87afdb741195626bbdd0c4 (diff) | |
multiple payment options, RT#23741
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 16 | ||||
| -rw-r--r-- | FS/FS/payby.pm | 12 |
2 files changed, 21 insertions, 7 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 0c50b8462..641d54a30 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2092,6 +2092,21 @@ sub cust_contact { qsearch('contact', { 'custnum' => $self->custnum } ); } +=item cust_payby + +Returns all payment methods (see L<FS::cust_payby>) for this customer. + +=cut + +sub cust_payby { + my $self = shift; + qsearch({ + 'table' => 'cust_payby', + 'hashref' => { 'custnum' => $self->custnum }, + 'order_by' => 'ORDER BY weight ASC', + }); +} + =item unsuspend Unsuspends all unflagged suspended packages (see L</unflagged_suspended_pkgs> @@ -5125,7 +5140,6 @@ sub _upgrade_data { #class method die $error if $error; $cust_main->setfield($_, '') foreach @payfields; - $DEBUG = 2; $error = $cust_main->replace; die $error if $error; diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm index e223a050f..b33f8f3d1 100644 --- a/FS/FS/payby.pm +++ b/FS/FS/payby.pm @@ -70,12 +70,12 @@ tie %hash, 'Tie::IxHash', cust_pay => 'CHEK', #this is a customer type only, payments are CHEK... realtime => 1, }, - 'LECB' => { - tinyname => 'phone bill', - shortname => 'Phone bill billing', - longname => 'Phone bill billing', - realtime => 1, - }, + #'LECB' => { + # tinyname => 'phone bill', + # shortname => 'Phone bill billing', + # longname => 'Phone bill billing', + # realtime => 1, + #}, 'BILL' => { tinyname => 'billing', shortname => 'Billing', |