\n};
}
# Update records for changed scores.
if ( $arr{flag} ){ # we are updating records
delete $arr{flag};
updateRecs();
}
# Creates array controlling student sort order.
my @studnum = mkStudNum( $subjsec );
if ($comment){
doComment();
} else {
doScore();
}
#------------
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
my $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 qq{$DBI::errstr}; die $DBI::errstr;}
while ( my $studnum = $sth->fetchrow ){
push @eval,$studnum;
}
# Load 'SortOrder' test if it exists...
my $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
my $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 (enrolled but not in sortorder yet)
foreach my $en (@eval){
if ( not $remove{$en} ){ push @studnum, $en;}
}
return @studnum;
} else { # no sortorder
return @eval;
}
}
#-------------
sub updateRecs { # Update scores records
#-------------
#foreach my $key (keys %arr) { print qq{K: $key VAL: $arr{$key}