diff options
author | ivan <ivan> | 2007-01-10 08:56:07 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-01-10 08:56:07 +0000 |
commit | 26db267c3c357a5b2846653643454c2469f2a762 (patch) | |
tree | 7bf600e9d26f66f14c5d4e1625a458e2f5941cb8 /FS/FS/payinfo_Mixin.pm | |
parent | 5dcbdb568e7aadabf49b8821a7d50f508a675a7d (diff) |
fix harmless warning: Use of uninitialized value in string ne at /usr/local/share/perl/5.8.4/FS/payinfo_Mixin.pm line 116
Diffstat (limited to 'FS/FS/payinfo_Mixin.pm')
-rw-r--r-- | FS/FS/payinfo_Mixin.pm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index 847fcc6..2d7b4ff 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -110,21 +110,26 @@ sub paycvv { =cut sub paymask { - my($self,$paymask)=@_; + my($self, $paymask) = @_; - - if ($paymask ne '') { - # I hate this little bit of magic... I don't expect it to cause a problem, but who knows... - # If the payinfo is passed in masked then ignore it and set it based on the payinfo - # The only guy that should call this in this way is... $self->payinfo + if ( defined($paymask) && $paymask ne '' ) { + # I hate this little bit of magic... I don't expect it to cause a problem, + # but who knows... If the payinfo is passed in masked then ignore it and + # set it based on the payinfo. The only guy that should call this in this + # way is... $self->payinfo $self->setfield('paymask', $self->mask_payinfo()); + } else { + $paymask=$self->getfield('paymask'); if (!defined($paymask) || $paymask eq '') { - # Generate it if it's blank - Note that we're not going to set it - just generate + # Generate it if it's blank - Note that we're not going to set it - just + # generate $paymask = $self->mask_payinfo(); } + } + return $paymask; } |