+ }
+
+}
+
+=item payby_payinfo_pretty [ LOCALE ]
+
+Returns payment method and information (suitably masked, if applicable) as
+a human-readable string, such as:
+
+ Card #54xxxxxxxxxxxx32
+
+or
+
+ Check #119006
+
+=cut
+
+sub payby_payinfo_pretty {
+ my $self = shift;
+ my $locale = shift;
+ my $lh = FS::L10N->get_handle($locale);
+ if ( $self->payby eq 'CARD' ) {
+ $lh->maketext('Card #') . $self->paymask;
+ } elsif ( $self->payby eq 'CHEK' ) {
+ $lh->maketext('E-check acct#') . $self->payinfo;
+ } elsif ( $self->payby eq 'BILL' ) {
+ $lh->maketext('Check #') . $self->payinfo;
+ } elsif ( $self->payby eq 'PREP' ) {
+ $lh->maketext('Prepaid card #') . $self->payinfo;
+ } elsif ( $self->payby eq 'CASH' ) {
+ $lh->maketext('Cash') . ' ' . $self->payinfo;
+ } elsif ( $self->payby eq 'WEST' ) {
+ # does Western Union localize their name?
+ $lh->maketext('Western Union');
+ } elsif ( $self->payby eq 'MCRD' ) {
+ $lh->maketext('Manual credit card');
+ } elsif ( $self->payby eq 'PPAL' ) {
+ $lh->maketext('PayPal transaction#') . $self->order_number;