#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use POSIX qw(
    ceil
);

use Opals::Context;

use Opals::Report qw(
    rpt_getFineTransList
);

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

my $cgi = CGI->new;
my $input = $cgi->Vars();
    
    my $rptType     =$input->{'rptType'};
    my $from        =$input->{'from'};
    my $to          =$input->{'to'} ;
    my $pNum        =$input->{'pNum'};
    my $pSize       =$input->{'pSize'};
    my $sort        =$input->{'sort'};
    my $sortDir     =$input->{'sortDir'};

    my $recordList = rpt_getFineTransList($dbh,$rptType,$from,$to,$pNum,$pSize,$sort,$sortDir);
    my $chargeListJSON = to_json($recordList, {pretty => 1})  ;
    print "Content-type: text/plain\n\n";
    print  $chargeListJSON;


################################################################################