projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
882a548
)
tyop
author
ivan
<ivan>
Thu, 28 Dec 2006 08:16:31 +0000
(08:16 +0000)
committer
ivan
<ivan>
Thu, 28 Dec 2006 08:16:31 +0000
(08:16 +0000)
FS/FS/payinfo_Mixin.pm
patch
|
blob
|
history
diff --git
a/FS/FS/payinfo_Mixin.pm
b/FS/FS/payinfo_Mixin.pm
index
505c7a5
..
847fcc6
100644
(file)
--- a/
FS/FS/payinfo_Mixin.pm
+++ b/
FS/FS/payinfo_Mixin.pm
@@
-14,7
+14,7
@@
package FS::some_table;
use vars qw(@ISA);
@ISA = qw( FS::payinfo_Mixin FS::Record );
use vars qw(@ISA);
@ISA = qw( FS::payinfo_Mixin FS::Record );
-=had1 DESCRIPTION
+=h
e
ad1 DESCRIPTION
This is a mixin class for records that contain payinfo.
This is a mixin class for records that contain payinfo.
@@
-203,7
+203,7
@@
sub payinfo_check {
my $self = shift;
FS::payby->can_payby($self->table, $self->payby)
my $self = shift;
FS::payby->can_payby($self->table, $self->payby)
- or return "Illegal payby
"
;
+ or return "Illegal payby
: ". $self->payby
;
if ( $self->payby eq 'CARD' ) {
my $payinfo = $self->payinfo;
if ( $self->payby eq 'CARD' ) {
my $payinfo = $self->payinfo;