#! /usr/bin/perl
# Copyright 2001-2018 Leslie Richardson
# This file is part of Open Admin for Schools.
# based on IEP system file 'attendcheck_local.pl';
my $self = 'attscan2.pl';
my %lex = ('Attendance' => 'Attendance',
'Error' => 'Error',
'Main' => 'Main',
'Continue' => 'Continue',
'Cutoff' => 'Cutoff',
'Entry Value' => 'Entry Value',
'Percent' => 'Percent',
);
use DBI;
use CGI;
use Number::Format qw(:all);
use Cwd;
# Read config variables
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
# load attendance library
eval require "../../lib/libattend.pl";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = new CGI;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Absent/Late strings for libattend library.
my %lexi = ('Absent' => 'Absent',
'Late' => 'Late'
);
my @tim = localtime(time);
my $year = @tim[5] + 1900;
my $month = @tim[4] + 1;
my $day = @tim[3];
if (length($month) == 1){ $month = "0".$month;}
if (length($day) == 1){ $day = "0".$day;}
my $currdate = "$year-$month-$day";
# Page Header
my $title = qq{Attendance Scan 2};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{ $lex{Attendance} ] $currdate1\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}; }
# find the students that are below percentage attendance passed
# Now get the students in this school
my %sortname;
my %studs; # studs{dbase}{studnum} = record;
my $sth = $dbh->prepare("select * from student");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$sortname{"$r{lastname}$r{firstname}$r{studnum}"} = $r{studnum};
# my $studnum = $r{studnum};
$studs{$r{studnum}} = $ref;
}
# percentage attendance value
my $attend = $arr{attend};
$attend =~ s/\%//; # strip percent
if ( not $attend or $attend < 1 or $attend > 101 ) { # fail
print qq{
\n};
# Get start and end dates
my $startdate = $schoolstart;
my $enddate = $currdate;
my $termstart = $g_MTrackTerm{1}{1}{start};
# print qq{Term Start: $termstart \n};
$startdate = $termstart;
my %schooldays = mkSchoolDays($startdate, $enddate, $dbh);
# These are the school days open in each month, holidays excluded from the count.
# Loop through students in this school and get their attendance.
my %sort;
foreach my $studnum ( keys %studs ) {
my %r = %{ $studs{$studnum} };
$sort{"$r{lastname}$r{firstname}$studnum"} = $studnum;
}
my $first = 0;
my %data;
my %studavg;
my %gradeavg; # gradeavg{grade}{enrol => present =>}
my %gradeoverlimit;
# Student Loop
foreach my $key ( sort keys %sort ) {
my $studnum = $sort{$key};
my %r = %{ $studs{$studnum} };
my $grade = $r{grade};
my $ppd = $g_ppd{ $r{grade} };
if ( not $ppd ) {
print qq{
Missing Attendance Periods Per Day - SN:$studnum $r{firstname} $r{lastname}};
print qq{GR:$r{grade} DB:$db - SETTING PPD to 2 \n};
$ppd = 2;
}
if ( $first ) { # print heading.
print qq{
\n};
# Calculate the days enrolled for this student
my $ref = calcMonthlyEnrollment( $studnum, $startdate, $enddate, $dbh);
my %enrol = %$ref; # enrol{year-month} = val
if ( not $ref ) { #student not enrolled.
my $skip = scalar keys %schooldays;
# print qq{
};
# print qq{Enrollment Error: No Enrollment this school year
\n};
next;
}
my ($currmonth,$prevmonth);
my ($totalenrol, $totalpresent);
# Loop through months
foreach my $yrmo ( sort keys %schooldays ) {
my $abslate = calcMonthlyAttendance( $studnum, $yrmo, $ppd, '', \%lexi, $dbh);
my ($absent,$late ) = split(':', $abslate);
# print "ABS:$absent ";
my $pctAttendance;
if ( $enrol{$yrmo}{days} ) {
my $present = $enrol{$yrmo}{days} - $absent;
# print "PRES:$present ";
$totalpresent += $present;
$totalenrol += $enrol{$yrmo}{days};
$gradeavg{$grade}{enrolled} += $enrol{$yrmo}{days};
$gradeavg{$grade}{present} += $present;
$data{$studnum}{$yrmo} = "$present:$enrol{$yrmo}{days}";
$pctAttendance = round($present * 100 / $enrol{$yrmo}{days}, 1);
} else { # no enrollment....
# print qq{
\n};
} # end of student loop
# at this point we have %studs{studnum} = $ref to record,
# %data{studnum}{$yrmo} = present:enrolled , and
# %studavg{studnum} = avg;
# Printing Student Loop
my (%sort, @sort);
if ( $arr{namesort} ) {
foreach my $key ( sort keys %sortname ) {
my $studnum = $sortname{$key};
push @sort, $studnum;
}
} else { # average sort
foreach my $studnum ( keys %studavg ) {
my $avg = $studavg{$studnum};
$sort{"$avg$studnum"} = $studnum;
}
foreach my $key ( sort {$a <=> $b} keys %sort ) {
my $studnum = $sort{$key};
push @sort, $studnum;
}
}
#-------- Printing Loop------------------
my $first = 1;
foreach my $studnum ( @sort ) {
my $avg = $studavg{$studnum};
my %r = %{ $studs{$studnum} };
my $grade = $r{grade};
if ( $avg > $attendlimit ) {
$gradeoverlimit{$grade}++; # number of students in each grade over this % level
next;
} # skip to next student
if ( $first ) { # print heading.
print qq{
\n};
=head
# Calculate the days enrolled for this student
my $ref = calcMonthlyEnrollment( $studnum, $startdate, $enddate, $dbh);
my %enrol = %$ref; # enrol{year-month} = val
if ( not $ref ) { #student not enrolled.
my $skip = scalar keys %schooldays;
print qq{
};
print qq{Enrollment Error: No Enrollment this school year
\n};
next;
}
my ($currmonth,$prevmonth);
=cut
my ($totalenrol, $totalpresent);
# Loop through months
foreach my $yrmo ( sort keys %schooldays ) {
# my $abslate = calcMonthlyAttendance( $studnum, $yrmo, $ppd, '', \%lexi, $dbh);
# my ($absent,$late ) = split(':', $abslate);
# print "ABS:$absent ";
my ($present,$enrolled) = split(':', $data{$studnum}{$yrmo} );
my $pctAttendance;
if ( $enrolled ) {
$pctAttendance = round($present * 100 / $enrolled, 1);
} else { # no enrollment....
print qq{