#!/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.
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Continue' => 'Continue',
'Select' => 'Select',
'Student' => 'Student',
'Homeroom' => 'Homeroom',
'Grade' => 'Grade',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
);
use DBI;
use CGI;
use Cwd;
my $self = 'wrView.pl';
#my $editscript = 'wrEdit.pl'; # added directly
#my $deletescript = 'wrDelete.pl';
eval require "../../etc/admin.conf";
if ( $@ ) {
print "$lex{Error}: $self: $@ \n";
die "$lex{Error}: $self: $@\n";
}
# Get current dir so know what CSS to display and shift settings.
if ( getcwd() !~ /tcgi/ ) { # we are in cgi
$tchcss = $css;
$tchpage = $homepage;
$tchdownloaddir = $downloaddir;
$tchwebdownloaddir = $webdownloaddir;
}
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);
# Page Header
my $title = qq{View Writing 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};
showScores();
}
#----------
sub fmtDate {
#----------
my ( $year, $mon, $day ) = split /-/, shift;
return "$year-$s_month[$mon]-$day";
}
#----------------
sub showStartPage {
#----------------
my @tim = localtime(time);
my $year = $tim[5] + 1900;
my $month = $tim[4] + 1;
my $currdate = "$year-$month-$tim[3]";
# Find by Student Group
my (@homerooms, @grades );
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;
}
$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;
# Form start
print qq{\n};
print qq{\n};
# Find existing Records
my $sth = $dbh->prepare("select distinct tgrade, count(*) from write_scores
where to_days(tdate) > to_days('$schoolstart') and
to_days(tdate) < to_days('$schoolend') group by tgrade");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $first = 1;
while ( my ($grade,$count) = $sth->fetchrow ) {
if ( $first ) {
print qq{
};
# print qq{
School Year: $schoolstart to $schoolend
\n};
print qq{
Existing Records
\n};
print qq{
Grades
Rec Count
\n};
$first = 0;
}
print qq{
$grade
$count
\n};
}
if ( not $first ) { # close table
print qq{
\n};
}
print qq{\n};
exit;
} # end of showStartPage
#--------------
sub showScores {
#--------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Grade or Homeroom
my ($select, $value, $heading);
$heading = 'All Students';
if ( $arr{grade} ) {
$select = 'where grade = ?';
$value = $arr{grade};
$heading = qq{Grade $arr{grade}};
} elsif ( $arr{homeroom} ) {
$select = 'where homeroom = ?';
$value = $arr{homeroom};
$heading = qq{Homeroom $arr{homerom}};
}
# Get Name, Student Number
my $sth = $dbh->prepare("select lastname, firstname, studnum from student $select
order by lastname, firstname");
if ( $select ) {
$sth->execute( $value );
} else {
$sth->execute;
}
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
print qq{
\n};
print qq{
$heading
\n};
my $sth1 = $dbh->prepare("select * from write_scores where studnum = ? and
to_days(tdate) >= to_days( '$arr{startdate}' )
and to_days(tdate) <= to_days( '$arr{enddate}')");
print qq{
$lex{Student}
Scores
Change
\n};
while ( my ( $lastname, $firstname, $studnum ) = $sth->fetchrow ) {
print qq{
};
print qq{$lastname, $firstname ($studnum)
\n};
# Get Scores
$sth1->execute( $studnum );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth1->fetchrow_hashref ) {
my %r = %$ref; # score record for this student.
print qq{