#! /usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
use DBI;
use CGI;
my %lex = ('Student' => 'Student',
'Main' => 'Main',
'Report Card' => 'Report Card',
'Cannot open tex file' => 'Cannot open tex file',
'View/Download' => 'View/Download',
'View Log File' => 'View Log File',
'Select' => 'Select',
'Lastname, Firstname' => 'Lastname, Firstname',
'Homeroom, Lastname, Firstname' => 'Homeroom, Lastname, Firstname',
'Grade, Lastname, Firstname' => 'Grade, Lastname, Firstname',
'Band, Lastname, Firstname' => 'Band, Lastname, Firstname',
'Sort by' => 'Sort by',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Continue' => 'Continue',
'No Staff Found' => 'No Staff Found',
'Error' => 'Error',
'Blank=All' => 'Blank=All',
'Term' => 'Term',
'Period' => 'Period',
'Day' => 'Day',
'Separate with Spaces' => 'Separate with Spaces',
'Terms' => 'Terms',
'Missing' => 'Missing',
'Band' => 'Band',
'Student Number' => 'Student Number',
);
my $self = "rptMissingCourse.pl";
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
# print page header
my $title = qq{Missing Course Enrollments};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | \n};
print qq{$lex{'Report Card'} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage(); # main options
} elsif ($arr{page} == 1 ) {
delete $arr{page};
showReport();
}
#-------------
sub showReport {
#-------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $coursenum = $arr{coursenum};
delete $arr{coursenum};
my $term = $arr{term};
delete $arr{term};
# remaining values in %arr are grades to check. Blank = all.
my @grades = sort {$a <=> $b} keys %arr;
if ( not @grades ) {
my $sth = $dbh->prepare("select distinct grade from student
where grade is not NULL and grade != ''");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $gr = $sth->fetchrow ) {
push @grades, $gr;
}
@grades = sort {$a <=> $b} @grades;
}
# Loop through all grades, and look for missing course enrollments based on coursenum value.
my $sth = $dbh->prepare("select lastname, firstname,studnum, homeroom from student
where grade = ? order by lastname, firstname");
my $termselect;
if ( $term =~ m/\d/ ) {
$termselect = qq{and term = $term};
}
my $sth1 = $dbh->prepare("select count(distinct subjcode) from eval where studnum = ? $termselect");
my $gcount = 0;
foreach my $grade ( @grades ) {
my $count;
my $first = 1;
$sth->execute( $grade );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($ln,$fn,$studnum,$hr) = $sth->fetchrow ) {
# Check for enrolled courses.
$sth1->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $ecount = $sth1->fetchrow;
if ( $ecount <= $coursenum ) {
if ( $first ) {
$gcount++;
print qq{