my $curuser = $FS::CurrentUser::CurrentUser;
-my $payby = $cust_pay_void->payby;
-
-my $payinfo;
-if ( $payby eq 'CARD' ) {
- $payinfo = $cust_pay_void->paymask;
-} elsif ( $payby eq 'CHEK' ) {
- my( $account, $aba ) = split('@', $cust_pay_void->paymask );
- $payinfo = mt("ABA [_1], Acct #[_2]",$aba,$account);
-} else {
- $payinfo = $cust_pay_void->payinfo;
-}
-
+my ($payby,$payinfo) = translate_payinfo($cust_pay_void);
$payby = translate_payby($payby,$payinfo);
my $info = $payby ? "($payby$payinfo)" : '';
}
my $unvoid = '';
-if ( $cust_pay_void->closed !~ /^Y/i
- && $curuser->access_right('Unvoid')
- )
-{
- $unvoid = qq! (<A HREF="javascript:areyousure('!.
- qq!${p}misc/unvoid-cust_pay_void.cgi?!. $cust_pay_void->paynum.
- qq!', 'Are you sure you want to unvoid this payment?')"!.
- qq! TITLE="!.mt('Unvoid this payment from the database').
- ( $cust_pay_void->payby =~ /^(CARD|CHEK)$/
- ? ' ('.mt('do not send anything to the payment gateway') .')'
- : ''
- ). '"'.
- '>'.mt('unvoid').'</A>)';
-}
+my $unvoidmsg = $cust_pay_void->payby =~ /^(CARD|CHEK)$/
+ ? ' ('.emt('do not send anything to the payment gateway') .')'
+ : '';
+$unvoid = areyousure_link("${p}misc/unvoid-cust_pay_void.cgi?".$cust_pay_void->paynum,
+ emt('Are you sure you want to unvoid this payment?'),
+ emt('Unvoid this payment from the database') . $unvoidmsg,
+ emt('unvoid')
+ )
+ if ( $cust_pay_void->closed !~ /^Y/i && $curuser->access_right('Unvoid') );
</%init>