\n};
if ( not $arr{page} ) {
showStartPage();
}
# Setup Database access
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Get the report template...
my ( $dud, $templatefile ) = split /\[/, $arr{template};
chop $templatefile;
unless ( open ( FH,"<", $templatepath. $templatefile )) {
print $lex{Error}. q{ }. $lex{Template}.": $!\n";
die $lex{Error}. q{ }. $lex{Template}.": $!\n";
}
my $formtext;
my $desc = ;
my $modeline = ;
chomp $modeline; # remove trailing CR/LF.
$modeline =~ s/^\s*//; # strip any leading spaces.
my ($mode, $fmtstart,$fmtend) = split /::/, $modeline;
my $header = ; # header information for both pdf or html.
$header =~ s/^\s*//; # strip any leading spaces
my $line4 = ; # for future expansion, if required.
my $line5 = ;
# Now load rest of template for layout.
{ local $/; $formtext = ; close FH;}
#print qq{Formtext: $formtext
\n};
# Create hash for fieldnames from meta.
my $sth = $dbh->prepare("select fieldid, fieldname, required
from meta where tableid = ?");
$sth->execute( 'student' );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my %fieldnames = ();
while ( my ( $fieldid, $fieldname, $required ) = $sth->fetchrow ) {
if ( $required ) { # has any value
if ( $mode eq 'html' ) {
$fieldname = qq{$fieldname};
} else { # pdf format
$fieldname = "{\\bf $fieldname}";
}
}
$fieldnames{$fieldid} = $fieldname;
}
# Now put replacement fieldnames back in.
$formtext =~ s{\<\*(.*?)\*\>}
{ exists( $fieldnames{$1} )
? $fieldnames{$1}
: $1
}gsex;
# Replace other non-meta values in formtext.
my %nonmeta = ();
while ( $formtext =~ m/\<\#(.*)\#\>/g){
if ( $lex{ $1 } ) { # if we have a translation....
$nonmeta{$1} = $lex{$1};
} else { # no translation.
$nonmeta{$1} = 'NT:'. $1;
}
}
# now put them back in...
$formtext =~ s{\<\#(.*?)\#\>}
{ exists( $nonmeta{$1} )
? $nonmeta{$1}
: $1
}gsex;
# Update translation in header.
%lex = ( %lex, %fieldnames ); # join %lex and %fieldnames
#foreach my $key ( keys %lex ) {
# ( $lex{$key} ) = latex_filter( $lex{$key} );
#}
if ( $header ) {
$header =~ s{\<\*(.*?)\*\>}
{ exists( $lex{$1} )
? $lex{$1}
: $1
}gsex;
}
# Find all fields , so we only wrap forms around them
# ( faster than doing all fields in the table )
my @fields = ();
while ( $formtext =~ m/\<\@(.*)\@\>/g){
push @fields, $1;
}
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
#print qq{Formtext: $formtext
\n};
# Now select Students
my @students = ();
my $sort = 'name'; # hold type of sort.
if ( $arr{groupvalue} ) { # then we have to do something...
my $group;
my @groups = ();
@groups = split /\s+/, $arr{groupvalue};
if ( $arr{grouptype} eq $lex{Grade} ) {
$group = 'grade';
$sort = 'grade';
} else {
$group = 'homeroom';
$sort = 'homeroom';
}
my $sth = $dbh->prepare("select studnum from student where $group = ?
order by $group, lastname, firstname");
foreach my $grp ( @groups ) {
$sth->execute( $grp );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
push @students, $studnum;
}
}
} else { # all students
my $sortorder = "lastname, firstname";
if ( $arr{sortorder} eq $lex{Homeroom} ) {
$sortorder = "homeroom, lastname, firstname";
$sort = 'homeroom';
} elsif ( $arr{sortorder} eq $lex{Grade} ) {
$sortorder = "grade, lastname, firstname";
$sort = 'grade';
}
$sth = $dbh->prepare("select studnum from student order by $sortorder");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
push @students, $studnum;
}
}
# Now print output based on mode (html or pdf)
if ( $mode eq 'pdf' ) {
printPDF();
} elsif ( $mode eq 'html' ) {
printHTML();
} else { # error;
print qq{$lex{Error}: $lex{Mode} $lex{'Not Found'}\n};
print qq{\n};
}
#-----------
sub printPDF {
#-----------
# Start TEX Section.
my $shortname = "rptmedical$$";
my $filename = "$shortname.tex";
open(TEX,">$filename") || die $lex{'Cannot open'}. " tex file\n";
# Set Paper Size, text width and height, fontsize
my ( $papersize, $textwidth, $textheight );
if ( $arr{papersize} eq $lex{Letter} ) {
$papersize = 'letterpaper';
$textwidth = $g_letterpaper_textwidth;
$textheight = $g_letterpaper_textheight;
} elsif ( $arr{papersize} eq $lex{Legal} ) {
$papersize = 'legalpaper';
$textwidth = $g_legalpaper_textwidth;
$textheight = $g_legalpaper_textheight;
} elsif ( $arr{papersize} eq $lex{A4} ) {
$papersize = 'a4paper';
$textwidth = $g_a4paper_textwidth;
$textheight = $g_a4paper_textheight;
}
# print qq{Papersize: $papersize TW: $textwidth TH: $textheight \n};
# Not required here, perhaps
# $textheight =~ s/mm//;# $textheight += 16;# $textheight .= 'mm';
my $fontsize = $arr{fontsize}. 'pt';
print TEX "\\documentclass[ $fontsize, $papersize ]{article}
\\usepackage{newcent,graphicx,array,colortbl,inputenc,multicol}
$a_latex_header
\\renewcommand{\\familydefault}{\\sfdefault}
\\usepackage[bookmarks=false,pdfstartview=FitH]{hyperref}
\\setlength{\\textwidth}{ $textwidth }
\\setlength{\\textheight}{ $textheight }
\\setlength{\\hoffset}{-20mm}
\\setlength{\\voffset}{-25mm}
\\setlength{\\topmargin}{0mm}
\\setlength{\\evensidemargin}{0mm}
\\setlength{\\oddsidemargin}{0mm}
\\setlength{\\parindent}{0mm}
\\setlength{\\extrarowheight}{4pt}
\\begin{document}
\\pagestyle{empty}\n";
print TEX "$lex{Medical} $lex{Report} - {\\LARGE $schoolname }";
print TEX " \\hfill $currdate\n\\bigskip\n\n";
if ( $fmtstart ) {
print TEX $fmtstart, "\n";
}
$header =~ s/\_//g; # filter underscores in field names
if ( $header ) {
print TEX $header, "\n";
}
my $sth = $dbh->prepare("select * from student_medical as sm, student as s
where s.studnum = sm.studnum and s.studnum = ?");
my $first = 1;
my $curroom = -1;
my $counter = 1;
foreach my $studnum ( @students ) {
$sth->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %rec = %$ref;
foreach my $key ( sort keys %rec ) {
( $rec{$key} ) = latex_filter( $rec{$key});
}
$oldroom = $curroom;
if ( $sort eq 'homeroom' ) { $curroom = $rec{homeroom}; }
elsif ( $sort eq 'grade' ) { $curroom = $rec{grade}; }
# put in extra page break if we are starting a new room/grade
if ( $curroom ne $oldroom and not $first and $sort ne 'name' ) {
if ( $fmtend ) { print TEX $fmtend, "\n"; }
print TEX "\\newpage\n\n";
if ( $fmtstart ) { print TEX $fmtstart, "\n"; }
if ( $header ) { print TEX $header, "\n";}
$counter = 1; # Set counter back to one to print x recs/page
} else { $first = 0; }
my $text = $formtext; # make a new blank record to plug in...
# Now put replacement text back in.
$text =~ s{\<\@(.*?)\@\>}
{ $rec{$1} }gsex;
$text =~ s/\_/ /g; # remove underscores in field names.
# print qq{TXT:$text
\n";
print TEX $text,"\n";
# if ( $fmtend ) { print TEX $fmtend, "\n"; }
# print TEX "\\newpage\n\n";
# if ( $fmtstart ) { print TEX $fmtstart, "\n"; }
# if ( $header ) { print TEX $header, "\n";}
# }
$counter++;
} # End of this medical record
} # End of Student Loop
if ( $fmtend ) {
print TEX $fmtend;
}
print TEX "\\end{document}";
close TEX;
system("$pdflatex $filename > pdflog$$.txt");
system("mv $shortname.pdf $downloaddir");
system("mv pdflog$$.txt $downloaddir");
system("rm $shortname.*");
print qq{