#!/usr/bin/perl
# Copyright 2001-2007 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.
# File: rpttransmon.pl
# Monthly report for Enrollment change.
# PDF Output
my %lex = ('Monthly Transfer Report' => 'Monthly Transfer Report',
'Date format Error' => 'Date format Error',
'View/Download' => 'View/Download',
'View Log File' => 'View Log File',
'Main' => 'Main',
'Current Date' => 'Current Date',
'Aging Date' => 'Aging Date',
'Month of' => 'Month of',
'No Enrollment Changes in Current Enrollment' => 'No Enrollment Changes in Current Enrollment',
'enrol' => 'New Enrollments',
'reenrol' => 'Reenrollments',
're-enrol' => 'Reenrollments',
'withdraw' => 'Withdrawals',
'Student' => 'Student',
'Reason' => 'Reason',
'Go Back' => 'Go Back',
'Date' => 'Date',
'Principal' => 'Principal',
);
# show Principal Signature Line; set to 0 to turn off
my $principalSign = 1;
use DBI;
use CGI;
# Used for the category titles
my $shortname = "rpttransfer$$";
my $fileName = "$shortname.tex";
my @month = ('','January','February','March','April','May','June','July',
'August','September','October','November','December');
my @dow = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday,
$iddst) = localtime(time);
$year = $year + 1900;
$mon++;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
my $q = new CGI;
print $q->header;
my %arr = $q->Vars;
# Read config variables
require "../etc/admin.conf" || die "Cannot read admin.conf!";
# Print Page Head.
print "$doctype\n". $lex{'Monthly Transfer Report'}. "
$chartype\n[ ". $lex{Main}. " ]\n";
my $dsn = "DBI:$dbtype:dbname=$dbase";
$dbh = DBI->connect($dsn,$user,$password);
# No date defined.
if (not $arr{date}) { # We'll go back 1 month.
if ($mon > 1){ #Jan is zero in localtime function.
$mo = $mon - 1;
$yr = $year;
} else { # month is 1, go to prev dec.
$mo = 12;
$yr = $year - 1;
}
$da = "01";
} else { # We have been passed a date.
$date = $arr{date};
$yr = 2000 + substr($date,0,2);
$mo = substr($date,2,2);
#$da = substr($date,4,2); # Change date to the first of the month.
$da = "01";
}
my $agingdate = "$yr-$mo-$da";
if ($yr == 0 or $mo == 0 or $da == 0) {
print '