#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use JSON;

use Opals::Context;
use Opals::Session qw(
    SessionHdl_exist_bc
    SessionHdl_getSSID
);
use Opals::Report qw(
    rpt_getItemListByStatus
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

    my $cgi         = CGI->new;
    my $input       = $cgi->Vars();
    my $from        =$input->{'from'};
    my $to          =$input->{'to'} ;
    my $status      =$input->{'status'};
    my $pNum        =$input->{'pNum'};
    my $pSize       =$input->{'pSize'};
    my $sort        =$input->{'sort'};
    my $sortDir     =$input->{'sortDir'};
    my $idOnly      =$input->{'idOnly'};
    my $incIll      =$input->{'incIll'};
    my $incTmp      =$input->{'incTmp'};
    my $incEbook    =$input->{'incEbook'};
    my $incUserInfo =$input->{'incUserInfo'};
    my $filter      =$input->{'filter'};
    my $rsCacheFid  =$input->{'rsCacheFid'};
   
    my $rs = rpt_getItemListByStatus($dbh,$status,$from,$to,$pNum,$pSize,$sort,$sortDir,$incIll,$incTmp,$incEbook,$incUserInfo,$filter,$rsCacheFid);
    my $varName="itemStatusList_$status" ;
    my $ssid =SessionHdl_getSSID($cgi);
    foreach my $i(@{$rs->{'itemList'}}){
       if(SessionHdl_exist_bc($dbh,$ssid,$varName,$i->{'barcode'})){
           $i->{'selected'}='true';
       }
    }
    my $rsJSON = to_json($rs,{pretty=>1});

    print "Content-type: text/plain\n\n";
    print  $rsJSON;

#------------------------------------------------------------------------------