#!/usr/bin/perl

use strict;
use CGI;

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

use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

use Opals::RecordInfoHTML qw(
    getReserveShelfHTML
);

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        => 'rs/rsView.tmpl',
    }
);
my $rs;

if ($permission && $permission->{'circ_rsrv'}) {
   $template->param(editable=>1);
}
   my $shelfId     = $input->{'shelfId'};
   my $sortBy =$input->{'sortBy'}   if($input->{'sortBy'} && $input->{'sortBy'} ne '');
   my $groupId= $input->{'groupId'} if(defined $input->{'groupId'} && $input->{'groupId'});
   #my $op          = $input->{'op'};
   my $prtOpt={};
   $prtOpt->{'circStats'}=1 ;#if($input->{'circStats'} && $input->{'circStats'} eq 1);
   $prtOpt->{'bookCover'}=1 ;#if($input->{'bookCover'} && $input->{'bookCover'} eq 1);
   $prtOpt->{'showUserList'}=1 if($input->{'showUserList'} && $input->{'showUserList'} eq 1);
   $prtOpt->{'showBibChk'}=0;
   $prtOpt->{'showUserList'}=1;
   $prtOpt->{'sortBy'}=$sortBy ;
   $prtOpt->{'groupId'}=$groupId ;

   if($shelfId && $shelfId>0){         
        $rs=getReserveShelfHTML($dbh,$shelfId,$prtOpt);
        if($rs ne ''){
            $template->param(shelfId    =>$shelfId,
                             rsContent  =>$rs,
                             circStats  =>1,
                             bookCover  =>1,
                             groupId    =>$groupId,
                             sortBy    =>$sortBy,
                             hlpUrl     => Opals::Constant->getHlpUrl('srList'));
        }
        else{
            $template->param(errorSR=>1);
        }
   }#END if($shelfId && $shelfId>0)


#=======================================================
my $msgValMap ={};
my $msgMap            =loc_getMsgFile('util/reserveShelf.msg',$msgValMap);
loc_write($template,$msgMap);

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

#======================================================================