#!/usr/bin/perl

#use utf8;
use strict;

use Encode;
use LWP::UserAgent;
use HTTP::Request::Common;

use CGI;
use JSON;

use Opals::Context;
use Opals::Constant;

use Opals::Template qw(
    tmpl_read
    tmpl_write
);
use Opals::Equipment qw(
    
    eq_record_findByRId
    eq_item_addUpdateBarCodeItemType
    eq_item_addUpdate

);
use Opals::Eq_Search qw(
      
    eq_category_getList
    eq_category_getListById

);
use Opals::Eq_Circulation qw(

    circ_getLoanListByRid

);


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

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

my ($permission, $cookieList, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'eqmnt/ajax/saveItem.tmpl',
        #reqPermission   => 'eq_record_edit',
    }
);
 my $categoryList    = eq_category_getList($dbh);

    my $data     = $input->{'data'};
    my $data_perl = from_json($data,{utf8=>1});
    my $rec;
    if (_saveItem($dbh,$data_perl)){
        my ($rid, $recordInfo) = eq_record_findByRId($dbh,{recordId=>$data_perl->{'rid'}});
        my $itemList = _eq_item_findByRId($dbh, $data_perl->{'rid'});
        my $onLoanList =  circ_getLoanListByRid($dbh,$rid);

        foreach my $i(@$itemList){
            $i->{'onLoan'} = "";
            foreach my $ol (@$onLoanList){
                if ($ol->{'barcode'} eq $i->{'barcode'}){
                $i->{'onLoan'} = 'onLoan';
                }
            }
        }
        my @iListSorted = sort { $a->{'iid'} cmp $b->{'iid'} || $a->{'copyNo'} cmp $b->{'copyNo'}} @$itemList;
        $rec = _formatRecInfo($recordInfo,\@iListSorted);
    }

    my $recInfo_json = to_json($rec, {pretty=>1});
    $template->param (
        json        =>  $recInfo_json,
    );

tmpl_write($dbh, $cgi, $cookieList, $template);


sub _saveItem {
    
    my ($dbh,$data) = @_;
    my $rid= $data->{'rid'};
    my $barcode = $data->{'barcode'};
    my $copyNo  = $data->{'copyNo'};
    my $typeId  = $data->{'typeId'};
    my $iid     = $data->{'iid'};
    my $params =  { rid=>$rid,
                    iid=>$iid,
                    barcode=>$barcode,
                    typeId=>$typeId, 
                    copyNo=>$copyNo
                    };
    eq_item_addUpdateBarCodeItemType($dbh, $params);
    foreach my $f(@{$data->{'fields'}}){
        my $id = $f->{'id'};
        my $val = $f->{'value'};
        $params = {iid=>$iid,rid=>$rid, sfId=>$id,sfValue=>$val};
        eq_item_addUpdate($dbh,$params);
    }
    return 1;
    
}

sub _formatRecInfo {
    my ($rec,$items) = @_;
    my $ret;
    my @fields=();
    my $i=0;
    foreach my $r (@{$rec}){
        if (! $i || $i > 1){
            $ret->{'rid'}   = $r->{'rid'};
            $ret->{'name'}  = $r->{'rname'};
            $ret->{'container'} = ($r->{'container'})? $r->{'container'}:"";
            $ret->{'category'}= $r->{'category'};
            $ret->{'categoryStr'}= $r->{'categoryStr'};
        }
        push @fields, {
            name    => $r->{'name'},
            id      => $r->{'fId'},
            value   => $r->{'fValue'},
        }
    }
    my @tmp = split(',', $ret->{'category'});
    foreach my $i (@{$categoryList}){
        $i->{'selected'} = "false";
        foreach my $t (@tmp){
            if ($t == $i->{'id'}){
                $i->{'selected'} ="true";
            }
        }
        foreach my $k (@{$i->{'children'}}){
            $k->{'selected'} = "false";
            foreach my $t (@tmp){
                if ($t == $k->{'id'}){
                    $k->{'selected'} ="true";
                }
            }
        }
    }
    my @sorted = sort { $a->{'name'} cmp $b->{'name'}} @fields;
    $ret->{'categories'} = $categoryList;
    $ret->{'fields'} = \@sorted;
    $ret->{'items'} = $items;
    return $ret;
}
sub _eq_item_findByRId{
    
    my ($dbh, $recordId)=@_;
    return undef if ($recordId eq '');
    my $sth = $dbh->prepare("select iid, barcode,typeId,copyNo,i.createdDate,r.container from eq_items i inner join eq_records r using(rid) where rid=? && i.barcode not regexp '^\_\_\_'");
    my $sql = " SELECT  d.*, fdt.dataType, fdt.maxVal, i.id as i_iid, i.rid, i.sfId, i.sfValue 
                FROM    eq_def as d 
                LEFT OUTER JOIN eq_fieldDataType fdt on d.fieldType=fdt.id
                LEFT OUTER JOIN eq_itemFields as i on i.sfId = d.id && i.rid = ? && i.iid = ? 
                WHERE   d.defType = 'item'  && showOnRecBrief = '1'";
    my $sth_item = $dbh->prepare($sql);
    $sth->execute($recordId);
    my @itemList;
    my $i=0;
    while (my ($iid,$barcode,$typeId,$copyNo,$createdDate,$container) = $sth->fetchrow_array()){
       $sth_item->execute($recordId, $iid);
       my @fields;
       my $fCount = 0;
       while(my $f = $sth_item->fetchrow_hashref()){
            push @fields, {
                id              => ($f->{'sfId'})? $f->{sfId}:$f->{'id'},
                value           => $f->{'sfValue'}, 
                name            => $f->{'name'},
                url_link        => ($f->{'fieldType'} eq '2')?1:0,
                fieldType       => $f->{'fieldType'},
                dataType        => lc($f->{'dataType'}) || "text",
                fieldSize       => $f->{'fieldSize'} || 10,
                showOnRecBrief  => $f->{'showOnRecBrief'},
            };
            if ($f->{'display'}){
                $fCount++;
            }
       }
       push @itemList, {
            rid     => $recordId,
            iid     => $iid,
            barcode => $barcode,
            typeId  => $typeId,
            copyNo  => $copyNo,
            cDate   => $createdDate,
            container=>$container, 
            fields  => \@fields
       };
       $i++;
    }
    $sth->finish;
    $sth_item->finish;
    return \@itemList;
}