#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Phone' => 'Phone', 'Report' => 'Report', 'Student' => 'Student', 'Main' => 'Main', 'Emergency' => 'Emergency', 'Parent 1' => 'Parent 1', 'Parent 2' => 'Parent 2', 'Student' => 'Student', 'Emergency' => 'Emergency', 'HRm' => 'HRm', 'Gr' => 'Gr', 'Work' => 'Work', 'Home' => 'Home', 'Cell' => 'Cell', 'Error' => 'Error', 'Blank=All' => 'Blank=All', 'Select by' => 'Select by', 'Continue' => 'Continue', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Name' => 'Name', 'Group' => 'Group', 'Sort by' => 'Sort by', ); use DBI; use CGI; use Cwd; use Time::JulianDay; my $self = 'atpRpt1.pl'; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Attendance Functions. eval require "../../lib/libattend.pl"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Absent/Late strings for libattend library. my %lexi = ('Absent' => 'Absent', 'Late' => 'Late' ); my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; 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; $homepage = $tchpage; } my $title = qq{AttPlus (AAA) Report 1}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} | Attendance ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ($arr{page} == 1) { delete $arr{page}; showReport(); } #------------- sub showReport { #------------- # Outline: 4 column table for each grade, floated. Attendance, academic, attitude, total # foreach my $key ( sort keys %arr ) { print "K:$key VAL:$arr{$key}
\n"; } # passed yrmo, group, skip my $yrmo = $arr{yrmo}; # year-month my $group = $arr{group}; my $skip = $arr{skip}; # those group members to skip over my %skip; my @skip = split(/\s/, $skip); foreach my $g ( @skip ) { $skip{$g} = 1; } my ($year,$month) = split('-', $yrmo); my $display = qq{$month[$month], $year}; print qq{

$display

\n}; # Get Previous Yr-Mo my ($prevyr, $prevmo, $prevyrmo); if ( $month == 1 ) { $prevmo = 12; $prevyr = $year - 1; } else { $prevmo = $month - 1; $prevyr = $year; } $prevyrmo = qq{$prevyr-$prevmo}; # print qq{
Prev $prevyrmo
\n}; my $startjd = julian_day(split('-',$schoolstart)); my $endjd = julian_day(split('-',$schoolend)); my $startdate = $yrmo. '-01'; my $tempstart = julian_day(split('-',$startdate)); if ( $startjd > $tempstart ) { # school start in this month (Sept) is later than the 1st. $startdate = join('-', inverse_julian_day($startjd)); } # print qq{
Start Date:$startdate
\n}; my $endday = (0,31,28,31,30,31,30,31,31,30,31,30,31)[$month]; # array is zero based if ( ($year % 4 == 0) && ($year % 100 != 0) && ($year % 400 == 0) ) { $endday++; } my $enddate = $yrmo. qq{-$endday}; # Verify against school end date; my $tempend = julian_day(split('-',$enddate)); if ( $tempend > $endjd ) { # school ends earlier than the end of the month $enddate = join('-', inverse_julian_day($endjd)); } # print qq{
End Date:$enddate
\n}; # we have the start and end dates for the month. We CAN add # another arg with NSD or GR:grade for partial. We don't want any # partial issues. If away in AM, but partial closed in PM, then we # give hime/her benefit of the doubt and they get 1/2 day credit. my $daysopen = calcDaysOpen($startdate, $enddate, $dbh); print qq{
Days Open $daysopen
\n}; # find grades / homeroom my @groups; my $sth = $dbh->prepare("select distinct $group from student where $group is not NULL and $group != ''"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} while ( my $gr = $sth->fetchrow ) { if ( $skip{$gr} ) { next; } # skip over some member groups push @groups, $gr; } @groups = sort { $a<=>$b } @groups; # print qq{Groups:@groups
\n}; my $sth = $dbh->prepare("select * from student where $group = ? order by lastname, firstname"); # Get attitude,academic marks my $sth1 = $dbh->prepare("select score from atp_academic where studnum = ? and yrmo = ?"); my $sth2 = $dbh->prepare("select score from atp_attitude where studnum = ? and yrmo = ?"); my $sth3 = $dbh->prepare("select balfwd from atp_balfwd where studnum = ? and yrmo = ?"); # Loop over group my ($count, $tcount); foreach my $grp ( @groups ) { my $first = 1; # get students $sth->execute($grp); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $studnum = $r{studnum}; # needed in several placed my $ppd = $g_ppd{ $r{grade} }; if ( not $ppd ) { print qq{

