#! /usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
# Open Admin for Schools is free software; you can redistribute it
# and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
# rptmarksheet.pl - A customizable column width report
# - passed a teacher userid, shows his/her subjects for selection.
# Once selected, print sheets for his/her courses
my $self = 'rptMarkSheet.pl';
my %lex = ('Mark Sheets' => 'Mark Sheets',
'Main' => 'Main',
'GB Main' => 'GB Main',
'View/Download' => 'View/Download',
'View Log File' => 'View Log File',
'Students' => 'Student',
'Cell Width' => 'Cell Width',
'Select Print Characteristics' => 'Select Print Characteristics',
'Max Students/Page' => 'Max Students/Page',
'Repeat Entry Elements?' => 'Repeat Entry Elements?',
'Text Elements (Column Titles)' => 'Text Elements (Column Titles)',
'Entry' => 'Entry',
'Continue' => 'Continue',
'Mark Sheet' => 'Mark Sheet',
'Error' => 'Error',
'Font Size' => 'Font Size',
'Course' => 'Course',
);
use DBI;
use CGI;
# Configurable settings
my $maxstudents = 28; # default maximum students per page.
my $width = 6; # default width of columns, 6mm;
my $entrylimit = 8; # Max entries allowed for text.
my $maxentrysize = 14; # Maximum number of characters for the entry
my $namewidth = 50; # Width of the first 'Name' column in mm.
my $grayshade = '0.96'; # 1.00 is white, 0.00 is black.
my $columnareawidth = 145; # width of the column area for letter paper (only, so far)
my $q = new CGI;
my %arr = $q->Vars;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " :$@ \n";
die $lex{Error}. " :$@\n";
}
# Load LaTeX library for filtering
eval require "../../lib/liblatex.pl";
if ( $@ ) {
print $lex{Error}. " :$@ \n";
die $lex{Error}. " :$@\n";
}
# Current Date
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
$wday++;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my $userid = $ENV{'REMOTE_USER'};
print $q->header( -charset, $charset );
# Get Teacher Name
my $sth = $dbh->prepare("select lastname, firstname from staff where userid = ?");
$sth->execute($userid);
my ($ln,$fn) = $sth->fetchrow;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
my $teachername = "$fn $ln";
my $title = qq{$lex{Course} $lex{'Mark Sheets'}};
print qq{$doctype\n$title
$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{$lex{'GB Main'} | Report Menu ]\n};
# Values passed are width, maxstudents, repeat, entry1 to entry8
if ( not $arr{page} ) {
showStartPage();
} else {
delete $arr{page};
# and continue
}
my $maxlines;
if ( $arr{maxstudents} ) {
$maxlines = $arr{maxstudents};
delete $arr{maxstudents};
} else {
$maxlines = $maxstudents;
}
my $wi = $arr{width} - 1; # width of each col desired (in mm)
# take away 1 for 1mm tabcolsep.
my $colcount = $columnareawidth / ($arr{width} + 1);
delete $arr{width};
$colcount = int $colcount; # truncate
#print qq{Column Count: $colcount \n};
my $fontsize = $arr{fontsize};
delete $arr{fontsize};
# push entry text into array.
for ( 1..$entrylimit ) {
my $entryname = 'entry'.$_;
if ( $arr{$entryname} ){ # if it exists...push into array
push @entry,$arr{$entryname};
}
delete $arr{$entryname};
}
my $entrysize = $#entry + 1;
#print qq{Entry size: $entrysize \n};
if ($arr{repeat} and $entrysize){
$repeatcount = $colcount / $entrysize;
$repeatcount = int $repeatcount;
} elsif ($entrysize){
$repeatcount = 1; # only do it once if not repeat.
} else { $repeatcount = 0;}
delete $arr{repeat};
my $shortname = "cmarksheet$$";
my $fileName = "$shortname.tex";
open(TEX,">$fileName") || die "Can't open tex file";
# Letter paper size is 279mm x 213mm
# 200mm wide - 50mm name, 20mm extra fld, leaves 130mm for columns.
# The tabcolsep of 1mm leaves 128 mm where each col is $width + 1mm wide.
if ( $defaultpapersize ) {
$papersize = $defaultpapersize;
} else {
$papersize = 'letterpaper';
}
print TEX "\\documentclass[$fontsize, $papersize]{article}
\\usepackage{array,newcent,rotating,colortbl,inputenc}
$a_latex_header
\\pagestyle{empty}
\\setlength{\\textwidth}{200mm}
\\setlength{\\textheight}{270mm}
\\setlength{\\hoffset}{-1.6in}
\\setlength{\\voffset}{-1.4in}
\\addtolength{\\evensidemargin}{0in}
\\addtolength{\\oddsidemargin}{0in}
\\setlength{\\tabcolsep}{1mm}
\\setlength{\\extrarowheight}{2mm}\n";
#\\newcolumntype{G}{>{\\columncolor[gray]{$grayshade}}p{$namewidth mm}}\n";
print TEX "\\begin{document}\n";
#Prep for loop through each subject.
my $sth = $dbh->prepare("select distinct eval.studnum, studentall.lastname,
studentall.firstname from eval
left outer join studentall on eval.studnum = studentall.studnum
where eval.subjcode = ?
order by studentall.lastname, studentall.firstname");
# Prep for Course Name
my $sth1 = $dbh->prepare("select description from subject where subjsec = ?");
# Main Course Loop
foreach my $subjsec ( keys %arr ) { # Loop through each selected subject
#print qq{K: $subjsec V:$arr{$subjsec} \n};
# Creates array controlling student sort order.
@studnum = mkStudNum($subjsec); # $subjsec is subjsec.
# Get Course Name
$sth1->execute($subjsec);
my $desc = $sth1->fetchrow;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
# print New Page Header; reset counters.
$linecount = 0; $studcount = 0;
prHeader($subjsec,$desc);
# Loop through and print all students
foreach my $studnum (@studnum){
$sth2 = $dbh->prepare("select lastname, firstname from studentall
where studnum = ?");
$sth2->execute( $studnum );
if ($DBI::errstr) { print qq{$DBI::errstr}; die;}
my ($lastname, $firstname) = $sth2->fetchrow;
#print qq{LN: $lastname \n};
$linecount++;
$studcount++;
if ($linecount > $maxlines) { # print a new page header
# New Page Header
$linecount = 0;
print TEX "\\end{tabular}\\\\ \\newpage\n";
prHeader($subjsec,$desc);
}
# Print Normal Record.
prRecord($lastname,$firstname,$studnum);
}
prStudCount();
print TEX "\\end{tabular}\\\\ \\newpage\n";
} # End of Loop for all subjects.
print TEX "\n\\end{document}\n";
close TEX;
system("$pdflatex $fileName >pdflog$$.txt");
system("mv $shortname.pdf $tchdownloaddir");
system("mv pdflog$$.txt $tchdownloaddir");
system("rm -f $shortname.*");
print qq{
\n};
print qq{\n};
#======== Functions Start Here ==============
#----------------
sub showStartPage {
#----------------
# Get Teacher Name
$sth = $dbh->prepare("select lastname,firstname from staff where userid = ?");
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
# Get Courses
$sth = $dbh->prepare("select description, subjsec from subject
where teacher = ? order by description");
$sth->execute( $userid );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ( $desc, $subjsec ) = $sth->fetchrow ) {
push @subject, "$desc:$subjsec";
}
print qq{