#!/usr/bin/perl
# Copyright 2001-2021 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 = ('Student Infractions' => 'Student Infractions',
'Main' => 'Main',
'Discipline' => 'Discipline',
'Error' => 'Error',
'Totals' => 'Totals',
'Infractions' => 'Infractions',
);
my $self = 'rptDisc1.pl';
use DBI;
use CGI;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
# Set Date
my @tim = localtime(time);
my $cyear = @tim[5] + 1900;
my $cmonth = @tim[4] + 1;
my $cday = @tim[3];
my $currdate = "$cyear-$cmonth-$cday";
my $curryrmo = "$cyear-$cmonth";
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my $title = "$lex{'Student Infractions'}";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | \n};
print qq{$lex{Discipline} ]\n};
print qq{
$title
\n};
#if ( not $arr{page} ) {
# showStartPage();
#} elsif ( $arr{page} == 1 ) {
# delete $arr{page};
showReport();
#}
#---------------
sub showReport {
#---------------
my ($y,$m,$d) = split('-', $currdate);
my $displaydate = "$month[$m] $d, $y";
print qq{
$displaydate
\n};
# Get Infractions
my %infractions;
my $sth = $dbh->prepare("select distinct infraction from disc_event");
$sth->execute;
if ($DBI::errstr) {print qq{Error: $DBI::errstr}; die;}
while (my $inf = $sth->fetchrow ) {
$infractions{$inf} = 1;
}
# Set curr yr,mo
my @tim = localtime(time);
my $cyear = @tim[5] + 1900;
my $cmonth = @tim[4] + 1;
my $cday = @tim[3];
# Setup Year-Months.
my @months;
my %months;
my ($sy, $sm, $sd) = split('-', $schoolstart); # schoolstart is global var from config.
my $yrmo = "$sy-$sm";
push @months, $yrmo;
$months{$yrmo} = "$s_month[$sm]-$sy";
for my $i (1..10) {
my $mo = $sm + $i;
my $yr = $sy;
if ( $mo > 12 ) {
$mo = $mo - 12;
$yr++;
}
if ( length $mo == 1 ) { $mo = '0'. $mo; }
my $yrmo = "$yr-$mo";
push @months, $yrmo;
$months{$yrmo} = "$s_month[$mo]-$yr";
# print "YR:$yr MO:$mo \n";
if ( $yr == $cyear and $mo == $cmonth ) { # done
last;
}
}
my %data; # data{yrmo}{infraction} = 1;
my $sth = $dbh->prepare("select count(*) from disc_event where month(date) = ?
and year(date) = ? and infraction = ?");
foreach my $inf ( %infractions ) {
foreach my $yrmo ( @months ) {
my ($y,$m ) = split('-', $yrmo);
$sth->execute($m,$y, $inf);
if ($DBI::errstr) {print qq{Error: $DBI::errstr}; die;}
my $count = $sth->fetchrow;
$data{$inf}{$yrmo} = $count;
}
}
print qq{
\n};
# Header
print qq{
$lex{Infraction}
};
foreach my $yrmo (@months ) {
print qq{
$months{$yrmo}
};
}
print qq{
$lex{Totals}
\n};
# Data
foreach my $inf ( sort keys %infractions ) {
print qq{
$inf
\n};
my $total;
foreach my $yrmo ( @months ) {
print qq{