#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Admin for Schools.
# View AAA / ATTPlus records in attitude/academic table
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Continue' => 'Continue',
'Select' => 'Select',
'Student' => 'Student',
'Homeroom' => 'Homeroom',
'Grade' => 'Grade',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
);
use DBI;
use CGI;
use Cwd;
my $self = 'atpView.pl';
eval require "../../etc/admin.conf";
if ( $@ ) {
print "$lex{Error}: $self: $@ \n";
die "$lex{Error}: $self: $@\n";
}
# Get current dir so know what CSS to display and shift settings.
if ( getcwd() !~ /tcgi/ ) { # we are in cgi
$tchcss = $css;
$tchpage = $homepage;
$tchdownloaddir = $downloaddir;
$tchwebdownloaddir = $webdownloaddir;
}
my $q = new CGI;
print $q->header( -charset, $charset);
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Page Header
my $title = qq{View AttPlus Records};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showGroups();
}
#----------------
sub showStartPage {
#----------------
# Count Records in Each Table by Year-Month
foreach my $table ( 'atp_academic', 'atp_attitude' ) {
my $first = 1;
my $sth1 = $dbh->prepare("select count(*) from $table where yrmo = ?");
my $sth = $dbh->prepare("select distinct yrmo from $table order by yrmo");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($dud,$tname) = split('_', $table); # split table name apart
$tname = ucfirst($tname);
while ( my $yrmo = $sth->fetchrow ) {
my ($y,$m) = split('-', $yrmo);
$sth1->execute($yrmo);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
if ( $first ) {
print qq{
\n};
print qq{
$tname
\n};
print qq{
Month
#Records
More
\n};
$first = 0;
}
print qq{
$month[$m] $y
$count
};
# Start Form
print qq{
\n};
print qq{\n};
print qq{
\n};
}
print qq{
\n};
} # end of both tables;
print qq{\n};
exit;
} # end of showStartPage
#---------------
sub showGroups { # show homeroom/grade groups
#---------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# passed year-month
my $yrmo = $arr{yrmo};
my ($y,$m) = split('-', $yrmo);
print qq{
$month[$m] $y
\n};
foreach my $table ( 'atp_academic', 'atp_attitude' ) {
my $sth1 = $dbh->prepare("select grade,homeroom from studentall where studnum = ?");
# get all students in this table for this month
my (%grades, %homerooms);
my $sth = $dbh->prepare("select studnum from $table where yrmo = ?");
$sth->execute($yrmo);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
$sth1->execute($studnum);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($gr,$hr) = $sth1->fetchrow;
# print qq{GR:$gr HR:$hr \n};
$grades{$gr}++;
$homerooms{$hr}++
}
# print qq{GRADES:}, %grades," \n";
my ($dud,$tname) = split('_', $table); # split table name apart
$tname = ucfirst($tname);
foreach my $type ('grade', 'homeroom' ) {
my $temphead = ucfirst($type);
if ( $type eq 'grade' ) {
$bgcolor = 'red';
} else { $bgcolor = 'blue'; }
print qq{
\n};
print qq{
$tname
\n};
print qq{
$temphead
#Records
\n};
$first = 0;
if ( $type eq 'grade' ) {
# print the grade values
foreach my $grade ( sort {$a <=> $b} keys %grades ) {
print qq{