\n};
foreach my $subjsec ( @subjects ) {
# Get Course Information
my $sth = $dbh->prepare("select * from subject where subjsec = ?");
$sth->execute( $subjsec );
if ($DBI::errstr) { print $DBI::errstr; die; }
my $sref = $sth->fetchrow_hashref;
my %s = %$sref;
print qq{
$s{description} ($subjsec)
\n};
%s = latex_filter( %s );
$sref->{description} = $s{description}; # so filtering is passed to header printing.
my @objectives;
# Now get the objectives and objective count
for $i (1..20) {
my $key = 'q'. $i;
if ( $s{$key} ) {
# Check Length of each objective; truncate if needs be.
my $objlen = length $s{$key};
if ( $objlen > 24 ) {
my $objnum = $i;
print qq{
\n};
$s{$key} = substr $s{$key}, 0, 24;
}
push @objectives,$s{$key};
} # may truncate len
}
if ( not @objectives ){ # Has at least a mark field
push @objectives, $lex{Mark};
}
my $objcount = scalar @objectives;
@objectives = latex_filter( @objectives );
# print "Objectives: @objectives \n";
# Get all the kids for this subject-section; get names, sort, print
$sth = $dbh->prepare("select distinct e.studnum, s.lastname, s.firstname
from eval e, student s
where e.studnum = s.studnum and e.subjcode = ?
order by s.lastname, s.firstname");
$sth->execute( $subjsec );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my @student;
while ( my ($studnum, $lastname, $firstname) = $sth->fetchrow ) {
push @student, "$studnum:$lastname:$firstname";
#$studname{ $studnum } = "$lastname, $firstname";
}
# Print the header file...
print_header(\@objectives, $sref ); # was \@subject ); # print header to tex file.
my $studcount = @student;
my $linecount = 0;
# Loop through and print each student
my $sth2 = $dbh->prepare("select count(*) from studentwd where studnum = ?");
foreach my $student ( @student ){
my ($studnum,$lastname,$firstname ) = split(':', $student);
# Check for withdrawn and add flag.
$sth2->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $wdflag;
if ( ( my $wdcount = $sth2->fetchrow ) > 0 ) {
$wdflag = "{\\scriptsize ". $lex{WD}. q{\} };
}
$linecount++;
if ( $linecount > $maxlines ) { # We'll print a new page header here
$linecount = 0;
print TEX "\\end{tabular}\\\\ \\newpage\n";
print_header( \@objectives, $sref );
}
# Get his/her evaluation for this subject in this term
# We will use the global $subjsec and $term
# print "SN:$studnum Trm:$arr{term} Subjsec:$subjsec \n";
$sth1 = $dbh->prepare("select * from eval where
studnum = ? and term = ? and subjcode = ?");
$sth1->execute( $studnum, $arr{term}, $subjsec );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
# my @evalrec = $sth1->fetchrow;
my $evalref = $sth1->fetchrow_hashref;
my %e = %$evalref;
# @evalrec = latex_filter( @evalrec );
%e = latex_filter( %e );
# print "REC:"@evalrec \n";
# foreach my $key ( sort keys %e ) { print qq{K:$key VAL:$e{$key} \n}; }
print TEX "\\raggedright $lastname, $firstname $wdflag& ";
for my $val (1..$objcount ) {
my $key = 'a'. $val;
print TEX $e{$key};
# $ct = $val + 6;
# print TEX $evalrec[$ct];
if ( $val != $objcount ){ print TEX "& "; }
}
print TEX "\\\\\\hline\n";
} # End of Student Loop
print TEX "\\end{tabular}\\newpage\n\n";
} # End of multiple Subjects loop
print TEX "\\end{document}\n";
close TEX;
print qq{