#!/usr/bin/perl

use strict;
use CGI;

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

use Opals::Date qw(
    date_time_text
);

use Date::Calc qw(
    Add_Delta_DHMS
);
use Opals::Eq_Circulation qw(
  
    circ_getItemInfo
    circ_getItemStatus
);

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

my $cgi = CGI->new;
# $cgi->param('aaa') returns an array of aaa
my $input = $cgi->Vars();
#my $op = $input->{'op'};
my ($permission, $cookieList, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'eqmnt/test.tmpl',
#        reqPermission   => 'reqPermission1|reqPermission2|etc.',
#        op              => $op,
    }
);
my $itemInfo        = circ_getItemInfo($dbh, 'NB0001',762);
my $itemCircStatus  = circ_getItemStatus($dbh, {barcode=>'NB0001', uid=>762}); 
my $l_duedate =  $itemCircStatus->{'l_duedate'};
my $renewalPeriod = $itemInfo->{'renewalPeriod'};
my $dueDate = getDeadLineDate(10,$l_duedate);

$template->param( 
    l_duedate => $l_duedate,
    renewalPeriod => $renewalPeriod,
    dueDate       => $dueDate,
);

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

sub getDeadLineDate{
    my ($Dh, $duedate) = @_;
    my $retDate;
=item
    if ($length <= 0){
        return $retDate =  `date -d'+%Y-%m-%d %H:%M:%S'`;
    }
    return $retDate =  `date -d '$length hour' '+%Y-%m-%d %H:%M:%S'`;
=cut
my ($year,$month,$day,$hour,$min,$sec) = ($duedate =~ /^(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)$/);
#my ($yyyy,$mm,$dd,$hh,$mm,$ss) = ($1,$2,$3,$4,$5,$6);

my ($DYear, $DMonth,$DDay,$DHour,$DMin,$DSec) = Add_Delta_DHMS($year,$month,$day,$hour,$min,$sec, 0,$Dh,0,0);
    $retDate = sprintf("%04d-%02d-%02d %02d:%02d %02d" ,$DYear, $DMonth,$DDay,$DHour,$DMin,$DSec);
    return $retDate;
}