\n};
# Select subjects if not already done in last loop.
if ( not $arr{page} ){
showStartPage($subjsec); # select tests to update
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
viewMarks();
}
# Update records for changed scores.
if ( $arr{page} == 2 ){
delete $arr{page};
updateRecs();
}
#------------
sub viewMarks {
#------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key VAL:$arr{$key} \n}; }
my $subjsec = $arr{subjsec};
delete $arr{subjsec};
# Lookup Test records;
my $sth = $dbh->prepare("select tdate,name,score from gbtest where id = ?");
foreach $key (keys %arr){
$sth->execute( $key );
if ($DBI::errstr){ print $DBI::errstr; die; }
my ($tdate,$name,$score) = $sth->fetchrow;
$name =~ s/://g; # strip colons
$test{"$tdate:$key"} = "$name:$score"; # use this to sort hash
}
# Creates array controlling student sort order.
my @studnum = mkStudNum( $subjsec );
print qq{\n};
exit;
} # end of viewMarks
#------------
sub mkStudNum {
#------------
my $subjsec = shift;
my (@eval, @studnum, %remove);
# Create the studnum array that controls the order that students are
# displayed in. Load the eval records first into an array, sorted by
# lastname and firstname. (@eval) Load the sort order records in order
# into an array and also into a hash (%remove)
# Any remaining array elements in eval are added to the end of
# the studnum array once done. If there _are_ no sortorder recs, then
# the final array becomes the eval records only. This has the desired
# behavior.
# Find the enrollments for this class and read them into @eval array
$sth = $dbh->prepare("select distinct e.studnum from eval e
left outer join studentall s on s.studnum = e.studnum
where e.subjcode = ? order by s.lastname, s.firstname");
$sth->execute( $subjsec );
if ($DBI::errstr) { print "$DBI::errstr"; die $DBI::errstr;}
while (my $studnum = $sth->fetchrow){
push @eval,$studnum;
}
# Load 'SortOrder' test if it exists...
$sth = $dbh->prepare("select id from gbtest where subjsec = ? and name = 'sortorder'");
$sth->execute( $subjsec );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my $sortid = $sth->fetchrow;
if ($sortid){ # We have a sortorder
$sth = $dbh->prepare("select studnum from gbscore where testid = ? order by score");
$sth->execute( $sortid );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
while (my $sn = $sth->fetchrow){
push @studnum, $sn;
$remove{$sn} = 1;
}
# Now add on @eval elements who are not in @studnum
foreach my $en (@eval){
if (not $remove{$en}){ push @studnum, $en;}
}
return @studnum;
} else { # no sortorder
return @eval;
}
}
#----------------
sub showStartPage { # Test Selection
#----------------
my $subjsec = shift; # Get passed subjsec
$sth = $dbh->prepare("select description from subject where subjsec = ?");
$sth->execute( $subjsec );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
$subject = $sth->fetchrow;
if ( $view ne 'All' and defined $view){ # a select group is being viewed.
$grpselect = "and grp = '$view'";
}
# Get Tests for this subject
$sth = $dbh->prepare("select id, name, description from gbtest
where subjsec = ? and name != 'sortorder' $grpselect
order by tdate");
$sth->execute( $subjsec );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
print qq{