#!/usr/bin/perl
# Copyright 2001-2009 Leslie Richardson
# This file is part of Open Admin for Schools.
use DBI;
use CGI qw\escape unescape\;
use Number::Format qw(round);
use Time::JulianDay;
my %lex = ('Lunch Search' => 'Lunch Search',
'Fees' => 'Fees',
'Main' => 'Main',
'Name' => 'Name',
'Date' => 'Date',
'Fee Type' => 'Fee Type',
'Meal' => 'Meal',
'Amount' => 'Amount',
'Delete' => 'Delete',
'Paid' => 'Paid',
'Balance' => 'Balance',
'Student' => 'Student',
'Edit' => 'Edit',
'Delete' => 'Delete',
'Error' => 'Error',
'No Student(s) Found',
'Period' => 'Period',
'Reason' => 'Reason',
'Subject' => 'Subject',
);
my $self = 'lunchsearch.pl';
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
my $today = "$year-$mon-$mday";
my $currjd = julian_day( split('-', $today));
# Figure out yesterday
my $prevjd = $currjd - 1;
my $yesterday = join('-', inverse_julian_day($prevjd));
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);
# Print Page header.
my $title = $lex{'Lunch Search'};
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};
my $sth;
my $student;
if ( $arr{student} ) {
$student = $arr{student};
if ($student =~ /\d+/) { # we have a student number
push @studnum, $student; # only a single value
} else { # we have some text.
($lastname,$firstname) = split /\,/, $student;
$firstname =~ s/^\s*//;
$lastname =~ s/^\s*//;
if ($lastname and $firstname){ # both entered.
$sth = $dbh->prepare("select studnum from studentall
where lastname = '$lastname' and
firstname = '$firstname'");
} elsif ($lastname and not $firstname){ # only lastname (no comma)
if (length($lastname) == 2){ # search by initials: fi, li.
$fi = substr($lastname,0,1); $li = substr($lastname,1,1);
$sth = $dbh->prepare("select studnum from studentall
where lastname $sql{like} '$li%' and firstname $sql{like} '$fi%'");
} else {
$sth = $dbh->prepare("select studnum from studentall
where lastname = '$lastname' order by firstname");
}
}
}
if ($sth) { # sth should be set above in one of 3 places
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
while ( my $studnum = $sth->fetchrow) {
push @studnum, $studnum;
}
}
printStudents(@studnum);
print "\n";
exit;
}
# End of student only.
# otherwise we have a date...
if ($arr{date}) {
if ($arr{date} eq "today"){
$sth = $dbh->prepare("select * from attend, student
where attend.studentid = student.studnum and
attend.absdate = '$today'
order by attend.absdate desc, student.lastname,
student.firstname,attend.period");
}
if ($arr{date} eq "yesterday"){
$sth = $dbh->prepare("select * from attend, student
where attend.studentid = student.studnum and
attend.absdate = '$yesterday'
order by attend.absdate desc, student.lastname,
student.firstname, attend.period");
$yesterday = substr($yesterday,0,4) . "-" . substr($yesterday,4,2) . "-" . substr($yesterday,6,2);
$currdate = $yesterday;
}
}
if ($arr{datestart}) { # We select a date range
$arr{datestart} = "20" . $arr{datestart};
$arr{dateend} = "20" . $arr{dateend};
$sth = $dbh->prepare("select * from attend, student
where attend.studentid = student.studnum and
to_days(attend.absdate) >= to_days($arr{datestart}) and
to_days(attend.absdate) <= to_days($arr{dateend})
order by attend.absdate desc, student.lastname,
student.firstname, attend.period");
}
if (not $sth) { # if no dates, then halt with Error
print $lex{'No Student(s) Found'};
print "