#! /usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
# Check the school marks from previous years and then compare the
# marks with student values stored in the sasked completed marks table
# (which is assumed to be up to date.
# Check for Missing Marks when entered into MSS compared to the values in OA.
my $self = 'mssCheckMarks.pl';
use DBI;
use CGI;
use Time::JulianDay;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = CGI->new;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# HTML Header
my $title = 'Compare Marks in MSS vs OA';
print qq{$doctype$title\n};
print qq{\n};
print qq{$chartype\n};
print qq{[ Main |\n};
print qq{Export ]\n};
print qq{
$title
};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
checkTerm();
}
#-------------
sub checkTerm {
#-------------
#foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# passed mss end date and oa end term.
# enddate, endterm
# Get courses for this end term.
my %courses;
my $sth = $dbh->prepare("select description, subjsec, subjcode from subject where
grade = 10 or grade = 11 or grade = 12 and endrptperiod = ?");
$sth->execute( $arr{endterm} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($desc,$subjsec,$subjcode) = $sth->fetchrow ) {
# print "DESC:$desc SUB:$subjsec, $subjcode \n";
$courses{$subjcode}{$subjsec} = $desc; # may be multiple sections of same course
}
my $sth1 = $dbh->prepare("select lastname, firstname, studnum from studentall where mssid = ?");
my $sth2 = $dbh->prepare("select a1 from eval where subjcode = ? and studnum = ? and term = ?");
my $sth3 = $dbh->prepare("select title from sasked_courses where code = ?");
my (%studid,%studname); # studid{mssid} = studnum;
my $sth = $dbh->prepare("select * from mss_currcourse where date = ? order by mssid");
$sth->execute( $arr{enddate} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
print qq{
MSS End date:$arr{enddate} / OA End Term $arr{endterm}
\n};
print qq{
\n};
print qq{
Marks in Red are Errors
\n};
print qq{
Name
Course
Marks
\n};
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
# Get the student
if ( not $studid{$r{mssid}} ) { # get student info
$sth1->execute( $r{mssid} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($ln,$fn,$studnum) = $sth1->fetchrow;
# print "HERE:$r{mssid} $ln $fn $studnum \n";
if ( not $ln ) { # not found
print $ln = qq{Not Found};
} else { # ok
$studid{ $r{mssid} } = $studnum;
$studname{$studnum} = qq{$ln, $fn};
}
}
my $studnum = $studid{ $r{mssid} };
# print qq{SN:$studnum Name:$studname{$studnum} \n};
# Get his/her OA Mark
# loop over any sections of the same course
my ($mark, $subjsec);
foreach my $subjsec ( %{ $courses{$r{coursecode}} } ) {
# subjcode, studnum, term
$sth2->execute( $subjsec, $studnum, $arr{endterm} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $tempmark = $sth2->fetchrow;
if ( $tempmark ) {
$mark = $tempmark;
}
}
# Get Course Description from sasked_courses;
$sth3->execute( $r{coursecode} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $coursedesc = $sth3->fetchrow;
print qq{
$studname{$studnum}
$coursedesc ($r{coursecode})
};
my $color = 'black';
if ( $mark !~ m/N.*/ ) {
if ( $r{mark} != $mark ) {
$color = 'red';
}
}
print qq{
MSS:$r{mark} OA:$mark
\n};
}
# print qq{
\n};
print qq{\n};
exit;
} # end of checkTerm
#----------------
sub showStartPage {
#----------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
# Start the Form
print qq{};
print qq{