#!/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 = ('Change Lunch Paid' => 'Change Lunch Paid', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'View Selected' => 'View Selected', 'Select Dates' => 'Select Dates', 'Select All' => 'Select All', 'Select None' => 'Select None', 'Lunch Attendance' => 'Lunch Attendance', 'Update' => 'Update', 'Change' => 'Change', 'Name' => 'Name', 'Date' => 'Date', 'Fee Type' => 'Fee Type', 'Meal' => 'Meal', 'Amount' => 'Amount', 'Paid' => 'Paid', 'Fees' => 'Fees', 'Main' => 'Main', 'Error' => 'Error', ); my $self = 'changepaid.pl'; # - change the state of the paid field. use DBI; use CGI; use Cwd; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } 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); # Get current dir so know what CSS to display; if (getcwd() =~ /tcgi/){ # we are in tcgi $css = $tchcss; } # Print Page Header my $title = $lex{'Change Lunch Paid'}; print qq{$doctype\n$title \n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Fees} ]\n}; if ($arr{writeflag}){ # passed an id to delete... delete $arr{writeflag}; updateRecords(); print qq{\n}; exit; } print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; if (not $arr{startdate}) { showEntryPage(); exit; } if ( $arr{selectall} ) { $checked = 'CHECKED'; } elsif ( $arr{selectnone} ) { $checked = q{}; } $sth = $dbh->prepare("select * from attend_lunch where to_days(attdate) >= to_days(?) and to_days(attdate) <= to_days(?) order by attdate,studnum"); $sth->execute( $arr{startdate}, $arr{enddate} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } $rows = $sth->rows; print qq{

$title

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; my $colcolor = 'gray'; # tr colors are blue or gray; my $currdate = -1; $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); while ( my ( $id,$studnum,$attdate,$feeType,$mealType,$amount,$paid,$posted) = $sth->fetchrow ) { $sth1->execute($studnum); my ($lastname, $firstname) = $sth1->fetchrow; $prevdate = $currdate; $currdate = $attdate; if ($prevdate ne $currdate){ if ($colcolor eq 'blue'){ $colcolor = 'gray'; } else { $colcolor = 'blue'; } } print qq{\n}; print qq{\n}; print qq{\n}; } print qq{
$lex{Name}$lex{Date}$lex{'Fee Type'}$lex{Meal}$lex{Amount}$lex{Paid}$lex{Change}
$firstname $lastname ($studnum)$attdate$feeType$mealType$amount$paid}; print qq{
}; print qq{\n}; print qq{
\n}; print qq{[ Main | Top ]\n}; print qq{

}; #--------------- sub updateRecords { # update paid status of a record. #--------------- # foreach my $key (keys %arr){ print qq{KEY: $key VAL:$arr{$key}
\n}; } my $sth1 = $dbh->prepare("select paid, studnum, amount, attdate from attend_lunch where id = ?"); my $sth2 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); foreach my $id (sort keys %arr) { $sth1->execute($id); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($paid, $studnum, $amount, $attdate) = $sth1->fetchrow; $sth2->execute($studnum); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth2->fetchrow; my $newpaid; if ($paid == 1) { $newpaid = $sql{default}; } else { $newpaid = '1'; } my $sth = $dbh->prepare("update attend_lunch set paid = $newpaid where id = ? "); $sth->execute( $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } print qq{Updated $firstname $lastname - $attdate - Paid: $newpaid
\n}; } } #---------------- sub showEntryPage { #---------------- print qq{

$lex{'Select Dates'}

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{'Start Date'}}; print qq{
$lex{'End Date'}}; print qq{
}; print qq{
\n}; }