#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use JSON;
use Opals::Circulation qw(
    circ_getDuedayList
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi      = CGI->new;
my $input    = $cgi->Vars();
my $uid      = $input->{"uid"};

my ($status,$errorCode,$errorMsg)    ;
my @ddList     = circ_getDuedayList($dbh,$uid);


print "Content-type: text/plain\n\n";
print  to_json({duedateList=>@ddList},{pretty=>1});