#!/usr/bin/perl 

use lib "/www/opals-working/module";;
use Opals::Context('/etc/opals/conf/opl_ha');
use strict;
use CGI;
use DBI;
use Opals::Date qw(
    date_parse
);
use JSON;
use Opals::Template qw(
    tmpl_preference
);
use Opals::Report qw(
    rpt_getMissingItem
);


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

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $pref    = tmpl_preference($dbh);
my $from= '2014-04-07';
my $to  = '2015-12-31';
my $pNum=1;
my $pagesize=10;
my($sort,$sortDir,$incIll,$incTmp,$incEbook,$incUserInfo,$rsCacheFid)=(undef,undef,undef,undef,undef,undef,undef);
$rsCacheFid="4a60929b-16e6-4cc4-9337-d588fc5c9e9f";
$sort="rid";
$sortDir="asc";
my $rs = rpt_getMissingItem($dbh,$from,$to,$pNum,$pagesize,$sort,$sortDir,$incIll,$incTmp,$incEbook,$incUserInfo,$rsCacheFid);
print to_json($rs,{pretty=>1}),"\n";