#!/usr/bin/perl
# Copyright 2001-2010 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 = ( 'Date or Meal missing. Please try again.' => 'Date or Meal missing. Please try again.',
'Groups' => 'Groups',
'Group by' => 'Group by',
'Continue' => 'Continue',
'Lunch Attendance Entry' => 'Lunch Attendance Entry',
'Homeroom' => 'Homeroom',
'Check All' => 'Check All',
'Grade' => 'Grade',
'Main' => 'Main',
'Save Lunch Entry' => 'Save Lunch Entry',
'Blank=All' => 'Blank=All',
'Separate with Spaces' => 'Separate with Spaces',
'Meal' => 'Meal',
'Fees' => 'Fees',
'Error' => 'Error',
'Record(s) Stored' => 'Record(s) Stored',
);
my $self = 'lunchadd.pl';
use CGI;
use DBI;
use Cwd;
my $defaultFeeType = 'Full';
my %cost = ('Full' => 1.50, 'Reduced' => '0.25', 'Free' => '0');
# The field in the student table holding the lunch status value
my $lunchfield = 'lunchstatus';
my @meals = qw(Breakfast Lunch After-School);
# 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";
# Get current dir so know what path for config files.
my $configpath;
my $teachermode;
if ( getcwd() =~ /tcgi/ ){ # we are in tcgi
$teachermode = 1;
$configpath = '..'; # go back one to get to etc.
} else {
$configpath = '../..'; # go back two to get to etc.
}
eval require "$configpath/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 $checked = $arr{checked};
delete $arr{checked};
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 "$doctype\n". $lex{'Lunch Attendance Entry'}. "\n";
print "";
print "$chartype\n[ ". $lex{Main}. " |\n";
print "". $lex{Fees}. " ]\n";
print "
". $lex{'Lunch Attendance Entry'}. "
\n";
if ($arr{writeflag}){ # Write values and die;
updateRecord();
die;
}
if (not $arr{grouping}){ # first entry; show options.
showOptions();
die;
}
# Display a button to select all check boxes
#print "\n";
# Check Passed Values
#print " \n";
#foreach $key (keys %arr){ print "Key: $key VAL: $arr{$key} \n"; }
my $grouping = $arr{grouping};
my $selectgrp;
my $orderby;
# define orderby
if ($grouping eq $lex{Grade}){
$orderby = 'order by grade, lastname, firstname';
$selectgrp = 'grade';
} elsif ($grouping eq $lex{Homeroom}){
$orderby = 'order by homeroom, lastname, firstname';
$selectgrp = 'homeroom';
} else {
print "Programming Error!\n";
die;
}
my $select;
# define select
if ($arr{group}){ # We have some group(s)
$arr{group} =~ s/^\s+//; # strip leading spaces
$arr{group} =~ s/\s+/ /g; # remove multiple spaces.
@grp = split /\s/,$arr{group};
if (@grp){
$select = 'where ';
$firstflag = 1;
foreach my $g (@grp){
if (not $firstflag){ $select .= ' or ';} else { $firstflag = 0;}
$select .= "$selectgrp = '$g'";
}
}
}
#print "ORDERBY: $orderby \n";
#print "SELECT: $select \n";
$sth = $dbh->prepare("select studnum, lastname, firstname, $lunchfield
from student $select $orderby");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
# Setup the form and start of table.
print "
\n";
# ========= Functions =============
#---------------
sub updateRecord {
#---------------
delete $arr{writeflag}; # don't need no writeflag
my $date = $arr{date};
delete $arr{date};
my $meal = $arr{meal};
delete $arr{meal};
if (not $date or not $meal) {
print "
". $lex{'Date or Meal missing. Please try again.'}. "
\n";
die;
}
#foreach my $key (keys %arr){ print "K: $key VAL: $arr{$key} \n"; }
# die;
foreach my $rec (keys %arr){
#print "K: $rec VAL: $arr{$rec} \n";
# Split into field values
my ($studnum, $paid, $feeType) = split /:/, $rec;
# Get cost of lunch
my $cost = $cost{$feeType};
if ($paid eq 'P') { $paid = "'Y'"; } else { $paid = $sql{default}; }
#print "SN:$studnum P:$paid F:$feeType \n";
$sth = $dbh->prepare("insert into attend_lunch values(
$sql{default},'$studnum','$date','$feeType','$meal','$cost',$paid,$sql{default})");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
}
print "". $lex{'Record(s) Stored'}. ".\n";
print "