#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Enrollment by Age' => 'Enrollment by Age', 'Main' => 'Main', 'Printing Date' => 'Printing Date', 'Age Group' => 'Age Group', 'Boys' => 'Boys', 'Girls' => 'Girls', 'Male' => 'Male', 'Female' => 'Female', 'Total' => 'Total', 'Aging Date' => 'Aging Date', 'Error' => 'Error', 'Continue' => 'Continue', 'Blank=Today' => 'Blank=Today', ); use DBI; use CGI; my $self = 'rptenrolage.pl'; eval require "../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } 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 $q = new CGI; print $q->header( -charset, $charset ); %arr = $q->Vars; print qq{$doctype\n$lex{'Enrollment by Age'}\n}; print qq{ $chartype\n[ $lex{Main} ]\n}; print qq{

$lex{'Enrollment by Age'}

\n}; if ( not $arr{page} ) { showStartPage(); } my ($date,$yr,$mo,$da); if ( not $arr{agingdate} ) { $yr = $year; $mo = $mon; $da = $mday; } else { $date = $arr{agingdate}; ( $yr, $mo, $da ) = split /-/, $date; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); print qq{

$lex{'Printing Date'}: $currdate

\n}; print qq{$lex{'Aging Date'}: $yr-$mo-$da\n}; my %ages; $sth = $dbh->prepare("select sex, birthdate from student order by birthdate"); $sth->execute; if ( $DBI::errstr ) { print $DBI::erstr; die $DBI::errstr; } while ( my ($sex,$birthdate) = $sth->fetchrow ) { my $age; if (not $birthdate or $birthdate eq '0000-00-00'){ next; } ($curryear, $currmonth,$currday) = split /-/,$birthdate; $age = $yr - $curryear; #first subtract years if ($currmonth > $mo) { $age-- } if ($currmonth == $mo and $currday > $da) { $age-- } $student = "$age$sex:$age:$sex"; push @rec, $student; #push data into array } print qq{\n}; print qq{}; print qq{\n}; my $curage = 0; my $cursex = ""; my $boycount = 0; my $girlcount = 0; @sortedrec = sort {$a <=> $b } @rec; foreach my $arrayref ( @sortedrec ) { ($blank,$age,$sex) = split /:/, $arrayref; if ( $age != $curage and $curage != 0 ) { # we have a new agegroup $total = $boycount + $girlcount; print qq{}; print qq{\n}; $boycount = 0; $girlcount = 0; } $curage = $age; if ($sex eq "M") { $boycount ++; } else { $girlcount ++; } } $total = $boycount + $girlcount; print qq{}; print qq{\n}; print qq{

$lex{'Age Group'}	$lex{Male}	$lex{Female}	$lex{Total}
$curage	$boycount	$girlcount	$total
$curage	$boycount	$girlcount	$total

\n}; #---------------- sub showStartPage { #---------------- print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; exit; }

$lex{'Aging Date'}	\n}; print qq{\n}; print qq{ $lex{'Blank=Today'}}; print qq{
	\n}; print qq{