#!/usr/bin/perl # Copyright 2001-2021 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. my %lex = ('Main' => 'Main', 'Error' => 'Error', 'View' => 'View', 'Name' => 'Name', 'Author' => 'Author', 'Scores' => 'Scores', 'Score' => 'Score', 'Age' => 'Age', 'Grade' => 'Grade', 'No Records Found' => 'No Records Found', 'Continue' => 'Continue', 'Select' => 'Select', 'Students' => 'Students', 'Check' => 'Check', 'Homeroom' => 'Homeroom', 'Blank=All' => 'Blank=All', 'Edit' => 'Edit', 'Tests' => 'Tests', 'Delete' => 'Delete', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'Next Page' => 'Next Page', 'No Blanks Allowed' => 'No Blanks Allowed', 'Student' => 'Student', 'Date' => 'Date', 'Common Math Assessment' => 'Common Math Assessment', 'Type' => 'Type', 'Outcome' => 'Outcome', 'Year' => 'Year', ); use DBI; use CGI; my $self = 'cmaView.pl'; my $editscript = 'cmaEdit.pl'; my $deletescript = 'cmaDelete.pl'; eval require "../../etc/admin.conf"; if ( $@ ) { print "$lex{Error}: $self: $@
\n"; die "$lex{Error}: $self: $@\n"; } my $q = new CGI; print $q->header; my %arr = $q->Vars; 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"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = qq{$lex{View} $lex{'Common Math Assessment'}(CMA) $lex{Scores}}; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { # calendar popup. print qq{\n}; print qq{\n}; print qq{\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}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; showTests(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; editRecords(); } #---------------- sub showStartPage { #---------------- my $sth = $dbh->prepare("select distinct grade from student where grade is not NULL and grade != ''"); $sth->execute; my @grades; while ( my $gr = $sth->fetchrow ) { push @grades, $gr; } @grades = sort { $a <=> $b } @grades; my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; my @hroom; while ( my $hr = $sth->fetchrow ) { push @hroom, $hr; } @hroom = sort @hroom; # Find Tests by Student Group print qq{\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage #---------------- sub selectStudents { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $chk; if ( $arr{chk} ) { $chk = 'CHECKED'; } delete $arr{chk}; # Check for any Blanks if ( not $arr{grade} and not $arr{homeroom} ) { print qq{

$lex{'No Blanks Allowed'}

\n}; print qq{\n}; exit; } my $sth; if ( $arr{grade} ) { $sth = $dbh->prepare("select lastname, firstname, studnum from student where grade = ? order by lastname, firstname"); $sth->execute( $arr{grade} ); } else { # homeroom $sth = $dbh->prepare("select lastname, firstname, studnum from student where homeroom = ? order by lastname, firstname"); $sth->execute( $arr{homeroom} ); } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } # Form Header print qq{

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

\n}; print qq{\n}; # my $sth1 = $dbh->prepare("select count(*) from mathca_scores where studnum = ?"); # Select only current my $sth1 = $dbh->prepare("select count(*) from mathca_scores where studnum = ? and to_days(tdate) >= to_days('$arr{startdate}') and to_days(tdate) <= to_days('$arr{enddate}') "); print qq{\n}; while ( my ( $lastname, $firstname, $studnum ) = $sth->fetchrow ) { $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; print qq{\n}; print qq{\n}; } print qq{

	$lex{Student}	Current $lex{Tests}
}; if ( $count ) { print qq{}; } print qq{	$lastname, $firstname ($studnum)	$count

\n}; print qq{

\n}; exit; } # end of selectStudents #------------ sub showTests { #------------ # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $startdate = $arr{startdate}; my $enddate = $arr{enddate}; delete $arr{startdate}; delete $arr{enddate}; # Searching by Student Number my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); my $sth2 = $dbh->prepare("select odesc from mathca_outcomes where oid = ?"); # sort by name. my %sort = (); foreach my $studnum ( keys %arr ) { $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; $sort{"$lastname$firstname$studnum"} = $studnum; } my $first = 1; print qq{\n}; # Start the Form print qq{

\n}; print qq{

\n}; # Table print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; # Get Student Name $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # Display Existing Tests (if any) my $sth = $dbh->prepare("select * from mathca_scores where studnum = ? and to_days( tdate ) >= to_days( '$startdate' ) and to_days( tdate ) <= to_days( '$enddate') order by tdate, id"); $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { $first = 0; my ($yr,$mo) = split(':', $ref->{tage}); my $age = $yr. 'y'. $mo. 'm'; # Get Outcome Text $sth2->execute( $ref->{outcome} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $odesc = $sth2->fetchrow; my $color; if ( $yr < $min ) { $color = 'blue'; } if ( $yr > $max ) { $color = 'red'; } # Edit Checkbox. print qq{\n}; # Rest of Fields print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n\n}; } # end of student loop. if ( $first ) { print qq{

}; print qq{$lex{'No Records Found'}

\n}; } } # end of student number loop print qq{

Hover on **Outcome** to see Text version
$lex{Edit}	$lex{Name}	$lex{Age}	$lex{Grade}	$lex{Score}	$lex{Outcome}	$lex{Type}	$lex{Date}	$lex{Author}	$lex{Year}
	$lastname, $firstname	$age	$ref->{tgrade}	$ref->{score}	$ref->{outcome}	$ref->{prepost}	$ref->{tdate}	$ref->{tauthor}	$ref->{schoolyear}	[ Delete ]

\n}; print qq{

\n}; exit; }

$lex{Select} $lex{Grade}
OR $lex{Select} $lex{Homeroom}
$lex{Check} $lex{'Next Page'}	\n}; print qq{
$lex{'Start Date'}	}; print qq{\n}; print qq{
$lex{'End Date'}	}; print qq{
	\n