#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use JSON;
use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);

use Opals::Transaction qw(
    trans_getUnpaidChargeList
);

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

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


my $transList = trans_getUnpaidChargeList($dbh, $uid);
my $unpaidChargeList= to_json({unpaidFineList=>$transList},{pretty => 1});
 

print "Content-type: text/plain\n\n";
print   $unpaidChargeList;