};
print qq{Route:$route\n};
my $count = 1;
print TEX "\\center{{\\bf $schoolname $lex{'Bus Report'} $lex{Attendance}} - $currdate \\\\ \n";
print TEX "{\\bf $lex{Route}: $route } \\\\ \n";
print TEX "\\medskip\n\\begin{tabular}{|p{7cm}|p{2.5cm}|p{2.5cm}|p{2.5cm}|p{2.5cm}|p{2.5cm}|}\n";
print TEX "\\hline\n\\rule[4pt]{0pt}{11pt} {\\bf $lex{Name}/$lex{Grade}/$lex{HRm} }";
print TEX "& \\hfil {\\bf Monday }\\hfil &\\hfil {\\bf Tuesday}\\hfil &\\hfil{\\bf Wedneday}\\hfil";
print TEX "&\\hfil {\\bf Thursday}\\hfil &\\hfil{\\bf Friday}\\hfil \\\\ \n\\hline\n";
foreach my $val ( @{$bus{$route}} ) { # student/family loop
# print qq{VAL:$val
\n};
my ( $fam,$studnum ) = split(':', $val);
if ( not $studnum ) { # only studnum passed not fam:studnum )
$studnum = $fam;
undef $fam;
}
$prevfamily = $currfamily;
$currfamily = $fam; # if exists;
# get student record
$sth->execute($studnum);
if ($DBI::errstr){ print $DBI::errstr; die; }
my $ref = $sth->fetchrow_hashref;
my %r = %$ref;
foreach my $val ( values %r ) {
( $val ) = latex_filter( $val );
}
print qq{$r{firstname} $r{lastname} / \n};
#remove any accidental spaces from the front or end of the route
# $route =~ s/^\s+//;
# $route =~ s/\s+$//;
if ( $linecount > $maxlines ) { # end current page and start a new one.
# We'll print a new page header here
print TEX "Students: $studcount & & & & \\\\ \\hline";
print TEX "\\end{tabular}\\\\";
print TEX "\n\\newpage\n";
print TEX "\\center{{\\bf $schoolname $lex{'Bus Report'} $lex{Attendance}} - ";
print TEX "$currdate \\\\ \n";
print TEX "{\\bf $lex{Route}: $route } \\\\ \n";
print TEX "\\medskip\n\\begin{tabular}";
print TEX "{|p{7cm}|p{2.5cm}|p{2.5cm}|p{2.5cm}|p{2.5cm}|p{2.5cm}|}\n";
print TEX "\\hline\n {\\bf $lex{Name}/$lex{Grade}/$lex{HRm} }";
print TEX "& {\\bf Monday } & {\\bf Tuesday} & {\\bf Wedneday}";
print TEX "& {\\bf Thursday} & {\\bf Friday} \\\\ \n\\hline\n";
$linecount = 0;
$studcount = 0;
$count = 1;
} # End of New Page Header
# Normal record printing.
if ( $fam and $currfamily ne $prevfamily ) {
# print a blank family line.
# $fam is just the LINK field, not the Family Name field.
my $namefield = $g_FamilyGroupNameField;
my $familyname = $r{$namefield};
$tempfam = $fam;
$tempfam =~ s/#//;
print TEX "\\rowcolor[gray]{0.8}\\multicolumn{6}{|l|}";
print TEX "{\\bf Family $familyname ($tempfam)}\\\\\n\\hline\n";
$linecount++;
}
print TEX "\\rule[4pt]{0pt}{11pt}\\raggedright{\\bf $r{lastname}, ";
print TEX "$r{firstname} $r{middlename}} ";
print TEX "G$r{grade}/$r{homeroom} ";
print TEX "& & & & & ";
print TEX "\\\\ \\hline \n";
$linecount++;
$studcount++;
$count++;
} # End of student loop
# Now end the partial page
print TEX "Students: $studcount & & & & & \\\\ \\hline";
print TEX "\\end{tabular}\\\\\n";
print TEX "\\newpage\n\n";
$studcount = 0;
$linecount = 0;
} # end of bus driver route
print TEX "\\end{document}";
close TEX;
system("$pdflatex $filename > $logfile");
system("mv $shortname.pdf $downloaddir");
system("mv $logfile $downloaddir");
system("rm -f $shortname.*");
print qq{
\n};
print qq{
\n};
print qq{
\n};
print qq{\n};
#----------------
sub showStartPage {
#----------------
# Display Current Busroute numbers;
my $sth = $dbh->prepare("select distinct busroute, count(busroute) from student
where busroute != '' and busroute is NOT NULL
group by busroute order by busroute");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $first = 1;
while ( my ( $busroute, $count ) = $sth->fetchrow ) {
if ( $first ) {
print qq{
\n};
print qq{| Bus Routes | Count |
|---|
\n};
$first = 0;
}
print qq{| $busroute | $count |
\n};
}
if ( not $first ) {
print qq{
\n};
} else {
print qq{
No Bus Routes found
\n};
print qq{