; close FH;}
#print "D:$desc F:$format LO:", $layout, "
\n";
while ( $layout =~ m{\<\#(.*?)\#\>}g ) {
$fields .= $1.',';
}
chop $fields; # remove trailing comma
my $selection = "select $fields from student where studnum = ?";
#print "SEL: $selection
\n";
my $sth = $dbh->prepare( $selection );
my $sortorder = $arr{sortorder};
delete $arr{sortorder};
my $shortname = "MLabels$$";
my $filename = "$shortname.tex";
open(TEX,">$filename") || die "Can't open tex file";
my $fontsize = $arr{fontsize}. 'pt';
delete $arr{fontsize};
#my $papersize = lc( $arr{papersize} ). 'paper';
if ( $defaultpapersize ) {
$papersize = $defaultpapersize;
} else {
$papersize = 'letterpaper';
}
#foreach my $key (sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; }
print TEX "\\documentclass[$fontsize]{article}\n";
print TEX "\\usepackage{geometry}\n\\geometry{$papersize}\n";
print TEX "\\usepackage{inputenc}\n";
print TEX "\\inputencoding{latin1}\n";
print TEX "\\renewcommand{\\familydefault}{\\sfdefault}\n";
print TEX "\\usepackage[newdimens]{labels}\n";
# This printing is now done by printLabelFormat() below (this is Avery label format)
#print TEX "\\LabelRows=10\n\\LabelCols=3\n";
#print TEX "\\LeftPageMargin=4.2mm\n\\RightPageMargin=4.2mm\n";
#print TEX "\\TopPageMargin=12.7mm\n\\BottomPageMargin=12.7mm\n";
#print TEX "\\InterLabelColumn=2.1mm\n\\InterLabelRow=0mm\n";
#print TEX "\\LeftLabelBorder=4mm\n\\RightLabelBorder=4mm\n";
#print TEX "\\TopLabelBorder=2mm\n\\BottomLabelBorder=2mm\n";
printLabelFormat(*TEX, $format );
print TEX "\\LabelInfotrue\n";
if ( $showGrid ) {
print TEX "\\LabelGridtrue\n";
}
print TEX "\\begin{document}\\begin{labels}\n";
# Loop through all students, printing their label.
foreach my $key (sort keys %arr ) {
#print "K:$key V:$arr{$key}
\n";
my ($dud, $studnum) = split /:/, $key;
# Get values for this student
$sth->execute( $studnum );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $hash_ref = $sth->fetchrow_hashref;
# Filter Records
foreach my $key ( keys %{ $hash_ref } ) {
( $hash_ref->{$key} ) = latex_filter( $hash_ref->{$key} );
}
my $newlayout = $layout;
# Now put in field values into layout block
$newlayout =~ s{\<\#(.*?)\#\>}
{ exists($hash_ref->{$1})
? $hash_ref->{$1}
: $1
}gsex;
#$result = 'print TEX <<"EOF";'."\n".$layout."\n".'EOF';
#while (my @arr = $sth->fetchrow ){
# eval $result;
#}
$newlayout =~ s/\n\s*\n/\n/g; # strip blank lines (or lines with whitespace only)
print TEX $newlayout. "\n\n";
}
print TEX "\\end{labels}\n\\end{document}\n";
close TEX;
# Solve download location issues with cgi vs tcgi..
# Get current dir so know what CSS to display;
#if (getcwd() =~ /tcgi/){ # we are in tcgi
# $downloaddir = $tchdownloaddir;
# $webdownloaddir = $tchwebdownloaddir;
#}
system("$pdflatex $filename >pdflog$$.txt");
system("mv $shortname.pdf $downloaddir");
system("mv pdflog$$.txt $downloaddir");
system("rm -f $shortname.*");
print "\n";
print "[ ". $lex{Main};
print " |\n ";
print $lex{'View Log File'}. "\n ]