#!/usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
my $templatepath = "../../template/";
%lex = ('Report' => 'Report',
'Eoy' => 'Eoy',
'Main' => 'Main',
'Staff' => 'Staff',
'Preregistration' => 'Preregistration',
'Unable to open template file' => 'Unable to open template file',
'Download' => 'Download',
'View Log File' => 'View Log File',
'View' => 'View',
'Error' => 'Error',
'Continue' => 'Continue',
'Select' => 'Select',
'Template' => 'Template',
'Font Size' => 'Font Size',
'Emergency' => 'Emergency',
'Certification' => 'Certification',
'LDAP' => 'LDAP',
);
use DBI;
use CGI;
#use strict;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
# Get Lib Latex for filtering
eval require "../../lib/liblatex.pl";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $q = CGI->new;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
# Select table report on; staff or prereg_staff;
my ($table, $tableview);
if ( $arr{tbl} ){ # report prereg_staff table
$table = 'prereg_staff';
$tableview = qq{$lex{Preregistration} $lex{Staff}};
} else {
$table = 'staff';
$tableview = $lex{Staff};
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Display page header
print qq{$doctype\n$tableview $lex{Report}\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | };
print qq{$lex{Eoy} ]\n};
print qq{
$tableview $lex{Report}
\n};
my @tim = localtime(time);
my $year = $tim[5] + 1900;
my $month = $tim[4] + 1;
my $day = $tim[3];
if (length($month) == 1){ $month = "0".$month;}
if (length($day) == 1){ $day = "0".$day;}
my $currsdate = "$year$month$day";
my $currdate = "$month[$month] $day, $year";
if ( not $arr{page} ) {
showStartPage();
} else {
delete $arr{page};
}
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# passed: templatefile and fontsize.
my $templatefile = $arr{template};
# Get the report template...
unless ( open ( FH,"<", $templatepath. $templatefile )) {
print qq{$lex{Error} $lex{Template}: $!\n};
die qq{$lex{Error} $lex{Template}: $!\n};
}
my $formtext;
{ local $/; $formtext = ; close FH;}
# Create hash for fieldnames from meta.
my $sth = $dbh->prepare("select fieldid, fieldname, required
from meta where tableid = ?");
$sth->execute( 'staff' );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my %meta;
while ( my ( $fieldid, $fieldname, $required ) = $sth->fetchrow ) {
if ( $required and $mode eq 'html') { # has any value
$fieldname = qq{$fieldname};
}
$meta{ $fieldid } = $fieldname;
}
# Add in Other Values on Template.
$meta{Emergency} = $lex{Emergency};
$meta{Certification} = $lex{Certification};
$meta{'LDAP'} = $lex{LDAP};
# Now put replacement fieldnames back in.
$formtext =~ s{\<\*(.*?)\*\>}
{ exists( $meta{$1} )
? $meta{$1}
: $1
}gsex;
#print qq{FORM: $formtext \n};
# Find all fields , so we only wrap forms around them (typically
# faster than doing all fields in the table )
my @fields = ();
while ( $formtext =~ m/\<\@(.*)\@\>/g){
push @fields, $1;
}
# Open a TeX file
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 qq{$lex{Preregistration} $lex{Staff} $lex{Report}};
} else {
print TEX qq{$lex{Staff} $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; }
$sth1 = $dbh->prepare("select field_value from staff_multi
where userid = ? and field_name = ? order by field_value");
while ( my $ref = $sth->fetchrow_hashref ) {
my %rec = %$ref;
foreach my $key ( keys %rec ) {
($rec{$key}) = latex_filter( $rec{$key} );
}
# Load the Grade, Homeroom and Position values and assemble into
# $grade, $position, and $homeroom
foreach my $type ( qw( grade homeroom position )) {
$sth1->execute( $rec{userid}, $type);
my $fieldval;
while ( my $val = $sth1->fetchrow ) {
$fieldval .= $val. ' ';
}
$rec{$type} = $fieldval;
}
my $text = $formtext; # make a new blank record to plug in...
# Now put replacement text back in.
$text =~ s{\<\@(.*?)\@\>}
{ $rec{$1} }gsex;
# Temp: escape underscores in field names
$text =~ s/[^\\]\_/\\_/g;
print TEX $text,"\n";
}
print TEX "\\end{document}";
close TEX;
system("$pdflatex $filename > $logfile");
system("mv $shortname.pdf $downloaddir");
system("mv $logfile $downloaddir");
system("rm $shortname.*");
print qq{