#! /usr/bin/perl # Copyright 2001-2025 Leslie Richardson # This file is part of Open Admin for Schools. 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 = 'cmaRpt11.pl'; use DBI; use CGI; use Cwd; use Number::Format qw(:all); 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"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $wday++; $mon++; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; 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 = "$lex{'Common Math Assessment'} $lex{Report} 11 - $schoolname"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{
[ $lex{Main} ]
\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 "K:$key V:$arr{$key}
\n"; } # Passed: grade, homeroom, schoolyear; my $yearcount = 2; # print qq{School Year - $schoolyear
\n}; my ($prev,$curr) = split('-', $schoolyear); my @years; push @years, $curr; for my $t (1..$yearcount ) { my $yr = $curr - $t; push @years, $yr; } # print "Years @years
\n"; my $studenttable = 'studentall'; # Get all students in the CMA system; my %studs; my $sth = $dbh->prepare("select distinct studnum from mathca_scores"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $studnum = $sth->fetchrow ) { $studs{$studnum} = 1; } # Load student data my (%students, %sort); my $sth = $dbh->prepare("select lastname, firstname, grade, homeroom from $studenttable where studnum = ?"); foreach my $studnum ( keys %studs ) { $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; $students{$studnum} = $ref; $sort{"$ref->{lastname}$ref->{firstname}$studnum"} = $studnum; } # we now have all students in %students - $students{$studnum} = $ref; print qq{

$currdate

\n}; =head # Build outcomes data structure my %outcomes; # lists outcomes. my %odesc; # outcomes description. 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 ) { my %r = %$ref; my $oid = $r{oid}; my $grade = $r{grade}; my ($cat, $seq) = split(/\./, $oid); $cat =~ s/$grade$//; # remove grade # print qq{OID:$oid GR:$grade CAT:$cat SEQ:$seq DESC:$r{odesc}
\n}; $outcomes{$grade}{$cat}{$seq} = $oid; $odesc{$oid} = $r{odesc}; } # Done building data structure of outcomes as above; (oid like N7.1) =cut # Load Data structure ( $data{studnum}{strand}{schoolyear}{count/sum} = 1 my $sth = $dbh->prepare("select * from mathca_scores where studnum = ?"); foreach my $studnum ( keys %studs ) { $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; # Get the strand my $strand; if ( $r{outcome} =~ m/(P|N|SS|SP)/ ) { $strand = $1; } else { print qq{

ERROR: Strand not found: $r{outcome}

\n}; } $data{$studnum}{$strand}{$r{schoolyear}}{count}++; $data{$studnum}{$strand}{$r{schoolyear}}{sum} += $r{score}; } } # use Data::Dumper; # print Dumper %sort; # exit; my $studcount = 0; print qq{\n}; foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; my %s = %{ $students{$studnum}}; if ( not $s{lastname} ) { next; } if ( $studcount % 15 == 0 ) { # table header row print qq{}; # strand names row foreach my $strand ( @strands ) { my $colspan = @years; print qq{}; } print qq{\n}; # years row print qq{}; foreach my $strand ( @strands ) { foreach my $year ( @years ) { print qq{}; } } print qq{\n}; } print qq{\n}; foreach my $strand ( @strands ) { foreach my $year ( @years ) { my $count = $data{$studnum}{$strand}{$year}{count}; my $sum = $data{$studnum}{$strand}{$year}{sum}; my $avg; if ( $count ) { $avg = round( $sum / $count, 2); } print qq{}; } } $studcount++; } # end of student loop print qq{
$strandnames{$strand}
Name (Grade)$year
$s{lastname}, $s{firstname} ($s{grade})$avg
\n}; print qq{\n}; exit; } # end of showReport #---------------- sub showStartPage { # Entry Values for Custom Script #---------------- my (@homerooms, @grades, @schoolyears ); # Get Homerooms my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $hr = $sth->fetchrow ) { push @homerooms, $hr; } @homerooms = sort {$a <=> $b} @homerooms; # Get Grades $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; # Get School Years $sth = $dbh->prepare("select distinct schoolyear from mathca_scores"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $yr = $sth->fetchrow ) { push @schoolyears, $yr; } @schoolyears = reverse sort @schoolyears; # Start Form print qq{
\n}; print qq{\n}; print qq{\n}; # Select Grade print qq{}; print qq{\n}; # OR print qq{\n}; # Select Homeroom print qq{}; print qq{\n}; # School Year print qq{}; print qq{\n}; # Withdrawn print qq{}; print qq{\n}; =head # Sort Order print ""; print ""; print "\n"; =cut print qq{\n}; print qq{
$lex{'Select by'} $lex{Grade}
$lex{OR}
$lex{'Select by'} $lex{Homeroom}
$lex{'School Year'}
$lex{'Show Withdrawn'}
$lex{'Sort by'}
\n}; print qq{
\n}; exit; }