#!/usr/bin/perl
use strict;
use Opals::Context;
use JSON;
use Opals::Template qw(
tmpl_preference
);
use Opals::User qw(
user_getInformationById
);
use Opals::Tb_Transactions qw(
trans_getDetailBalance
trans_getReceiptDetail
trans_getUnpaidFineList
trans_getTaxTable
trans_getPreviousBalance
trans_getBalance
);
use Opals::Date qw(
date_now
date_text
);
use Opals::Locale qw(
loc_getMsgFile
);
use Time::localtime;
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
my $cgi = CGI->new;
my $input = $cgi->Vars();
my $todayStr = date_now();
my $syspref = tmpl_preference($dbh);
my $lang = $syspref->{'lang'} || 'en';
$todayStr = date_text($todayStr,1,$lang),
my $msgMap =loc_getMsgFile('circ/payment.msg',{});
my $pid = $input->{'pid'};
my $emptyLine = " | |
";
my $hrLine = " |
|
";
my $receipt = _trans_getReceiptDetailById($dbh,$pid);
my $uInfo = "| $msgMap->{'nameTxt'} | $receipt->{'userInfo'}->{'firstname'} $receipt->{'userInfo'}->{'lastname'} |
|---|
";
$uInfo .= "| $msgMap->{'userIDBcTxt'} | $receipt->{'userInfo'}->{'userbarcode'} |
|---|
";
$uInfo .= "| $msgMap->{'homeroomTxt'} | $receipt->{'userInfo'}->{'homeroom'} |
";
$uInfo .= "| $msgMap->{'teacherTxt'} | $receipt->{'userInfo'}->{'teacher'} |
|---|
";
my $transHead = " | $msgMap->{'barcodeTxt'} | $msgMap->{'titleTxt'} | $msgMap->{'typeTxt'} | $msgMap->{'amountTxt'} |
|---|
";
my $transList;
foreach my $t(@{$receipt->{'transList'}}){
$transList .= "";
$transList .= " | ".$t->{'barcode'}." | ".$t->{'title'}." | ". uc($t->{'type'}) ." | " .$t->{'fineAmount'}." | " ;
$transList .= "
";
}
my $transDate;
$transDate = " | .$msgMap->{'trancDateTxt'} : ". date_text($receipt->{'ondate'},1,$lang) ." | |
";
my $summary;
$summary = " | $msgMap->{'paymentTxt'} | \$".$receipt->{'received'}." |
";
$summary .= " | $msgMap->{'paidTypeTxt'} | ".$receipt->{'payMethod'}." |
";
$summary .= " | $msgMap->{'amountPaidTxt'} | \$".$receipt->{'tender'}." |
";
$summary .= " | $msgMap->{'changeTxt'} | \$".$receipt->{'changeAmnt'}." |
";
my $balance;
$balance = " | $msgMap->{'remainingBalanceTxt'} | \$".$receipt->{'balance'}." |
";
my $strHTML = <<_HTML_;
$todayStr
$syspref->{'libname'}
$uInfo
$hrLine
$transHead
$emptyLine
$transList
$hrLine
$emptyLine
$transDate
$summary
$emptyLine
$balance
_HTML_
print "Content-type: text/html\n\n";
print $strHTML;
sub _trans_getReceiptDetailById {
my ($dbh,$pid) = @_;
my $receipt;
my $sth_receipt = $dbh->prepare(<<_STH_);
select * from tb_paymentReceipt where pid=?
_STH_
my $sth_trans=$dbh->prepare(<<_STH_);
select t.tid,t.ptid,t.code,t.amount,t.balance,d.odl_id,d.rate,d.fineAmount,o.type
from tb_transactions t
inner join tb_transactiondetail d on d.tid= t.ptid
inner join tb_odl o on o.odl_id=d.odl_id
where t.pid=? && t.uid=?
_STH_
$sth_receipt->execute($pid);
if($receipt=$sth_receipt->fetchrow_hashref){
$sth_trans->execute($pid,$receipt->{'uid'});
while (my $t=$sth_trans->fetchrow_hashref){
my $itemInfo = getItemInfo($dbh,$t->{'odl_id'});
$t->{'title'} = $itemInfo->{'title'};
$t->{'barcode'} = $itemInfo->{'barcode'};
$t->{'type'} = uc($t->{'type'});
push @{$receipt->{'transList'}},$t;
}
my $balance =trans_getBalance($dbh,$receipt->{'uid'});
$receipt->{'balance'} =sprintf("%.2f",$balance);
my ($userInfo, $guardian) = user_getInformationById($dbh, $receipt->{'uid'});
$receipt->{'userInfo'} = {
userbarcode => $userInfo->{'userbarcode'},
firstname => $userInfo->{'firstname'},
lastname => $userInfo->{'lastname'},
homerome => $userInfo->{'homename'},
teacher => $userInfo->{'teacher'}
}
}
return ($receipt);
}
sub getItemInfo(){
my ($dbh,$odl_id)=@_;
my $query="select l.barcode,r.fVal as title from tb_loan l inner join tb_odl o on o.idloan=l.id
inner join tb_items i on l.barcode=i.barcode inner join tb_records r on i.rid=r.rid && r.fId = '245_a'
where o.odl_id=?";
my $sth = $dbh->prepare($query);
$sth->execute($odl_id) ;
my $rec=$sth->fetchrow_hashref;
$sth->finish;
return $rec;
}