#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Admin for Schools.
# Open Admin for Schools is free software; you can redistribute it
# and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
my %lex = ('Payments' => 'Payments',
'Main' => 'Main',
'Fees' => 'Fees',
'Student' => 'Student',
'Search' => 'Search',
'No Student(s) Found' => 'No Student(s) Found',
'Last,First/Last/Initials/Studnum' => 'Last,First/Last/Initials/Studnum',
'Accept Payment' => 'Accept Payment',
'Date' => 'Date',
'Total Payment' => 'Total Payment',
'Recalculate' => 'Recalculate',
'Payment' => 'Payment',
'Received On Acct' => 'Received On Acct',
'Action' => 'Action',
'Payment' => 'Payment',
'Print Receipt' => 'Print Receipt',
'Payment Completed' => 'Payment Completed',
'Failed' => 'Failed',
'Receipt Number' => 'Receipt Number',
'Payee' => 'Payee',
'Error' => 'Error',
'Balance Due' => 'Balance Due',
'No Unpaid Bills Found' => 'No Unpaid Bills Found',
'Type' => 'Type',
'Continue' => 'Continue',
'Another' => 'Another',
'Description' => 'Description',
'Pay On Account' => 'Pay On Account',
'Pay Particular Charges' => 'Pay Particular Charges',
'Type' => 'Type',
'Paper Size' => 'Paper Size',
'Font Size' => 'Font Size',
'Letter' => 'Letter',
'Legal' => 'Legal',
'A4' => 'A4',
'A5' => 'A5',
'Save' => 'Save',
);
my $self = 'payment.pl';
use DBI;
use CGI;
use Number::Format qw(:all);
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my @time = localtime(time);
my $year = $time[5] + 1900;
my $month = $time[4] + 1;
my $currdate = "$year-$month-$time[3]";
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Print Start of HTML Document.
my $title = $lex{Payment};
print qq{$doctype\n$title
\n};
# Load jQuery
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | };
print qq{$lex{Fees} ]\n};
if ( not $arr{page} ) {
showSearchForm();
} elsif ( $arr{page} == 1 ) {
selectStudent( $arr{student} );
} elsif ( $arr{page} == 2 ) {
getTransType( $arr{studnum} );
} elsif ( $arr{page} == 3 and $arr{paytype} eq 'roa' ) {
getROA( $arr{studnum} );
} elsif ( $arr{page} == 3 and $arr{paytype} eq 'pay' ) {
getPay( $arr{studnum} );
} elsif ( $arr{page} == 4 ) {
if ( $arr{submit} eq $lex{Recalculate} ) { # recalculating...
getPay( $arr{studnum} );
} else {
acceptPayment();
}
}
#---------------
sub getTransType { # get type of transaction (roa or pay)
#---------------
my $studnum = shift;
# Get student name.
my $sth = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
$sth->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
# Get student transactions
# paid_id is null until full payment made.
my $sth = $dbh->prepare("select id, total, trans_type from fees_jrl where studnum = ? and
paid_id is null and (trans_type = 'chg' or trans_type = 'roa') order by trans_date");
# FIX: remove the transtype selection later
$sth->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($id, $total, $type) = $sth->fetchrow ) {
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
if ( $type eq 'roa' ) {
push @trans, $id;
} else {
push @pay, $id;
}
}
push @trans, @pay; # put the roa transactions at start of the array.
print qq{
$lex{Payment} $lex{Type}
\n};
print qq{\n};
exit;
} # End of getTransType
#---------
sub getROA { # get roa payment values
#---------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my $studnum = shift;
# Get student name.
my $sth = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
$sth->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
# Get student transactions
# paid_id is null until full payment made.
my $sth = $dbh->prepare("select id, total, trans_type from fees_jrl where studnum = ? and
paid_id is null and (trans_type = 'chg' or trans_type = 'roa') order by trans_date");
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
$sth->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($id, $total, $type) = $sth->fetchrow ) {
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
if ( $type eq 'roa' ) {
push @trans, $id;
} else {
push @pay, $id;
}
}
push @trans, @pay; # put the roa transactions at start of the array.
print qq{