#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Class Reading Report' => 'Class Reading Report', 'Reading Level' => 'Reading Level', 'Name' => 'Name', 'Date' => 'Date', 'Continue' => 'Continue', 'Homeroom' => 'Homeroom', 'Grade' => 'Grade', 'Blank=All' => 'Blank=All', 'No Students Found' => 'No Students Found', 'Show Only Latest Test' => 'Show Only Latest Test', 'Gr' => 'Gr', 'Levels' => 'Levels', 'Score' => 'Score', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'EGr' => 'EGr', 'Select by' => 'Select by', 'Sort Order' => 'Sort Order', 'New to Old' => 'New to Old', 'Old to New' => 'Old to New', ); # Grade => Start:End Reading Level my %levelExpect = ( K => '0:3', 1 => '3:16', 2 => '16:28', 3 => '28:38', 4 => '40:50', 5 => '50:60', 6 => '60:70', 7 => '70:80', 8 => '80:80' ); my %shortCategory = ( 'Oral Fluency' => 'OrFlu', 'Reading Engagement' =>'RdEg', 'Comprehension' => 'Comp', 'Printed Language Concepts' => 'pLgCcp'); my %seasondates = ('Spring' => {'start' => '01-01', 'end' => '03-31' }, 'Summer' => {'start' => '05-15', 'end' => '06-30' }, 'Fall' => {'start' => '09-01', 'end' => '10-31' } ); use DBI; use CGI; use Number::Format qw(:all); use Cwd; use Time::JulianDay; my $self = 'feederReadingView.pl'; my @time = localtime(time); my $year = $time[5] + 1900; my $month = $time[4] + 1; my $currdate = "$year-$month-$time[3]"; # Get current dir so know what path for config files. my $configpath; my $teachermode; my $jspath; # javascript path if ( getcwd() =~ /tcgi/ ){ # we are in tcgi $teachermode = 1; $configpath = '..'; # go back one to get to etc. $jspath = 'tcgi-bin'; } else { $configpath = '../..'; # go back two to get to etc. $jspath = 'cgi-bin'; } # only load password and userid eval require "$configpath/etc/admin.conf.root"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Load Configuration Variables; my $sth = $dbh->prepare("select id, datavalue from conf_system where filename = 'admin'"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($id, $datavalue) = $sth->fetchrow ) { eval $datavalue; if ( $@ ) { print "$lex{Error}: $@
\n"; die "$lex{Error}: $@\n"; } } # Load global user and password # Load global user and password if ( not -e "$globdir/global.conf" ) { print qq{Cannot read the global.conf file!\n}; print qq{\n}; exit; } eval require "$globdir/global.conf"; if ( $@ ) { print qq{$lex{Error} $@
\n}; die $lex{Error}. " $@
\n"; } if ( $oldbase{$dbase} ) { # We are an onion lake school %dbase = %oldbase; } my $q = new CGI; print $q->header; my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = qq{$lex{'Class Reading Report'} - $schoolname}; print qq{$doctype\n$title\n}; print qq{ \n}; print qq{ $chartype\n\n}; # Show Grade and Reading Levels Expected. print qq{
\n}; print qq{\n}; print qq{\n}; foreach my $key ( sort keys %levelExpect ) { my ($start, $end ) = split(':', $levelExpect{$key} ); if ( $start == '0' ) { $start = 'A'; } print qq{\n}; } print qq{
$lex{Gr}$lex{'Levels'}
$key$start – $end
\n}; print qq{[ $lex{Main} \n}; if ( not $teachermode ) { print qq{| SSP \n}; } print qq{]\n

$title

\n}; if ( not $arr{page} ) { selectSchool(); } elsif ( $arr{page} == 1) { delete $arr{page}; selectGroup(); } elsif ( $arr{page} == 2) { delete $arr{page}; showReport(); } #---------- sub fmtDate { #---------- my ( $year, $mon, $day ) = split '-', shift; return "$year-$s_month[$mon]-$day"; } #------------- sub showReport { #------------- #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$arr{db}"; my $dbh = DBI->connect($dsn,$guser,$gpassword); my $startdate = $arr{startdate}; my $enddate = $arr{enddate}; # my $sortorder = $arr{sortorder}; # can only desc; my $sortorder = 'desc'; my $onlylatest = $arr{onlylatest}; # Load the reading library containing the scoreToGrade / showReadingLevel eval require "../../lib/libreading.pl"; if ( $@ ) { print $lex{Error}. " $self: $@
\n"; die $lex{Error}. "$self: $@\n"; } my $studtable = 'studentwd'; if ( $arr{showall} ) { $studtable = 'studentall'; } my ($select,$selectvalue); # value of homeroom or grade my %studname; my %ReadingLevel; # Feeder School Name print qq{
$dbase{$arr{db}}
\n}; # Display Group of students (or entire school) print qq{

}; if ( $arr{grade} ) { print qq{$lex{Grade} $arr{grade}}; $selectvalue = $dbh->quote($arr{grade}); $select = "where grade = $selectvalue"; } elsif ( $arr{homeroom} ) { # not used here. print qq{$lex{Homeroom} $arr{homeroom}}; $selectvalue = $dbh->quote( $arr{homeroom} ); $select = "where homeroom = $selectvalue"; } else { print qq{All Grades\n}; } # Get Teacher Name if a homeroom # not used. if ( $arr{homeroom} ) { my $sth = $dbh->prepare("select lastname, firstname from staff as s, staff_multi as sm where sm.userid = s.userid and field_name = 'homeroom' and field_value = ?"); $sth->execute( $arr{homeroom} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth->fetchrow; print qq{ – $firstname $lastname}; } # Display Dates; print qq{
$lex{'Start Date'} $startdate | $lex{'End Date'} $enddate\n}; print qq{

\n}; # finish description line # Get students in this homeroom or grade. my (%sort, %studname ); my $sth = $dbh->prepare("select studnum, lastname, firstname from $studtable $select"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($studnum,$lname,$fname ) = $sth->fetchrow ) { $sort{"$lname$fname$studnum"} = $studnum; $studname{$studnum} = qq{$lname, $fname}; } # Find any student tests my $sth = $dbh->prepare("select * from read_test where studnum = ? and to_days(tdate) >= to_days('$startdate') and to_days(tdate) <= to_days('$enddate') "); # Loop over all student tests. my $first = 1; my (%readDra, %notests); foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; $sth->execute($studnum); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { $first = 0; if ( not $ref ) { # no tests in this time period $notests{$studnum} = 1; next; # student } my %r = %$ref; # will also have bktype here... fiction or nonfiction. if ( not $r{dratype} ) { $r{dratype} = 2; } if ( not defined $r{bktype} ) { # for older tests without a book type if ( $r{readlevel} eq '16N' or $r{readlevel} eq '28N' or $r{readlevel} eq '38N' ) { $r{bktype} = 'nonfiction'; } else { $r{bktype} = 'fiction'; } } $readDra{ $r{readlevel} }{ $r{bktype} }{ $r{dratype} }{ $studnum } = 1; # print "RL:$r{readlevel} BK:$r{bktype} DRA:$r{dratype} SN:$studnum
\n"; } # end of loop for single student. } # end of all students # use Data::Dumper; # print Dumper %readDra; foreach my $rl ( sort {$a <=> $b} keys %readDra ) { foreach my $bktype ( sort keys %{ $readDra{$rl} } ) { foreach my $dratype ( sort keys %{ $readDra{$rl}{$bktype} } ) { my @temp = keys %{ $readDra{$rl}{$bktype}{$dratype}}; # @temp are the students # print qq{RL:$rl DRA:$dratype BK:$bktype Order:$sortorder ST: @temp
\n}; showReadingLevel( $rl, $onlylatest, \@temp, $startdate, $enddate, $sortorder, $dratype, $bktype, $dbh ); } } } print qq{\n}; exit; } #---------------- sub selectSchool { #---------------- if (not @g_FeederSchools ) { print qq{

