#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use JSON;
use Opals::Context;
use Opals::Constant;
use Opals::Circulation qw(
    circ_getRecInfo
);
use Opals::Date qw( 
    date_getDeadLineDate
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

use Time::localtime;
my $tm = localtime;
my $todayStr = sprintf("%04d-%02d-%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday);


my $cgi   = CGI->new;
my $input = $cgi->Vars();
my $reseveInfo={uid=>$input->{'uid'},rid=>$input->{'rid'},reservable=>1};

my $recInfo = circ_getRecInfo($dbh, $input->{'rid'}, $input->{'uid'});
if(defined $recInfo && $recInfo->{'reservePeriod'}>0 ){
    $reseveInfo->{'title'} = $recInfo->{'title'};
    $reseveInfo->{'defaultExpiry'} = substr(date_getDeadLineDate($recInfo->{'reservePeriod'},$todayStr),0,10);
}
else{
    $reseveInfo->{'reservable'}=0;
}
print "Content-type: text/plain\n\n";

print   to_json($reseveInfo);