#!/usr/bin/perl
# Copyright 2001-2022 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.
use DBI;
use CGI;
use Number::Format qw(round);
my %lex = ('Missing Days' => 'Missing Days',
'or' => 'or',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
'Continue' => 'Continue',
'Days Open' => 'Days Open',
'Ethnic Category' => 'Ethnic Category',
'Students' => 'Students',
'Student-Days' => 'Student-Days',
'Absent' => 'Absent',
'Enrolled' => 'Enrolled',
'Percentage' => 'Percentage',
'Attendance' => 'Attendance',
'Periods per Day' => 'Periods per Day',
'Error' => 'Error',
'Ethnic Attendance' => 'Ethnic Attendance',
'Date' => 'Date',
'Days' => 'Days',
'Main' => 'Main',
);
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $periods;
# Find largest Periods per Day (PPD) and use that.
foreach my $pd (keys %g_ppd) { # %g_ppd defined in admin.conf
if ( $g_ppd{$pd} > $periods ) { $periods = $g_ppd{$pd}; }
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
$wday++;
my $currdate = "$year-$mon-$mday";
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $title = $lex{'Ethnic Attendance'};
print qq{$doctype\n$title\n};
print qq{\n};
if ( not $arr{page} ) { # load javascript library
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
}
print qq{$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{$lex{Attendance} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showReport();
}
#-------------
sub showReport {
#-------------
my $days = $arr{days};
my $startdate = $arr{startdate};
my $enddate = $arr{enddate};
if ( not $days or not $startdate or not $enddate ) {
print qq{
$lex{'Missing Days'} $lex{or} $lex{Date}
\n};
print "\n";
exit;
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
# First Count Ethnic Categories and stuff into ethnic hash.
my %ethnic;
my $sth1 = $dbh->prepare("select ethnic, count(*) from student
where ethnic != '' and ethnic is not null group by ethnic");
$sth1->execute;
while ( my ( $eth, $count ) = $sth1->fetchrow ) {
$ethnic{$eth} = $count;
}
# foreach my $key ( sort keys %ethnic ) { print "K:$key V:$ethnic{$key} \n"; }
# Now count attendance
my $sth = $dbh->prepare("select s.ethnic, count(a.attid) from student as s, attend as a
where a.studentid = s.studnum and
to_days(a.absdate) >= to_days('$startdate') and
to_days(a.absdate) <= to_days('$enddate') and
a.reason = '$absentUnexcused'
group by s.ethnic");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my %attend;
while ( my ( $eth, $count ) = $sth->fetchrow ) {
$attend{$eth} = $count;
}
# foreach my $key ( sort keys %attend ) { print "K:$key V:$attend{$key} \n"; }
# Print Dates, etc.
print qq{