No Feeder Schools Found

\n}; print qq{\n}; exit; } print qq{

Select Feeder School

\n}; print qq{
\n}; print qq{\n}; foreach my $db ( @g_FeederSchools ) { print qq{
$dbase{$db}
\n}; } print qq{

\n}; print qq{
\n}; print qq{\n}; exit; } #--------------- sub selectGroup { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # passed db to view. # Setup for Date Entry print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

Feeder School - $dbase{$arr{db}}

\n}; my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$arr{db}"; my $dbh = DBI->connect($dsn,$guser,$gpassword); my @grades; # Get Grades $sth = $dbh->prepare("select distinct grade from studentall 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; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Select Grade print qq{}; print qq{\n}; # Select Starting/Ending Date print qq{\n}; print qq{\n}; # Sort Order # print qq{\n}; # print qq{\n}; # Show Only Latest print qq{\n}; print qq{\n}; # Show All Students print qq{}; print qq{\n}; # Continue print qq{\n}; print qq{
$lex{'Select by'} $lex{Grade} $lex{'Blank=All'}
$lex{'Start Date'}}; print qq{\n}; print qq{ Previous Year Start?
$lex{'End Date'}}; print qq{
$lex{'Sort Order'}
$lex{'Show Only Latest Test'}\n}; print qq{
Show Current Students Also}; print qq{ Default is Withdrawn Students
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; }