No Attendance Periods per Day (PPD) for $r{firstname} $r{lastname} (${studnum}) }; print qq{with grade $r{grade}. Skipping!

\n}; next; } # if first, start table. if ( $first ) { my $temp = ucfirst($group); # uppercase leading homeroom or grade print qq{\n}; print qq{\n}; print qq{}; print qq{}; print qq{\n}; # print qq{\n}; $first = 0; } # Academic score $sth1->execute($studnum, $yrmo); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $acscore = $sth1->fetchrow; # Attitude $sth2->execute($studnum, $yrmo); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $atscore = $sth2->fetchrow; # Balance Forward $sth3->execute($studnum, $prevyrmo); # Note Previous yrmo. if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $balfwd = $sth3->fetchrow; # Attendance Score my $attendscore = calcMyAttendance($studnum, $yrmo, $ppd, $startdate, $enddate); if ( not $attendscore ) { # not enrolled yet next; } my $total = $acscore + $atscore + $attendscore + $balfwd; print qq{}; print qq{\n}; } # done all students in this group if ( $first ) { print qq{

No Students Found for group $group

\n}; } else { print qq{
$temp $grp
NamePrev
Bal		AttendAcadAttdTotal
Bal
Fwd
$r{lastname}, $r{firstname}$balfwd$attendscore$acscore$atscore$total
\n}; } $tcount++; if ( $tcount % 3 == 0 ) { print qq{
\n}; } $count++; if ( $count % 1 == 0 ) { print qq{
\n}; } } # end of groups print qq{\n}; exit; } # end of showReport #---------------- sub showStartPage { #---------------- # Get the Year-Month for entry. my ($y,$m,$d) = split('-', $schoolstart); # loaded from admin.conf file my @yrmo; # ordered by year-month foreach my $m (9..12) { # do fall push @yrmo, qq{$y-$m}; } $y++; # increment year foreach my $m (1..6) { # do fall push @yrmo, qq{$y-$m}; } print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Year-Month Select print qq{}; print qq{\n}; print qq{\n}; # Group by Homeroom or Grade. print qq{\n}; # Groups to skip print qq{\n}; print qq{\n}; print qq{
Please Select Month
}; foreach my $yrmo ( @yrmo ) { my ($y,$m) = split('-', $yrmo); print qq{ $month[$m], $y
\n}; } print qq{
}; print qq{Group by \n}; print qq{
}; print qq{Skip these Groups
Separate with Spaces
\n}; # Continue print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } #----------------- sub calcMyAttendance { # monthly attendance #----------------- # granularity is just the nearest 1/2 day for being present. my ($studnum, $yrmo, $ppd, $startdate, $enddate ) = @_; # print "SN:$studnum YRMO:$yrmo PPD:$ppd
\n"; # find enrollment blocks, in this month. Adjust start,end dates, if so. my @enrolblock = findEnrollmentBlocks($studnum, $startdate, $enddate, $dbh); if ( not $enrolblock[0] ) { return; } my $present; # number of days present, calc'd in loop below my $sth = $dbh->prepare("select count(*) from attend where studentid = ? and absdate = ? and reason like '%Absent%'"); my $sth1 = $dbh->prepare("select dayfraction from dates where date = ?"); # We now have updated start/end dates based on enrollment; perhaps more than one enrollment block. foreach my $ref ( @enrolblock ) { my $start = $ref->{start}; my $end = $ref->{end}; my $sjd = julian_day(split('-',$start)); my $ejd = julian_day(split('-',$end)); # Loop over this enrollment block. foreach my $jd ( $sjd..$ejd ) { # loop over the julian days. # skip any weekends. my $dow = day_of_week($jd); if ( $dow == 0 or $dow == 6 ) { next; } my $date = join('-', inverse_julian_day($jd)); # Check for School Closed (all day). $sth1->execute($date); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $dayfraction = $sth1->fetchrow; # closed all day? if ( $dayfraction > 0.99 ) { next; } # Check for any absences. $sth->execute($studnum, $date); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $percount = $sth->fetchrow; # count of periods absent. my $attend; if ( not $percount ) { $attend = 1; } else { # partial day/ all day my $fraction = $percount / $ppd; # fraction absent if ( $fraction > 0.6 ) { $attend = 0; } elsif ( $fraction > 0.3 ) { $attend = 0.5; } else { $attend = 0; } } # my $temp = join('-', inverse_julian_day($jd)); # print "Day:$temp Present:$present Attend:$attend
\n"; $present += $attend; } } # end of enrollment blocks. return $present; }