#!/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 = ('Assess Fees' => 'Assess Fees', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Main' => 'Main', 'Fee' => 'Fee', 'Fees' => 'Fees', 'Subject-Section' => 'Subject-Section', 'Name' => 'Name', 'Description' => 'Description', 'Amount' => 'Amount', 'Group' => 'Group', 'Predefined' => 'Predefined', 'New' => 'New', 'Date' => 'Date', 'Create New' => 'Create New', 'Continue' => 'Continue', 'Blank=All' => 'Blank=All', 'Student' => 'Student', 'Select' => 'Select', 'Checked' => 'Checked', 'Chk' => 'Chk', 'Predefined Fees' => 'Predefined Fees', 'Name' => 'Name', 'Description' => 'Description', 'Amount' => 'Amount', 'Select' => 'Select', 'All' => 'All', 'Student Number' => 'Student Number', 'Error' => 'Error', 'Assessment' => 'Assessment', 'Charges' => 'Charges', 'Confirm' => 'Confirm', 'Transaction' => 'Transaction', 'Data' => 'Data', 'Save' => 'Save', 'Record(s) Stored' => 'Record(s) Stored', 'Students' => 'Students', 'Not Found' => 'Not Found', ); my $self = 'assessfees.pl'; my $rounding = 2; use CGI; use DBI; use Number::Format qw(:all); eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } eval require "../../etc/fees.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } # calc current date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $checked = $arr{checked}; delete $arr{checked}; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Show page Header my $title = "$lex{'Assess Fees'}"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Fees} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { # Set Basic Transaction Parameters delete $arr{page}; if ( $arr{assesstype} eq $lex{'Create New'} ) { createNew(); } elsif ( $arr{assesstype} eq $lex{'Predefined Fees'} ) { usePredefined(); } else { print qq{

$lex{'Not Found'}

\n}; print qq{\n}; exit; } } elsif ( $arr{page} == 2 ) { # Select students, confirm taxes delete $arr{page}; chooseStudents(); } elsif ( $arr{page} == 3 ) { # Show confirmation page delete $arr{page}; showConfirmation(); } elsif ( $arr{page} == 4 ) { # Write records to fees journal delete $arr{page}; writeRecords(); } else { # Do nothing at all... } #------------------- sub showConfirmation { #------------------- #foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } print qq{

$lex{Confirm} $lex{Charges}

\n}; # Setup the form and start of table. print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $key ( keys %arr) { print qq{\n}; } # Show Confirmation of these 4 values my $amount = $arr{amount}; my $date = $arr{date}; my $description = $arr{description}; my $name = $arr{name}; delete $arr{name}; delete $arr{description}; delete $arr{date}; delete $arr{amount}; for my $i ( 1..4 ) { my $name = 'tax'. $i; delete $arr{$name}; } print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; my $sth = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); print qq{\n}; # Now confirmation of students. foreach my $studnum ( sort keys %arr) { $sth->execute( $studnum ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth->fetchrow; print qq{\n}; } print qq{\n}; print qq{

$lex{Transaction} $lex{Data}
$lex{Name} $name
$lex{Description} $description
$lex{Date} $date
$lex{Amount} $amount
$lex{Students}
$lastname, $firstname ($studnum)
}; print qq{

\n}; exit; } #---------------- sub showStartPage { #---------------- # Setup the form and start of table. print qq{\n}; print qq{\n}; exit; } #---------------- sub usePredefined { #---------------- print qq{

$lex{Select} $lex{'Predefined Fees'}

\n}; print qq{\n}; print qq{}; print qq{\n}; # First load and display the predefined ones... my $sth = $dbh->prepare("select * from fees_predefined order by name"); $sth->execute; if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my %groups = ( 'grade' => $lex{Grade}, 'homeroom' => $lex{Homeroom}, 'studnum' => $lex{'Student Number'} ); # Loop through all predefined values. while ( my ($id, $name, $description, $amount, $discount, $tax1_flag, $tax2_flag, $tax3_flag, $tax4_flag, $group_name, $group_value ) = $sth->fetchrow ) { my $gname = $groups{$group_name}; $gname .= " - $group_value"; print qq{\n}; print qq{\n}; } print qq{

$lex{Name}	$lex{Description}	$lex{Amount}	$lex{Group}	$lex{Select}
$name	$description	$amount	$gname	}; print qq{ \n}; print qq{\n}; print qq{\n}; print qq{ \n}; print $lex{Chk}; print qq{\n}; print qq{

\n}; exit; } # end of usePredefined; #------------ sub createNew { # Create a New Assessment from scratch. #------------ # Setup the form and start of table. print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Tax values from $f_Tax1, $f_Tax2, etc. for my $i (1..4) { my $taxname = 'f_Tax'. $i; if ( $$taxname{'rate'} ) { my $fieldname = 'tax'. $i. '_flag'; print qq{\n}; } } print qq{\n}; print qq{\n}; # Print Submit Row print qq{\n}; print qq{

