#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Check Days Missing' => 'Check Days Missing',
'Main' => 'Main',
'Attendance' => 'Attendance',
'Name' => 'Name',
'Days' => 'Days',
'HRm' => 'HRm',
'Grade' => 'Grade',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
'Periods Per Day' => 'Periods per Day',
'Error' => 'Error',
'Not Found' => 'Not Found',
'Continue' => 'Continue',
'Maximum Days Missing' => 'Maximum Days Missing',
'Reason' => 'Reason',
);
use DBI;
use CGI;
use Number::Format qw(:all);
my $self = 'attscanlite.pl';
# This script looks for student attendance records with a reason field
# containing "Absent Unexcused". If you change the reason types, this
# script won't work. Change the value of the variable below.
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@
\n";
die $lex{Error}. ": $@\n";
}
my $absreason = $absentUnexcused; # comes from admin.conf
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
if ( length( $mon ) == 1 ) { $mon = '0'. $mon; }
if ( length( $mday ) == 1 ) { $mday = '0'. $mday; }
my $currdate = "$year-$mon-$mday";
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $title = $lex{'Check Days Missing'};
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 {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; }
my ($sy,$sm,$sd) = split '-', $arr{startdate};
my $startdate = $month[$sm]. " $sd, $sy";
my ($ey,$em,$ed) = split '-', $arr{enddate};
my $enddate = $month[$em]. " $ed, $ey";
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
my $select;
if ( $arr{startdate} ) {
$select = "and to_days(attend.absdate) >= to_days('$arr{startdate}')".
" and to_days(attend.absdate) <= to_days('$arr{enddate}')";
}
my $sth = $dbh->prepare("select student.studnum, count(*) as missed,
student.firstname, student.lastname, student.homeroom,
student.grade from attend, student
where attend.studentid = student.studnum and
attend.reason = '$absreason' $select group by attend.studentid
order by missed desc, student.lastname, student.firstname");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
print qq{\n};
print qq{| $lex{'Start Date'} | $startdate |
\n};
print qq{| $lex{'End Date'} | $enddate |
\n};
print qq{| $lex{Days} | $arr{maxdays} |
\n};
print qq{
\n};
print qq{\n};
print qq{| $lex{Name} | $lex{Days} | $lex{HRm} | \n};
print qq{$lex{Grade} |
|---|
\n};
while ( my ( $studnum, $count, $firstname, $lastname, $homeroom, $grade ) = $sth->fetchrow ) {
my $ppd = $g_ppd{ $grade };
if ( not $ppd ) {
my $sth1 = $dbh->prepare("select studid from student where studnum = ?");
$sth1->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $id = $sth1->fetchrow;
print qq{$lex{'Periods Per Day'} / $lex{Grade} $lex{'Not Found'}: };
print qq{ $firstname $lastname };
print qq{ $lex{Grade} $grade
\n};
print qq{\n};
exit;
}
my $absent = format_number( $count / $ppd, 2,2);
if ( $absent >= $arr{maxdays} ) {
print qq{| $lastname, $firstname | $absent | };
print qq{$homeroom | $grade |
\n};
}
}
print qq{