diff options
Diffstat (limited to 'FS/FS/cust_refund.pm')
| -rw-r--r-- | FS/FS/cust_refund.pm | 22 |
1 files changed, 5 insertions, 17 deletions
diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index d60c01061..aa81003b1 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -260,30 +260,18 @@ sub check { $self->otaker(getotaker); - $self->SUPER::check; + ''; #no error } -=item payinfo_masked - -Returns a "masked" payinfo field with all but the last four characters replaced -by 'x'es. Useful for displaying credit cards. - -=cut - - -sub payinfo_masked { - my $self = shift; - my $payinfo = $self->payinfo; - 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4)); -} +=back +=head1 VERSION -=back +$Id: cust_refund.pm,v 1.18.4.2 2002-11-19 09:52:02 ivan Exp $ =head1 BUGS -Delete and replace methods. payinfo_masked false laziness with cust_main.pm -and cust_pay.pm +Delete and replace methods. =head1 SEE ALSO |