#!/usr/bin/perl # Copyright 2001-2021 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. my %lex = ('Medical' => 'Medical', 'Report' => 'Report', 'Select' => 'Select', 'Main' => 'Main', 'Error' => 'Error', 'Category' => 'Category', 'Continue' => 'Continue', 'Font Size' => 'Font Size', 'Paper Size' => 'Paper Size', 'Letter' => 'Letter', 'Legal' => 'Legal', 'A4' => 'A4', 'Type' => 'Type', 'PDF' => 'PDF', 'HTML' => 'HTML', 'View/Download' => 'View/Download', 'View Log File' => 'View Log File', 'Page' => 'Page', 'Add' => 'Add', 'Page Break' => 'Page Break', 'Student' => 'Student', 'Cannot open' => 'Cannot open', ); my $self = 'rptmedcategory.pl'; use DBI; use CGI; use Number::Format qw(:all); # Read config variables eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; print $lex{Error}. " $@
\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; 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 $title = qq{$lex{Medical} $lex{Report} - $lex{Category}}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; printReport(); } #-------------- sub printReport { #-------------- #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # exit; my $pagebreak = $arr{pagebreak}; delete $arr{pagebreak}; my $sth = $dbh->prepare("select s.studnum, s.lastname, s.firstname, s.grade, s.homeroom from student as s, student_medical as sm where s.studnum = sm.studnum and sm.category = ? order by s.lastname, s.firstname"); my $sth1 = $dbh->prepare("select category, description from student_medical where studnum = ?"); if ( $arr{type} eq 'html' ) { # html generation. delete $arr{type}; # Not needed here. delete $arr{fontsize}; delete $arr{papersize}; # Loop through all categories foreach my $cat ( sort keys %arr ) { # Start the Table print qq{\n}; print qq{\n}; # Get the Students with this cat. $sth->execute( $cat ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $count = 0; my $first = 1; while ( my ( $studnum, $lastname, $firstname, $grade, $homeroom ) = $sth->fetchrow ) { if ( $count % 4 == 0 ) { if ( $count ) { print qq{\n}; } print qq{}; } print qq{\n}; $count++; } if ( $count > 4 ) { my $fill = 4 - ($count % 4); if ( $fill == 4 ) { $fill = 0; } foreach ( 1 .. $fill ) { print qq{}; } } print qq{
$cat
$lastname, $firstname ($studnum) $homeroom/$grade

 

\n}; } print qq{[ $lex{Main} ]\n}; print qq{\n}; } else { # pdf generation delete $arr{type}; # Start TEX Section. my $shortname = "rptmedcat$$"; 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"; my $fontsize = $arr{fontsize}. 'pt'; delete $arr{papersize}; delete $arr{fontsize}; print TEX "\\documentclass[ $fontsize, $papersize ]{article} \\usepackage{newcent,graphicx,array,colortbl,inputenc,multicol,fancyhdr} $a_latex_header \\renewcommand{\\familydefault}{\\sfdefault} \\usepackage[pdftex,bookmarks=false,pdfstartview=FitH]{hyperref} \\setlength{\\textwidth}{ $textwidth } \\setlength{\\textheight}{ $textheight } \\setlength{\\hoffset}{-16mm} \\setlength{\\voffset}{-20mm} \\setlength{\\topmargin}{0mm} \\setlength{\\evensidemargin}{0mm} \\setlength{\\oddsidemargin}{0mm} \\setlength{\\parindent}{0mm} \\setlength{\\extrarowheight}{4pt} \\setlength{\\headsep}{4pt} \\begin{document} \\pagestyle{fancy} \\lhead{$schoolname -- $schoolyear} \\rfoot{$lex{Page} \\thepage} \\cfoot{ } \\thispagestyle{empty}\n"; print TEX "{\\LARGE $lex{Student} $lex{Medical} $lex{Report}}"; print TEX " \\hfill $currdate\n\\bigskip\n\n"; # Loop through all categories foreach my $cat ( sort keys %arr ) { # Start the Table print TEX "\\begin{tabular}{|p{45mm}|p{45mm}|p{45mm}|p{45mm}|}\\hline\n"; print TEX "\\multicolumn{4}{|c|}{\\cellcolor[gray]{0.92}"; print TEX "\\rule[-4pt]{0pt}{20pt}\\LARGE $cat} \\\\ \\hline\n"; # Get the Students with this cat. $sth->execute( $cat ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $count = 0; my $first = 1; while ( my ( $studnum, $lastname, $firstname, $grade, $homeroom ) = $sth->fetchrow ) { if ( $count % 4 == 0 ) { # End the row if ( $count ) { print TEX "\\\\ \\hline\n"; } if ( $count % 20 == 0 and $count ) { # End the table print TEX "\\end{tabular}\n\n"; print TEX "\\begin{tabular}{|p{45mm}|p{45mm}|p{45mm}|p{45mm}|}\\hline\n"; } } else { # print the divider print TEX ' & '; } print TEX "{\\bf $lastname}, $firstname ($studnum) $homeroom/$grade"; $count++; } my $fill = 4 - ($count % 4); if ( $fill == 4 ) { $fill = 0; } foreach ( 1 .. $fill ) { print TEX '& '; } print TEX "\\\\\\hline\n\\end{tabular}\n\n"; if ( $pagebreak ) { print TEX "\\newpage\n\n"; } else { print TEX "\\bigskip\n"; } } 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{

}; print qq{$lex{'View/Download'} $lex{Medical} $lex{Report}

\n}; print qq{[ $lex{Main} | \n}; print qq{$lex{'View Log File'} ]\n}; print qq{\n}; } # end of pdf report exit; } #---------------- sub showStartPage { #---------------- # Get the Categories my @category; my $sth = $dbh->prepare("select distinct category from student_medical where category is not NULL and category != '' order by category"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $cat = $sth->fetchrow ) { push @category, $cat; } # Get the Grdaes my @grades; $sth = $dbh->prepare("select distinct grade from student where grade is not NULL and grade != '' order by grade"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $val = $sth->fetchrow ) { push @grades, $val; } # Get the Homerooms my @homerooms; $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != '' order by homeroom"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $val = $sth->fetchrow ) { push @homerooms, $val; } # Start Form print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Loop through all categories foreach my $cat ( @category ) { print qq{\n}; } # Blank Row # print qq{\n}; # Report Type print qq{\n}; # Paper Size print qq{\n}; # Font Size print qq{\n}; # Add Page Breaks print qq{\n}; # Continue / End of Form print qq{\n}; print qq{
$lex{Select} $lex{Category}
\n}; print qq{$cat
 
$lex{Type}}; print qq{
$lex{'Paper Size'}}; print qq{
$lex{'Font Size'}\n}; print qq{
$lex{Add} $lex{'Page Break'}\n}; print qq{}; print qq{
\n}; print qq{
\n}; print qq{\n}; exit; }