#!/usr/bin/perl

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

use Opals::Context;

use Opals::Date qw(
    date_f005
);
use Opals::Template qw(
    tmpl_read
    tmpl_write
);



use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);
use JSON;

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        => 'marc21/quickItemList.tmpl',
                reqPermission   => 'marc_edit|marc_add',
            }
    );


my $loginuid = $template->param('curUserId');
my $self = $ENV{'SCRIPT_NAME'};
my $qItemList=[];
my $pagesize = 20;
my $pNum = $input->{'pNum'};
$pNum = 1 if ( !$pNum );

my $dateFrom= $input->{'statFrom'};
my $dateTo  = $input->{'statTo'};
my $sort    = $input->{'sort'};
my $dir     = $input->{'dir'};
   $dir       = '' if ( !$dir );
   if ( !$sort ){
      $sort = 'titleSort' ;
      $dir  ="desc";
   }

if ($permission && ($permission->{'marc_edit'} || $permission->{'marc_add'})) {
    my $pageoffset = $pNum;
    if ( !$pageoffset ) {
        $pageoffset = 0;
    }
    else {
        $pageoffset = ($pNum - 1) * $pagesize;
    }

  my $sql = "select i.rid, i.callNumber,i.dateImport,i.barcode,i.typeId ,m.title,m.titleSort, m.author,m.recFormat,
                    m.pubPlace,m.pubName,m.pubDate,m.pubDateSort
             from   opl_marcRecord m 
                    inner join opl_item i on i.rid=m.rid
             where  (m.tempIll ='temporary' ||  m.tempIll = 'ILL') && i.barcode not regexp '___' order by rid ";
    my $sth = $dbh->prepare($sql);
    $sth->execute();
    while (my $r = $sth->fetchrow_hashref) {
         push @$qItemList, $r;
    }
    
}
   $template->param(qItemList   =>to_json($qItemList));


my $msgValMap={};
$template->param(hlpUrl     => Opals::Constant->getHlpUrl('quickItemEntry') );
my $marc21EditMsgMap =loc_getMsgFile('marc21/edit.msg');
loc_write($template,$marc21EditMsgMap);
tmpl_write($dbh, $cgi, $cookie, $template);
##############################################################################