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)" : ''; if ( $opt{'pkg-balances'} && $cust_pay_void->pkgnum ) { my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_pay_void->pkgnum } ); $info .= ' for '. $cust_pkg->pkg_label_long; } my $unvoid = ''; if ( $cust_pay_void->closed !~ /^Y/i && $curuser->access_right('Unvoid') ) { $unvoid = qq! (unvoid)!; }