#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Digest::SHA qw(
    sha1_base64
    sha1_hex
);

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_preference
);

use Opals::Tb_Transactions qw(
    trans_recordFine
    trans_getFineDetail
    trans_getBalance
    
);
use Opals::Tb_Fines qw(
    fine_getUserByOdl_id
);

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi      = CGI->new;
my $input    = $cgi->Vars();


my ($status,$errorCode,$errorMsg)    ;
my ($permission, $cookie, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'ajax/circ/saveFine.tmpl',
        reqPermission   => 'tb_circ_loan|tb_circ_return',
    }
);
if ($permission && ($permission->{'tb_circ_loan'} 
                  ||$permission->{'tb_circ_return'})) {
   my $syspref = tmpl_preference($dbh);
   my $material =$input->{'materialSel'};

   my @daysOverdue = ($cgi->param('daysOverdue'));
   my @material     = ($cgi->param('material'));
   my @odl_id       = ($cgi->param('odl_id'));
   my @rate         = ($cgi->param('rate'));
   my @fgvAmount    = ($cgi->param('fgvAmount'));
   my @odl_type     = ($cgi->param('odl_type'));
   my @charge     = ($cgi->param('charge'));

   my @fineTransList =();
   my $loginuid     = $template->param('curUserId');
   my $n= scalar(@odl_id);

  for(my $i=0; $i< scalar(@odl_id); $i++){
      my $odl_id       = @odl_id[$i];
      my $user         = fine_getUserByOdl_id($dbh,$odl_id);
      my $uid          = $user->{'uid'};
      my $material     = @material[$i]; 
      my $rate         = @rate[$i]; 
      my $forgiven     = @fgvAmount[$i];
      my $daysOverdue  = @daysOverdue[$i];
      my $charge       =@charge[$i];

        if(@odl_type[$i] !~ m/^overdue$/i){
          $daysOverdue=0;
      }
      if($odl_id> 0 && $uid>0){
          my $tid = trans_recordFine($dbh,$uid,$odl_id,$rate,$material,$daysOverdue,$forgiven,$charge,$loginuid);
          if($tid && $tid >0){
                my $trans =trans_getFineDetail($dbh,$tid);
                if($trans && $trans->{'tid'} ==$tid){
                    push @fineTransList,$trans;
                }
          }
      }
     
  }   

  $template->param(fineTransList =>\@fineTransList );
    
}
 
tmpl_write($dbh, $cgi, $cookie, $template);
#------------------------------------------------------------------------------