#! /usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
# A PDF Report
# ======= FN Attendance Report =======
# Get End date; Generate months up to end of enddate month.
# We only print out days enrolled AND that student actually attended.
# Column Format: Grade, Lastname, First, Middlename, Birthdate, Status
# Number (Treaty Number), Reserve, Parent1 Name, then single columns
# for each month (S,O,N,D,J,F,M,A,M,J).
# Sorted by Band, Lastname, Firstname (1 Page per Reserve).
my %lex = ('Attendance Report' => 'Attendance Report',
'Main' => 'Main',
'Attendance' => 'Attendance',
'Periods Per Day' => 'Periods Per Day',
'View/Download' => 'View/Download',
'View Log File' => 'View Log File',
'Last Name' => 'Last Name',
'First' => 'First',
'Middle' => 'Middle',
'Birthdate' => 'Birthdate',
'Status' => 'Status',
'Mother' => 'Mother',
'School Days' => 'School Days',
'Error' => 'Error',
'Date' => 'Date',
'Continue' => 'Continue',
'Records per Page' => 'Records per Page',
'Not Defined' => 'Not Defined',
'Grade' => 'Grade',
'Student' => 'Student',
'Not Found' => 'Not Found',
);
my $self = 'rptinac.pl';
use DBI;
use CGI;
use Number::Format qw(:all);
# Constants
my $defmaxrecords = 28; # Maximum records per PDF page.
my $group = 'band';
my $pdf = '1';
my $html;
# Read config variables
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
eval require "../../lib/libattend.pl";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
eval require "../../lib/liblatex.pl";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $dsn = "DBI:mysql:$dbase";
$dbh = DBI->connect($dsn,$user,$password);
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";
my $q = new CGI;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
# HTML Header
my $title = qq{First Nation/ISC $lex{'Attendance Report'}};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{
\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | $lex{Attendance} ]\n};
print qq{\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} else {
delete $arr{page};
}
my $enddate;
if ($arr{date}){
$enddate = $arr{date};
} else {
$enddate = $currsdate;
}
my $startdate = $schoolstart;
my %schooldays = mkSchoolDays( $startdate, $enddate, $dbh );
# returns hash of schooldays in month. key is yyyy-mm and value is schooldays in month
if ( $pdf ) { # Open TEX file, and print Header
$logfile = "pdflog$$.txt";
$shortname = "inac$$";
$filename = "$shortname.tex";
open(TEX, ">", $filename) || die "Can't open tex file";
print_tex_doc_start(); # Setup the start of the file.
}
my $select;
if ( $arr{reserveres} ) {
$select = "where reserveres = 1";
}
my $sth = $dbh->prepare("select * from student $select
order by band, lastname, firstname");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my $studrows = $sth->rows;
# Setup statement handle to find which table student is in.
my $sth5 = $dbh->prepare("select studnum from student where studnum = ?");
my $curroom = -1; # Watch! Not a value entered for a reason...hopefully.
my $firstflag = 1; # Flag to watch for first "real" person (not withdrawn)
while ( $sref = $sth->fetchrow_hashref ){
# LaTeX filter the student record
foreach my $key ( keys %$sref ) {
( $sref->{$key} ) = latex_filter( $sref->{$key} );
}
my %sr = %$sref;
$studentname = "$sr{lastname}, $sr{firstname} $sr{initial}";
$studnum = $sr{studnum};
# Now let's find which table student from: student or studentwd
$sth5->execute( $studnum );
if ($DBI::errstr) { print $DBI::errstr; die;}
my $active = $sth5->rows; # returns 1 if in student, 0 if not.
if ( not $active and $html){
$studentname = qq{$studentname};
}
$oldroom = $curroom;
$curroom = $sr{band}; # band
if ( $curroom ne $oldroom ) { # New Page Heading (band or group changes)
if ( not $firstflag ) {
print TEX "\n\\end{tabular}\n\n";
print TEX "\\hfil{\\bf Attended/Enrolled}\\hfil\n";
$linecount = 0;
} else { $firstflag = 0;}
if ( $arr{pagebreak} ) {
print TEX "\\newpage";
} else {
print TEX "\\smallskip";
}
print TEX qq{\n\n};
print_tex_header(); # includes a begin{tabular}
} # End of Header printing section
# Print this student's record
doAttSetup( $sref );
print_tex_record( $sref );
$linecount++;
if ( $linecount >= $arr{maxrecords} ){ # New page.
print TEX "\\end{tabular}\\newpage\n\n";
print_tex_header();
$linecount = 0;
}
} # End of main loop
print TEX "% print_tex_end here\n";
print TEX "\\end{tabular}\n\n\\end{document}";
close TEX;
system("$pdflatex $filename > $logfile");
system("mv $shortname.pdf $downloaddir");
system("mv $logfile $downloaddir");
system("rm -f $shortname.*");
print qq{