#!/usr/bin/perl

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

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

use Time::localtime;
use Opals::Date qw(date_text);
use Opals::Circulation qw(
    circ_GetOnloanNumber
    circ_GetOverdueNumber
    circ_GetReserveNumber
    circ_getRecCircStatus
);
use Opals::Transaction qw(
    trans_getBalance
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

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


my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'report/reqReserveList.tmpl',
        }
);
my $pref = tmpl_preference($dbh);
my $libType = $pref->{'libraryType'} || 'k-12';

my $todayStr = sprintf("%04d-%02d-%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday);
my $pNum    = $input->{'pNum'}|1;
my $pSize   = $input->{'pSize'}|20;
my $sort    = $input->{'sortBy'}|"idReq";
my $sortDir = $input->{'sortDir'}|"asc";
my $status  = $input->{'status'}; # waiting|expired|cancel
my $offset=($pNum-1)*$pSize;
my $reqList = {
    waiting=>[],#getRequest_waiting($dbh,$sort,$sortDir,$offset,$pSize),
    cancel =>[],
    expired=>[],
    process=>[],
    reserve=>[],
    hold   =>[]
    };

my $reqListJSON = to_json($reqList,{pretty=>1})  ;
$template->param(reqList =>$reqListJSON, libType=>$libType); 


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

#-------------------------------------------------------------------------------------------------
__END_OF_FILE: