X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fpayment_history%2Fcredit.html;h=db2e5e582c1f0c901d8bda676bb6a9a60a893964;hb=b3c70d709fd646ef355d49a4e87151c99ee413e9;hp=2deb27564ff5fe6aa90ed1cd11779408b0fb4105;hpb=5e5c408ded395ae70c4ce3878ed260674253cccd;p=freeside.git diff --git a/httemplate/view/cust_main/payment_history/credit.html b/httemplate/view/cust_main/payment_history/credit.html index 2deb27564..db2e5e582 100644 --- a/httemplate/view/cust_main/payment_history/credit.html +++ b/httemplate/view/cust_main/payment_history/credit.html @@ -1,42 +1,55 @@ -<% $pre %>Credit<% $post %> -by <% $cust_credit->otaker %><% "$reason$desc$apply$delete$unapply" %> +<% $credit. ' '. $reason. $desc. $change_pkg. $apply . $unapply. $void %> <%init> my( $cust_credit, %opt ) = @_; -my $curuser = $FS::CurrentUser::CurrentUser; +my $date_format = $opt{'date_format'} || '%m/%d/%Y'; my @cust_credit_bill = $cust_credit->cust_credit_bill; my @cust_credit_refund = $cust_credit->cust_credit_refund; -my( $pre, $post, $desc, $apply, $ext ) = ( '', '', '', '', '' ); +my $desc = ''; +if ( $opt{'pkg-balances'} && $cust_credit->pkgnum ) { + my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_credit->pkgnum } ); + $desc .= ' for '. $cust_pkg->pkg_label_long; +} + +my %cust_credit_bill_width = ('width' => 392); +my %cust_credit_bill_height = (); +if ( $opt{'cust_credit_bill_pkg-manual'} ) { + %cust_credit_bill_width = ('width' => 592); + %cust_credit_bill_height = ('height' => 436); +} + +my( $apply, $ext ) = ( '', '', '', '' ); +my $credit = emt("Credit by [_1]", $cust_credit->otaker ); if ( scalar(@cust_credit_bill) == 0 && scalar(@cust_credit_refund) == 0 ) { #completely unapplied - $pre = 'Unapplied '; - $post = ''; - if ( $curuser->access_right('Apply credit') ) { - if ( $cust_credit->cust_main->total_owed > 0 ) { + $credit = '' + . emt("Unapplied Credit by [_1]", $cust_credit->otaker ) + . ''; + if ( $opt{'Apply credit'} ) { + if ( $opt{total_owed} > 0 ) { $apply = ' ('. include( '/elements/popup_link.html', - 'label' => 'apply', + 'label' => emt('apply'), 'action' => "${p}edit/cust_credit_bill.cgi?". $cust_credit->crednum, - 'actionlabel' => 'Apply credit', - 'width' => 392, - #default# 'height' => 336, + 'actionlabel' => emt('Apply credit'), + %cust_credit_bill_width, + %cust_credit_bill_height, ). ')'; } - if ( $cust_credit->cust_main->total_unapplied_refunds > 0 ) { + if ( $opt{total_unapplied_refunds} > 0 ) { $apply.= ' ('. include( '/elements/popup_link.html', - 'label' => 'apply to refund', + 'label' => emt('apply to refund'), 'action' => "${p}edit/cust_credit_refund.cgi?". $cust_credit->crednum, - 'actionlabel' => 'Apply credit to refund', + 'actionlabel' => emt('Apply credit to refund'), 'width' => 392, - #default# 'height' => 336, ). ')'; } @@ -45,57 +58,53 @@ if ( scalar(@cust_credit_bill) == 0 && scalar(@cust_credit_refund) == 0 && $cust_credit->credited == 0 ) { #applied to one invoice, the usual situation - $desc = ' '. $cust_credit_bill[0]->applied_to_invoice; + $desc .= ' '. $cust_credit_bill[0]->applied_to_invoice; } elsif ( scalar(@cust_credit_bill) == 0 && scalar(@cust_credit_refund) == 1 && $cust_credit->credited == 0 ) { #applied to one refund - $desc = ' refunded on '. time2str("%D", $cust_credit_refund[0]->_date); + $desc .= emt(" refunded on [_1]", time2str($date_format, $cust_credit_refund[0]->_date) ); } else { #complicated - $desc = '
'; + $desc .= '
'; foreach my $app ( sort { $a->_date <=> $b->_date } ( @cust_credit_bill, @cust_credit_refund ) ) { if ( $app->isa('FS::cust_credit_bill') ) { - $desc .= '  '. - '$'. $app->amount. - ' '. $app->applied_to_invoice. - '
'; - #' on '. time2str("%D", $app->_date). + $desc .= '  ' . $opt{money_char} . $app->amount . ' ' + . $app->applied_to_invoice . '
'; } elsif ( $app->isa('FS::cust_credit_refund') ) { - $desc .= '  '. - '$'. $app->amount. - ' refunded on '. time2str("%D", $app->_date). - '
'; + $desc .= '  ' . + emt("[_1][_2] refunded on [_3]", $opt{money_char}, $app->amount, + time2str($date_format, $app->_date) ) . '
'; } else { die "$app is not a FS::cust_credit_bill or a FS::cust_credit_refund"; } } if ( $cust_credit->credited > 0 ) { - $desc .= '  $'. - $cust_credit->credited. ' unapplied'; - if ( $curuser->access_right('Apply credit') ) { - if ( $cust_credit->cust_main->total_owed > 0 ) { + $desc .= '  '. + emt("[_1][_2] unapplied",$opt{money_char},$cust_credit->credited). + ''; + if ( $opt{'Apply credit'} ) { + if ( $opt{total_owed} > 0 ) { $apply = ' ('. include( '/elements/popup_link.html', - 'label' => 'apply', + 'label' => emt('apply'), 'action' => "${p}edit/cust_credit_bill.cgi?". $cust_credit->crednum, - 'actionlabel' => 'Apply credit', - 'width' => 392, - #default# 'height' => 336, + 'actionlabel' => emt('Apply credit'), + %cust_credit_bill_width, + %cust_credit_bill_height, ). ')'; } - if ( $cust_credit->cust_main->total_unapplied_refunds > 0 ) { + if ( $opt{total_unapplied_refunds} > 0 ) { $apply.= ' ('. include( '/elements/popup_link.html', - 'label' => 'apply to refund', + 'label' => emt('apply to refund'), 'action' => "${p}edit/cust_credit_refund.cgi?". $cust_credit->crednum, - 'actionlabel' => 'Apply credit to refund', + 'actionlabel' => emt('Apply credit to refund'), 'width' => 392, - #default# 'height' => 336, ). ')'; } @@ -103,38 +112,44 @@ if ( scalar(@cust_credit_bill) == 0 $desc .= '
'; } } -# -my $delete = ''; -if ( $cust_credit->closed !~ /^Y/i - - #s'pose deleting a credit isn't bad like deleting a payment - # and this needs to be generally available until we have credit voiding.. - #&& $conf->exists('deletecredits') - && $curuser->access_right('Delete credit') - ) -{ - $delete = qq! (!. - qq!delete)!; +my $change_pkg = ''; +if ( $apply && $opt{'pkg-balances'} && $cust_credit->pkgnum ) { + $change_pkg = + ' ('. include('/elements/popup_link.html', + 'label' => emt('change package'), + 'action' => "${p}edit/cust_credit-pkgnum.html?crednum=". + $cust_credit->crednum, + 'actionlabel' => emt('Change credit package'), + 'width' => 763, + ). + ')'; } +my $void = ''; +$void = ' ('. + include( '/elements/popup_link.html', + 'label' => emt('void'), + 'action' => "${p}misc/void-cust_credit.html?". + $cust_credit->crednum, + 'actionlabel' => emt('Void credit'), + ). + ')' + if $cust_credit->closed !~ /^Y/i + && $opt{'Void credit'}; + my $unapply = ''; -if ( $cust_credit->closed !~ /^Y/i - && scalar(@cust_credit_bill) - && $curuser->access_right('Unapply credit') - ) -{ - $unapply = qq! (!. - qq!unapply)!; -} +$unapply = areyousure_link("${p}misc/unapply-cust_credit.cgi?".$cust_credit->crednum, + emt('Are you sure you want to unapply this credit?'), + '', + emt('unapply') + ) + if $cust_credit->closed !~ /^Y/i + && scalar(@cust_credit_bill) + && $opt{'Unapply credit'}; -my $reason = $cust_credit->reason - ? ' ('. $cust_credit->reason. ')' - : ''; +my $reason = $cust_credit->reason; +$reason = $reason ? " ($reason)" : '';