#! /usr/bin/perl
# Copyright 2001-2024 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.
# based on report 8 from central site.
my %lex = ('Main' => 'Main',
'Continue' => 'Continue',
'Homeroom' => 'Homeroom',
'Grade' => 'Grade',
'Select by' => 'Select by',
'Error' => 'Error',
'Sort by' => 'Sort by',
'Name' => 'Name',
'Common Math Assessment' => 'Common Math Assessment',
'Report' => 'Report',
'OR' => 'OR',
'No Selection' => 'No Selection',
'School Year' => 'School Year',
'Show Withdrawn' => 'Show Withdrawn',
);
my $self = 'cmaRpt8local.pl';
my $pct = '%';
use DBI;
use CGI;
use Cwd;
use Number::Format qw(:all);
use Time::JulianDay;
my $skipiep; # skip iep students by default.
my @strands = qw(P N SS SP);
my %strandnames = ('P' => 'Patterns and Relations',
'N' => 'Numbers and Operations',
'SS' => 'Shape and Space',
'SP' => 'Stats and Prob'
);
my $configpath = '../../..';
if ( getcwd() =~ /tcgi/ ){ # we are in tcgi
$configpath = '../..';
}
eval require "$configpath/etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
# Get global read access to IEP database
eval { require "$globdir/global.conf"; };
if ( $@ ) {
print $lex{Error}. " $self: $@ \n";
die $lex{Error}. "$self: $@\n";
}
if ( getcwd() !~ /tcgi/ ) { # we are in cgi
$tchcss = $css;
$tchpage = $homepage;
}
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 IEP Database
my ($sy,$ey) = split('-', $schoolyear);
$sy =~ s/20//;
$ey =~ s/20//;
my $iepdbase = qq{iep$sy$ey};
my $dsniep = "DBI:$dbtype:dbname=$iepdbase";
my $dbhiep = DBI->connect($dsniep,$guser,$gpassword);
# Find IEP students, to remove from evaluation, match by studnum and/or name
# (since may not be unique)
my (%iepstudents, %iepnames);
my $sth = $dbhiep->prepare("select lastname, firstname, studnum from special
where school = '$dbase'");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($lastname, $firstname, $studnum ) = $sth->fetchrow ) {
# print qq{IEP SN:$studnum\n};
$iepstudents{$studnum} = "$lastname,$firstname";
$iepnames{"$lastname$firstname"} = $studnum;
}
if ( $arr{nopct} ) {
$pct = '';
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time);
$year = $year + 1900;
$wday++; $mon++;
my $currdate = "$year-$mon-$mday";
my $title = qq{$lex{'Common Math Assessment'} $lex{Report} 8 - }.
qq{Students and Mathematics Completion(%) by Grade};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{
\n};
# Now convert to short version
my ($sy, $ey) = split('-', $schoolyear);
$schoolyear = $ey;
=head
# Get the school dates from configuration system
my $sth = $dbh->prepare("select datavalue from conf_system where dataname = ?");
foreach my $val ( qw(schoolstart schoolend )) {
$sth->execute( $val );
my $datavalue = $sth->fetchrow;
eval $datavalue;
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
}
=cut
# populate jdclosed with dates from dates table; used by calcSchoolDays;
my %jdclosed;
my $sth = $dbh->prepare("select date, dayfraction from dates
where date is not NULL and date != ''");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ( $date, $dayfraction ) = $sth->fetchrow ) {
my $jd = julian_day( split( /-/, $date ) );
$jdclosed{$jd} = $dayfraction;
}
# Load School Year, and figure out where we are in it. (teaching days).
# Need Total Teaching Days, and what day we are currently at.
my ($currschoolday, $totalschooldays ) = split(':',calcSchoolDays($schoolstart, $schoolend,
$currdate, \%jdclosed ));
my $completed = format_number( $currschoolday * 100 / $totalschooldays, 1 );
print qq{
\n};
print qq{
Total School Days
$totalschooldays
\n};
print qq{
Current School Day
$currschoolday
\n};
print qq{
Percentage of School Year Complete
};
print qq{
$completed%
\n};
print qq{
\n};
# Load all outcomes.
my %outcomes;
my %outcomesgr; # outcomes by grade;
my $sth = $dbh->prepare("select * from mathca_outcomes");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; };
while ( my $ref = $sth->fetchrow_hashref ) {
%r = %$ref;
$outcomes{$r{oid}} = $r{odesc};
$outcomesgr{$r{grade}}{$r{oid}} = 1;
}
# Load the tests by grade and outcomes, count ( $data{grade}{outcome} = count )
my (%data,%scores);
my $sth1 = $dbh->prepare("select distinct studnum, count(distinct outcome) from mathca_scores
where schoolyear = ? and tgrade = ? and prepost = 'posttest' group by studnum");
my $sth2 = $dbh->prepare("select distinct studnum, avg(score) from mathca_scores
where schoolyear = ? and tgrade = ? and prepost = 'posttest' group by studnum");
# my $sth = $dbh->prepare("select distinct tgrade from mathca_scores where schoolyear = ? and
# tgrade is not null and tgrade != '' and prepost = 'posttest'");
# $sth->execute( $schoolyear);
# if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; };
my @grades;
my $sth = $dbh->prepare("select distinct grade from student
where grade is not NULL and grade != ''");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; };
while ( my $gr = $sth->fetchrow ) {
push @grades, $gr;
}
@grades = sort { $a <=> $b } @grades;
foreach my $grade ( @grades ) {
my @scores;
# Get Outcomes
my $outcomeflag; # make sure we have outcomes.
$sth1->execute( $schoolyear, $grade );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; };
while ( my ($studnum, $outcount ) = $sth1->fetchrow ) {
if ( $outcount ) {
$data{$grade}{$studnum} = $outcount;
$outcomeflag = 1;
}
}
if ( not $outcomeflag ) { next; } # no outcomes for this grade.
# Get Average Score for each student in this grade.
$sth2->execute( $schoolyear, $grade );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; };
while ( my ($studnum, $avgscore ) = $sth2->fetchrow ) {
# Check if IEP Student
if ( $iepstudents{$studnum} ) { next; }
push @scores, $avgscore;
}
# Get average score for this grade.
my $sum;
foreach my $score ( @scores ) {
$sum += $score;
}
my $avg = 0;
my $studcount = @scores;
if ( $studcount ) {
$avg = $sum / $studcount;
}
$scores{$grade} = $avg;
# print qq{Grade:$grade SUM:$sum AVG:$avg \n};
# print qq{ @scores \n};
}
print qq{
\n};
print qq{
Grade
# of Outcomes
# of Students
};
print qq{
Number of Students with this Percentage of Completion