$lex{Date}	\n}; print qq{\n}; print qq{
$lex{Fee} $lex{Name}	\n}; print qq{\n}; print qq{
$lex{Description}	\n}; print qq{\n}; print qq{
$lex{Amount}	\n}; print qq{\n}; print qq{
$$taxname{'name'}	\n}; print qq{\n}; print qq{
$lex{Group}	\n}; print qq{ }; print qq{$lex{'Blank=All'}
$lex{Checked}	\n}; print qq{\n}; print qq{
}; print qq{

\n}; exit; } #----------------- sub chooseStudents { # Choose students to add assessments for. #----------------- # foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } if ( $arr{predefined} ) { # We are using predefined values for transaction my $sth = $dbh->prepare("select * from fees_predefined where id = ?"); $sth->execute( $arr{predefined} ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } ( $id, $arr{name}, $arr{description}, $arr{amount}, $discount, $arr{tax1_flag}, $arr{tax2_flag}, $arr{tax3_flag}, $arr{tax4_flag}, $arr{group_name}, $arr{group_value} ) = $sth->fetchrow; # Note: $id, $discount not in %arr hash. delete $arr{predefined}; } # Setup the form and start of table. print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Show transaction information if ( not exists $arr{date} ) { $arr{date} = $currdate; } print qq{\n}; print qq{\n}; print qq{\n}; my $amount = format_number($arr{amount}, $rounding, $rounding ); print qq{\n}; for my $i ( 1..4 ) { my $fieldname = 'tax'. $i. '_flag'; my $taxname = 'f_Tax'. $i; if ( $arr{$fieldname} ) { my $taxrate = $$taxname{rate}; my $taxamount = format_number( ($amount * $taxrate ), $rounding, $rounding); print qq{\n}; } } # separator print qq{\n}; print qq{\n}; print qq{\n}; # Select students, sorted by lastname, firstname, my $select; if ( $arr{group_name} ) { my @values = (split / /, $arr{group_value}); if ( @values ) { $select = 'where '; $first = 1; foreach my $value ( @values ) { $value = $dbh->quote( $value ); if ( not $first ) { $select .= ' or '; } $select .= "$arr{group_name} = $value "; $first = 0; } } } #if ($select) { print qq{Select: $select
\n"; } my $sth = $dbh->prepare("select lastname, firstname, studnum from student $select order by lastname, firstname"); $sth->execute; if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } while ( my ($lastname, $firstname, $studnum) = $sth->fetchrow ) { print qq{\n}; print qq{\n}; } # Print Submit Row print qq{\n}; print qq{


$lex{Date}	\n}; print qq{
$lex{Fee} $lex{Name}	\n}; print qq{$arr{name}
$lex{Description}	\n}; print qq{$arr{description}
$lex{Amount}	\n}; print qq{$amount
$$taxname{'name'}	\n}; print qq{$taxamount ($amount x $taxrate)\n}; print qq{\n}; print qq{

$lex{Student}	$lex{Select}
$lastname, $firstname ($studnum)	}; print qq{
}; print qq{

\n}; exit; } #--------------- sub writeRecords { #--------------- my $date = $dbh->quote( $arr{date} ); delete $arr{date}; my $name = $dbh->quote( $arr{name} ); delete $arr{name}; my $description = $dbh->quote( $arr{description} ); delete $arr{description}; my $total = $arr{amount}; # get starting total here; my $amount = $dbh->quote( $arr{amount} ); delete $arr{amount}; # put tax values and index into %taxes my %taxes; for my $i (1..4) { my $fieldname = 'tax'. $i; if ( $arr{$fieldname} ) { $taxes{$i} = $arr{$fieldname}; delete $arr{$fieldname}; } } # fill in any missing tax fields (max is 4) my %taxname; for my $i (1..4) { if ( $taxes{$i} ) { $total += $taxes{$i}; $taxes{$i} = round( $taxes{$i}, $rounding ); #print qq{Tax: $taxes{$i}
\n}; $taxes{$i} = $dbh->quote( $taxes{$i} ); $taxname{$i} = $dbh->quote( $tax[$i]->{name} ); } else { $taxes{$i} = $sql{default}; $taxname{$i} = $sql{default}; } } $total = round( $total, $rounding ); #print qq{The total is: $total
\n}; foreach my $studnum ( keys %arr ) { my $sth = $dbh->prepare("insert into fees_jrl values( $sql{default}, $studnum, $date, 'chg', $name, $description, $amount, $taxes{1}, $taxname{1}, $taxes{2}, $taxname{2}, $taxes{3}, $taxname{3}, $taxes{4}, $taxname{4}, $total, $sql{default}, $sql{default} ) "); # last fields are: paid_id and receipt $sth->execute; if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } } print qq{

$lex{'Record(s) Stored'}

\n}; print qq{

[ $lex{'Assess Fees'} | }; print qq{$lex{Fees} ]

\n}; print qq{\n}; exit; } # End of updateRecord