Payment <% $info %>
voided <% time2str("%D", $cust_pay_void->void_date) %>
by <% $cust_pay_void->otaker %><% $unvoid %>
<%init>
my( $cust_pay_void, %opt ) = @_;
my $curuser = $FS::CurrentUser::CurrentUser;
my $payby = $cust_pay_void->payby;
my $payinfo = $payby eq 'CARD'
? $cust_pay_void->paymask
: $cust_pay_void->payinfo;
$payby =~ s/^BILL$/Check #/ if $payinfo;
$payby =~ s/^CHEK$/Electronic check /;
$payby =~ s/^BILL$//;
$payby =~ s/^(CARD|COMP)$/$1 /;
my $info = $payby ? " ($payby$payinfo)" : '';
my $unvoid = '';
if ( $cust_pay_void->closed !~ /^Y/i
&& $curuser->access_right('Unvoid')
)
{
$unvoid = qq! (unvoid)!;
}
%init>