projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doh, fix regex
[freeside.git]
/
FS
/
FS
/
payby.pm
diff --git
a/FS/FS/payby.pm
b/FS/FS/payby.pm
index
28afd03
..
349d266
100644
(file)
--- a/
FS/FS/payby.pm
+++ b/
FS/FS/payby.pm
@@
-112,16
+112,6
@@
tie %hash, 'Tie::IxHash',
longname => 'Chargeback',
cust_main => '', # not a customer type
},
longname => 'Chargeback',
cust_main => '', # not a customer type
},
- 'DCLN' => { # This is only an event.
- tinyname => 'declined',
- shortname => 'Batch declined payment',
- longname => 'Batch declined payment',
-
- #its neither of these..
- cust_main => '',
- cust_pay => '',
-
- },
;
sub payby {
;
sub payby {
@@
-134,7
+124,7
@@
sub can_payby {
#return "Illegal payby" unless $hash{$payby};
return 0 unless $hash{$payby};
#return "Illegal payby" unless $hash{$payby};
return 0 unless $hash{$payby};
- $table = 'cust_pay' if $table
eq 'cust_pay_batch' || $table eq 'cust_refund'
;
+ $table = 'cust_pay' if $table
=~ /^cust_(pay_pending|pay_batch|pay_void|refund)$/
;
return 0 if exists( $hash{$payby}->{$table} );
return 1;
return 0 if exists( $hash{$payby}->{$table} );
return 1;