X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fview%2Fcust_main%2Fpayment_history%2Fvoided_payment.html;h=e295f9b3b93ec85dc697f396ac9487289eef543a;hb=55c7e3cc18a45620f48ae62d3bc044a830bd8c95;hp=08469dbe915b6341fd42d88c49873225beb08eed;hpb=4396080ed2829ae0595f1fd777f39d090c9bcd7c;p=freeside.git
diff --git a/httemplate/view/cust_main/payment_history/voided_payment.html b/httemplate/view/cust_main/payment_history/voided_payment.html
index 08469dbe9..e295f9b3b 100644
--- a/httemplate/view/cust_main/payment_history/voided_payment.html
+++ b/httemplate/view/cust_main/payment_history/voided_payment.html
@@ -1,22 +1,25 @@
-Payment <% $info %>
-voided <% time2str("%D", $cust_pay_void->void_date) %>
-by <% $cust_pay_void->otaker %><% $unvoid %>
+<% mt("Payment [_1] by [_2]", $info, $cust_pay_void->otaker ) |h %>
+voided
+% my $void_user = $cust_pay_void->void_access_user;
+% if ($void_user) {
+ by <% $void_user->username %>
+% }
+% my $reason = $cust_pay_void->reason;
+% if ($reason) {
+ (<% $reason |h %>)
+% }
+<% mt("on [_1]", time2str($date_format, $cust_pay_void->void_date) ) |h %>
+
+<% $unvoid %>
<%init>
my( $cust_pay_void, %opt ) = @_;
-my $curuser = $FS::CurrentUser::CurrentUser;
+my $date_format = $opt{'date_format'} || '%m/%d/%Y';
-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 ($payby,$payinfo) = translate_payinfo($cust_pay_void);
+$payby = translate_payby($payby,$payinfo);
+my $info = $payby ? "($payby$payinfo)" : '';
if ( $opt{'pkg-balances'} && $cust_pay_void->pkgnum ) {
my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_pay_void->pkgnum } );
@@ -24,19 +27,14 @@ if ( $opt{'pkg-balances'} && $cust_pay_void->pkgnum ) {
}
my $unvoid = '';
-if ( $cust_pay_void->closed !~ /^Y/i
- && $curuser->access_right('Unvoid')
- )
-{
- $unvoid = qq! (unvoid)!;
-}
+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 && $opt{'Unvoid payments'};
%init>