; close FH;}
# Open a TeX file for creation; use a template...
my $logfile = "pdflog$$.txt";
my $shortname = "staffrpt$$";
my $filename = "$shortname.tex";
open(TEX,">$filename") || die "Can't open tex file";
printTeXStart(); # Setup the start of the file.
# Print Heading.
if ( $arr{tbl} ) {
print TEX $lex{Preregistration}. q{ }. $lex{Staff}. q{ }. $lex{Report};
} else {
print TEX $lex{Staff}. q{ }. $lex{Report};
}
print TEX "\\hfill{\\LARGE $schoolname} ";
print TEX " \\hfill $currdate \n\\smallskip\n\n";
# Find each staff record (staff or prereg_staff)
$sth = $dbh->prepare("select * from $table order by lastname, firstname");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my @st = $sth->fetchrow ) {
# Note: entire record loaded....
@st = latex_filter( @st );
my %rec;
# populate rec hash with rec{fieldid} = fieldvalue
# @meta holds the fieldid's and @st holds current record vals.
for (0..$#st) {
$rec{$meta[$_]} = $st[$_];
}
my $template = $text; # make a new blank record to plug in...
# Now put replacement text back in.
$template =~ s{\<\#(.*?)\#\>}
{ exists($rec{$1})
? $rec{$1}
: ' '
}gsex;
print TEX $template,"\n";
}
print TEX "\\end{document}";
close TEX;
system("$pdflatex $filename > $logfile");
system("mv $shortname.pdf $downloaddir");
system("mv $logfile $downloaddir");
system("rm $shortname.*");
print "";
print "". $lex{'View/Download'};
print " $tableview ". $lex{Report}. "
\n";
print "[ ". $lex{'Main'}. " | ";
print "". $lex{Eoy}. " | \n";
print "";
print $lex{'View Log File'}. " ]
\n";
print "\n";
#----------------
sub printTeXStart {
#----------------
my $papersize;
if ( $defaultpapersize ) {
$papersize = $defaultpapersize;
} else {
$papersize = 'letterpaper';
}
print TEX "\\documentclass[12pt,$papersize]{article}
\\usepackage{array,colortbl,graphicx,inputenc}
\\inputencoding{latin1}
\\renewcommand{\\familydefault}{\\sfdefault}
\\pagestyle{empty}
\\setlength{\\textwidth}{7.5in}
\\setlength{\\textheight}{10in}
\\setlength{\\hoffset}{-1.2in}
\\setlength{\\voffset}{-1in}
\\setlength{\\headsep}{10pt}
\\setlength{\\headheight}{14pt}
\\setlength{\\topmargin}{0pt}
\\setlength{\\parindent}{0pt}
\\setlength{\\tabcolsep}{5pt}
\\setlength{\\extrarowheight}{3pt}
%\\thispagestyle{empty}
%\\pagestyle{empty}
\\markright{$schoolname \\hfill ";
print TEX $lex{Staff}. q{ }. $lex{Report};
print TEX " \\hfill $currdate -- Pg }\n\\begin{document}\n";
} # End of printTeXStart