#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Encode;

use Opals::Context;

use Opals::Date qw(
    date_now
);
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_preference
);
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);
use Opals::ILL qw{
    ill_res_receiveLoan
    ill_res_lookup
    ill_res_lookup_union
    ill_res_lookupBy_loanId
};


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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookie, $template) = tmpl_read(
            {
                dbh             => $dbh,
                cgi             => $cgi,
                tmplFile        => 'ill/responderCheckin.tmpl',
                reqPermission   => 'circ_ill_filter',
            }
    );
my $today = date_now();
my $op       = $input->{'op'};
my $inputVal = $input->{'illLookup'};

if($inputVal && $inputVal ne''){
    my $rList =[];
    $rList =ill_res_lookup($dbh,$inputVal,['loan']);
    if(scalar(@$rList)==0){
        $rList = ill_res_lookup_union($dbh,{illId=>$inputVal,
                                            loanId=>$inputVal,
                                            barcode=>$inputVal,
                                            status=>"lFilled,bReturned"});
    }

    my $rListCnt = scalar(@$rList); 
    if($rListCnt ==1){
       @$rList[0]->{'checked'} =1;
    }
    $template->param(rList    => $rList,
                 inputVal => $inputVal );


}

#------------------------------------------------------------------
$template->param(hlpUrl     => Opals::Constant->getHlpUrl('ill') );
  my $marc21EditMsgMap =loc_getMsgFile('ill/ill.msg');
  loc_write($template,$marc21EditMsgMap);
tmpl_write($dbh, $cgi, $cookie, $template);
#$dbh->disconnect();