httemplate/view/cust_main/payment_history/credit.html

   1 <% $credit. ' '. $reason. $desc. $change_pkg. $apply. $delete. $unapply. $void %>
   2 <%init>
   3
   4 my( $cust_credit, %opt ) = @_;
   5
   6 my $date_format = $opt{'date_format'} || '%m/%d/%Y';
   7
   8 my @cust_credit_bill = $cust_credit->cust_credit_bill;
   9 my @cust_credit_refund = $cust_credit->cust_credit_refund;
  10
  11 my $desc = '';
  12 if ( $opt{'pkg-balances'} && $cust_credit->pkgnum ) {
  13   my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_credit->pkgnum } );
  14   $desc .= ' for '. $cust_pkg->pkg_label_long;
  15 }
  16
  17 my %cust_credit_bill_width = ('width' => 392);
  18 my %cust_credit_bill_height = ();
  19 if ( $opt{'cust_credit_bill_pkg-manual'} ) {
  20   %cust_credit_bill_width = ('width' => 592);
  21   %cust_credit_bill_height = ('height' => 436);
  22 }
  23
  24 my( $apply, $ext ) = ( '', '', '', '' );
  25 my $credit = emt("Credit by [_1]", $cust_credit->otaker );
  26 if (    scalar(@cust_credit_bill)   == 0
  27      && scalar(@cust_credit_refund) == 0 ) {
  28   #completely unapplied
  29   $credit = '<B><FONT COLOR="#FF0000">'
  30         . emt("Unapplied Credit by [_1]", $cust_credit->otaker )
  31         . '</FONT></B>';
  32   if ( $opt{'Apply credit'} ) {
  33     if ( $opt{total_owed} > 0 ) {
  34       $apply = ' ('.
  35                include( '/elements/popup_link.html',
  36                           'label'    => emt('apply'),
  37                           'action'   => "${p}edit/cust_credit_bill.cgi?".
  38                                         $cust_credit->crednum,
  39                           'actionlabel' => emt('Apply credit'),
  40                           %cust_credit_bill_width,
  41                           %cust_credit_bill_height,
  42                       ).
  43                 ')';
  44     }
  45     if ( $opt{total_unapplied_refunds} > 0 ) {
  46       $apply.= ' ('.
  47                include( '/elements/popup_link.html',
  48                           'label'    => emt('apply refund'),
  49                           'action'   => "${p}edit/cust_credit_refund.cgi?".
  50                                         $cust_credit->crednum,
  51                           'actionlabel' => emt('Apply credit to refund'),
  52                           'width'    => 392,
  53                       ).
  54                ')';
  55     }
  56   }
  57 } elsif (    scalar(@cust_credit_bill)   == 1
  58           && scalar(@cust_credit_refund) == 0
  59           && $cust_credit->credited == 0      ) {
  60   #applied to one invoice, the usual situation
  61   $desc .= ' '. $cust_credit_bill[0]->applied_to_invoice;
  62 } elsif (    scalar(@cust_credit_bill)   == 0
  63           && scalar(@cust_credit_refund) == 1
  64           && $cust_credit->credited == 0      ) {
  65   #applied to one refund
  66   $desc .= emt(" refunded on [_1]", time2str($date_format, $cust_credit_refund[0]->_date) );
  67 } else {
  68   #complicated
  69   $desc .= '<BR>';
  70   foreach my $app ( sort { $a->_date <=> $b->_date }
  71                          ( @cust_credit_bill, @cust_credit_refund ) ) {
  72     if ( $app->isa('FS::cust_credit_bill') ) {
  73       $desc .= '&nbsp;&nbsp;' . $opt{money_char} . $app->amount . ' '
  74                     . $app->applied_to_invoice . '<BR>';
  75     } elsif ( $app->isa('FS::cust_credit_refund') ) {
  76       $desc .= '&nbsp;&nbsp;' .
  77                emt("[_1][_2] refunded on [_3]", $opt{money_char}, $app->amount,
  78                     time2str($date_format, $app->_date) ) . '<BR>';
  79     } else {
  80       die "$app is not a FS::cust_credit_bill or a FS::cust_credit_refund";
  81     }
  82   }
  83   if ( $cust_credit->credited > 0 ) {
  84     $desc .= '&nbsp;&nbsp;<B><FONT COLOR="#FF0000">'.
  85               emt("[_1][_2] unapplied",$opt{money_char},$cust_credit->credited).
  86               '</FONT></B>';
  87     if ( $opt{'Apply credit'} ) {
  88       if ( $opt{total_owed} > 0 ) {
  89         $apply = ' ('.
  90                  include( '/elements/popup_link.html',
  91                             'label'       => emt('apply'),
  92                             'action'      => "${p}edit/cust_credit_bill.cgi?".
  93                                              $cust_credit->crednum,
  94                             'actionlabel' => emt('Apply credit'),
  95                             %cust_credit_bill_width,
  96                             %cust_credit_bill_height,
  97                         ).
  98                  ')';
  99       }
 100       if ( $opt{total_unapplied_refunds} > 0 ) {
 101         $apply.= ' ('.
 102                  include( '/elements/popup_link.html',
 103                             'label'       => emt('apply refund'),
 104                             'action'      => "${p}edit/cust_credit_refund.cgi?".
 105                                              $cust_credit->crednum,
 106                             'actionlabel' => emt('Apply credit to refund'),
 107                             'width'       => 392,
 108                         ).
 109                  ')';
 110       }
 111     }
 112     $desc .= '<BR>';
 113   }
 114 }
 115
 116 my $change_pkg = '';
 117 if ( $apply && $opt{'pkg-balances'} && $cust_credit->pkgnum ) {
 118   $change_pkg =
 119   ' ('. include('/elements/popup_link.html',
 120                   'label'       => emt('change package'),
 121                   'action'      => "${p}edit/cust_credit-pkgnum.html?crednum=".
 122                                     $cust_credit->crednum,
 123                   'actionlabel' => emt('Change credit package'),
 124                   'width'       => 763,
 125                ).
 126    ')';
 127 }
 128
 129 my $void = '';
 130 $void = ' ('.
 131                include( '/elements/popup_link.html',
 132                     'label'    => emt('void'),
 133                     'action'   => "${p}misc/void-cust_credit.html?".
 134                                   $cust_credit->crednum,
 135                     'actionlabel' => emt('Void credit'),
 136                 ).
 137           ')'
 138   if $cust_credit->closed !~ /^Y/i
 139   && $opt{'Void credit'};
 140
 141 my $delete = '';
 142 $delete = areyousure_link("${p}misc/delete-cust_credit.cgi?".$cust_credit->crednum,
 143                             emt('Are you sure you want to delete this credit?'),
 144                             '',
 145                             emt('delete')
 146                           )
 147   if $cust_credit->closed !~ /^Y/i
 148   && $opt{'Delete credit'};
 149
 150 my $unapply = '';
 151
 152 if ($opt{'Unapply credit'} && !$cust_credit->closed) {
 153   $unapply = areyousure_link("${p}misc/unapply-cust_credit.cgi?".$cust_credit->crednum,
 154                               emt('Are you sure you want to unapply this credit from invoices?'),
 155                               emt('Keep this credit, but dissociate it from the invoices it is currently applied against'),
 156                               emt('unapply')
 157                             )
 158     if @cust_credit_bill;
 159   $unapply .= areyousure_link("${p}misc/unapply-cust_credit_refund.cgi?".$cust_credit->crednum,
 160                                emt('Are you sure you want to unapply this credit from refunds?'),
 161                                emt('Keep this credit, but dissociate it from the refunds it is currently applied to'),
 162                                emt('unapply refunds')
 163                              )
 164     if $cust_credit->refund_to_unapply;
 165 }
 166
 167 my $reason = $cust_credit->reason;
 168 $reason = $reason ? " ($reason)" : '';
 169
 170 </%init>
 171