#!/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 = ('Delete Fees' => 'Delete Fees',
'Main' => 'Main',
'Fees' => 'Fees',
'Withdrawn Students' => 'Withdrawn Students',
'No' => 'No',
'Delete Charges' => 'Delete Charges',
'Current Students' => 'Current Students',
'Record(s) Deleted' => 'Record(s) Deleted',
'Delete More Records' => 'Delete More Records',
'Error' => 'Error',
);
my $self = 'assessdeled.pl';
use DBI;
use CGI;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = CGI->new;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Page Header
my $title = $lex{'Delete Fees'};
print qq{$doctype\n$title
$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{$lex{'Fees'} ]\n};
print qq{
$title
\n};
if ( not $arr{studnum} ) {
showStartPage();
} else {
if ( not $arr{deleteflag} ) {
selectTransactions( $arr{studnum} );
} else {
# remove extra hash elements
delete $arr{deleteflag};
delete $arr{studnum};
deleteTransactions();
}
}
#---------------------
sub selectTransactions {
#---------------------
my $studnum = shift;
# Display 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;
print qq{
$firstname $lastname
\n};
# Find and display the transactions
$sth = $dbh->prepare("select id, trans_date, name, description, total
from fees_jrl where trans_type = 'chg' and paid_id is NULL and studnum = ?");
$sth->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
# Start form and table
print qq{\n};
print qq{\n};
exit;
}
#----------------
sub showStartPage {
#----------------
# Find outstanding Bills
my $sth1 = $dbh->prepare("select lastname, firstname from studentall
where studnum = ?");
my $sth = $dbh->prepare("select distinct studnum from fees_jrl as f
where f.trans_type = 'chg' and f.paid_id is NULL and f.studnum != ''");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my %students;
while ( my $studnum = $sth->fetchrow ) {
$sth1->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth1->fetchrow;
$students{"$lastname:$firstname:$studnum"} = $studnum;
}
my $sth2 = $dbh->prepare("select count(*) from student
where studnum = ?");
my (@active, @inactive);
foreach my $key ( sort keys %students ) {
my ($ln, $fn, $studnum ) = split /:/, $key;
$sth2->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
if ( $sth2->fetchrow ) { # if true (1), then active student
push @active, $studnum;
} else { # withdrawn
push @inactive, $studnum;
}
}
# Now parse each array, starting with withdrawn.
print qq{
$lex{'Withdrawn Students'}
\n};
print qq{
\n};
if ( not @inactive ) { # no withdrawn students
print qq{
$lex{No} $lex{'Withdrawn Students'}
\n};
} else {
foreach my $studnum ( @inactive ) {
$sth1->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth1->fetchrow;
print qq{
$firstname $lastname
\n};
print qq{\n};
print qq{
\n};
}
}
print qq{
\n};
# Now do active students
print qq{
$lex{'Current Students'}
\n};
print qq{
\n};
if ( not @active ) { # no Active students
print qq{
$lex{No} $lex{'Current Students'}
\n};
} else {
foreach my $studnum ( @active ) {
$sth1->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth1->fetchrow;
print qq{