#!/usr/bin/perl
# Copyright 2001-2024 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 = ('Birthday' => 'Birthday',
'Report' => 'Report',
'Main' => 'Main',
'Month' => 'Month',
'Day' => 'Day',
'Name' => 'Name',
'Birthdate' => 'Birthdate',
'Error' => 'Error',
'School' => 'School',
'Continue' => 'Continue',
'No Records Found' => 'No Records Found',
'Age' => 'Age',
'Staff' => 'Staff',
);
my $self = 'rptstaffbirthday.pl';
use DBI;
use CGI;
use Cwd;
my %milestones = (29 => 1, 39 => 1, 49 => 1, 59 => 1, 69 => 1);
# Read config variables
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = new CGI;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday,
$iddst) = localtime(time);
$year += 1900;
$mon++;
$wday++;
my $currldate = "$dow[$wday], $month[$mon] $mday, $year";
my $currdate = qq{$year-$mon-$mday};
# Get current dir so know what CSS to display;
if ( getcwd() =~ /tcgi/ ){ # we are in tcgi
$css = $tchcss;
$homepage = $tchpage;
}
# print table head
my $title = qq{$lex{Staff} $lex{Birthday} $lex{Report}};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | EOY ]\n};
print qq{
$title
\n};
print qq{
$currldate
\n};
if ( not $arr{page} ) {
showStartPage();
} else {
delete $arr{page};
}
my $sth = $dbh->prepare("select lastname, firstname, birthdate, userid from staff");
$sth->execute;
if ( $DBI::errstr ) {print $DBI::errstr; die $DBI::errstr; }
my %missing;
my %records;
while ( my ( $lastname, $firstname, $birthdate, $userid ) = $sth->fetchrow ) {
if ( not $birthdate or $birthdate eq '0000-00-00' ) {
$missing{"$lastname$firstname"} = qq{$lastname:$firstname};
next;
}
my ($yr,$mon,$day) = split '-', $birthdate;
$records{"$mon$day$userid"} = "$lastname:$firstname:$birthdate:$userid";
}
my $first = 1;
foreach my $key ( sort keys %records ) {
my ($lastname, $firstname, $birthdate, $userid) = split(':', $records{$key});
if ( $first ) {
print qq{
\n};
print qq{
$lex{Month}
$lex{Day}
$lex{Name}
\n};
if ( $arr{showage} ) {
print qq{
$lex{Birthdate}
$lex{Age}
\n};
}
$first = 0;
}
my ($yr,$mon,$day) = split '-', $birthdate;
my $age = calcAge($birthdate,$currdate);
my ($y,$m) = split(':', $age);
my $style = 'text-align:center;';
if ( $milestones{$y} ) {
# print qq{YEAR:$y \n};
$style = "font-weight:bold;text-align:center;font-size:120%;"; }
$age = $y.'Y,'.$m. 'M';
print qq{
$month[$mon]
\n};
print qq{
$day
$lastname, $firstname
};
if ( $arr{showage} ) {
print qq{
$birthdate
$age
\n};
}
}
print qq{
\n};
print qq{
\n};
print qq{
Missing Birthdates
\n};
foreach my $key ( sort keys %missing ) {
my $val = $missing{$key};
my ($ln, $fn ) = split(':', $val);
print qq{