#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
# scoreAdd.pl
# Passed id for the gbtest record that we want to add/edit scores for.
# Flag - does update Comment - comment entry mode.
my $self = 'scoreAdd.pl';
my %lex = ('Add/Edit Test Scores' => 'Add/Edit Test Scores',
'Name' => 'Name',
'Score' => 'Score',
'Comment' => 'Comment',
'GB Main' => 'GB Main',
'Fill Blanks' => 'Fill Blanks',
'Max Score' => 'Max Score',
'Test' => 'Test',
'Error' => 'Error',
'Save' => 'Save',
'Main' => 'Main',
'Update' => 'Update',
);
use DBI;
use CGI;
# Set the current date
my @tim = localtime(time);
my $year = $tim[5] + 1900;
my $month = $tim[4] + 1;
my $day = $tim[3];
my $currdate = "$year-$month-$day";
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
eval require "../../etc/gbook.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
# calcAverage and mkstudnum
eval require "./libgbook.pl";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
#foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
# Test passed as id; just id field for test record.
# my $comment = $arr{comment};
# delete $arr{comment};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Now HTML header
my $title = $lex{'Add/Edit Test Scores'};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | };
print qq{$lex{'GB Main'} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
updateRecords();
}
#----------------
sub showStartPage {
#----------------
# Fill Blanks
print qq{\n};
# Load Test record
my $sth = $dbh->prepare("select * from gbtest where id = ?");
$sth->execute ( $arr{id} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;; }
my $ref = $sth->fetchrow_hashref;
my %test = %$ref;
my $subjsec = $test{subjsec};
# Set Focus on first entry with javascript.
my $elementnumber = 3; # first score entry
print qq{\n\n};
# show entry hands
print qq{\n};
$showwithdrawn = '0'; # not showing that.
# Creates array controlling student sort order.
my @studnum = mkStudNum( $subjsec, $showwithdrawn, $dbh );
# Heading
print qq{
\n};
# Form
print qq{\n};
exit;
} # End of showStartPage
#----------------
sub updateRecords { # Update scores records
#----------------
# foreach my $key (sort keys %arr) { print qq{K: $key VAL: $arr{$key} \n}; }
my $testid = $arr{testid};
delete $arr{testid};
my $subjsec = $arr{subjsec};
delete $arr{subjsec};
# remainder of %arr values are studnum:recid:type key (type is C comment or S score)
# value of the hash element is the score value. recid is blank if no record yet.
my $sth = $dbh->prepare("select count(*) from gbscore where studnum = ? and testid = ?");
# Update existing record.
my $sth1 = $dbh->prepare("update gbscore set score = ?, comment = ?
where studnum = ? and testid = ?");
# Delete existing Record
my $sth2 = $dbh->prepare("delete from gbscore where studnum = ? and testid = ?");
# Add a new Record (both score and comment)
my $sth3 = $dbh->prepare("insert into gbscore (score, comment,studnum, testid)
values (?,?,?,?)");
my $sth4 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
my $sth5 = $dbh->prepare("select score, comment from gbscore where studnum = ? and testid = ?");
# The hash %sortkey will give us a sorted list by student name.
my (%sortkey, %studname);
foreach my $key ( keys %arr ) {
my ( $studnum,$scoreid,$type ) = split ':',$key;
if ( $type eq 'S' ) { # only want the score key; we create comment key;
$sth4->execute( $studnum ); # get student name
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth4->fetchrow;
$sortkey{"$lastname$firstname$studnum"} = $key;
$studname{$studnum} = qq{$lastname, $firstname};
}
}
# foreach my $studnum ( sort keys %studname ) {
# print qq{
$studnum - $studname{$studnum}
\n};
# }
# loop through all passed records by student name
foreach my $sortkey ( sort keys %sortkey ) {
my $key = $sortkey{$sortkey}; # $key is key of the %arr hash with values (or not)
my ( $studnum,$scoreid,$type ) = split ':',$key;
if ( $type eq 'C' ) { next; } # only do scores.
#Type:(S)core/(C)omment
my $commentKey = qq{$studnum:$scoreid:C};
my $comment = $arr{$commentKey};
my $score = $arr{$key};
if ( not $studnum or not $type ) { # scoreid may be undefined if adding.
print qq{$lex{Error} $arr{$key} $lex{Test}: $testid \n};
print qq{
\n};
$showwithdrawn = '0'; # not showing that.
# Creates array controlling student sort order.
my @studnum = mkStudNum( $subjsec, $showwithdrawn, $dbh );
# Heading
print qq{