#!/usr/bin/perl # Copyright 2001-2012 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 = ('School Enrollment' => 'School Enrollment', 'Main' => 'Main', 'Enrollment' => 'Enrollment', 'Current Date' => 'Current Date', 'Aging Date' => 'Aging Date', 'Current Enrollment' => 'Current Enrollment', 'Student' => 'Student', 'Grade' => 'Grade', 'Date' => 'Date', 'Type' => 'Type', 'Description' => 'Description', 'Enrolled' => 'Enrolled', 'Not Found' => 'Not Found', 'No Enrollment Changes' => 'No Enrollment Changes', 'Error' => 'Error', 'Continue' => 'Continue', 'Blank=Today' => 'Blank=Today', 'by' => 'by', ); use DBI; use CGI; my $self = 'rptenroldate.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 $currsdate = "$year-$mon-$mday"; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; print "$doctype\n$lex{'School Enrollment'}\n"; print "\n"; print "$chartype\n\n"; print "[ $lex{Main} ]\n"; print "

$lex{Enrollment} $lex{by} $lex{Date}

\n"; if ( not $arr{page} ) { showStartPage(); } my ($mo, $yr, $da); if ( not $arr{agingdate} ) { # We'll go back 1 month. if ( $mon > 1 ){ $mo = $mon; $yr = $year; } else { # else we're at 1 - January... $mo = 12; $yr = $year - 1; } $da = $mday; } else { ($yr, $mo, $da) = split(/-/, $arr{agingdate} ); } my $agingdate = "$yr-$mo-$da"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # First count how many currently enrolled (in student table) my $sth = $dbh->prepare("select count(*) from student"); $sth->execute; my $curenrol = $sth->fetchrow; # Now count backwards through entry records until we reach date of interest my $sth1 = $dbh->prepare("select * from transfer where to_days(date) >= to_days('$agingdate') order by date desc"); $sth1->execute; if ($DBI::errstr) {print $DBI::errstr; die $DBI::errstr; } my $rows = $sth1->rows; print "\n"; print "\n"; print "\n"; print "\n"; print "
$lex{'Current Date'}$currdate
$lex{'Aging Date'}$agingdate
$lex{'Current Enrollment'}$curenrol
\n"; if ( $rows < 1 ) { print "

$lex{'No Enrollment Changes'}

\n"; print "\n"; exit; } print "\n"; print ""; print "\n"; my $sth2 = $dbh->prepare("select lastname, firstname, grade from studentall where studnum = ?"); for ( 1 .. $rows ) { my $ref = $sth1->fetchrow_hashref; my %sr = %$ref; # Find student name my $name; $sth2->execute( $sr{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $grade ) = $sth2->fetchrow; if ( not $lastname ) { if ( $sr{lastname} ) { $name = "$sr{firstname} $sr{lastname}"; } else { $name = $lex{'Not Found'}; } } else { $name = "$firstname $lastname"; } # print record print "\n"; print "\n"; print "\n"; # Change Enrollment Number if ( $sr{type} ne 'withdraw' ) { # then was an enrol $curenrol--; } else { $curenrol++; } } print "
$lex{Student}$lex{Grade}$lex{Date}$lex{Type}$lex{Description}$lex{Enrolled}
$name ($sr{studnum})$grade$sr{date}$sr{type}$sr{description}$curenrol
\n"; #---------------- sub showStartPage { #---------------- print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
$lex{'Aging Date'}\n"; print "\n"; print " ". $lex{'Blank=Today'}; print "
\n"; print "
\n"; print "\n"; print "\n"; exit; }