#!/usr/bin/perl
# Copyright 2001-2025 Leslie Richardson
# This file is part of Open Admin for Schools.
# Based on gbmail.pl from gradebook.
# Passed Values: Subject/Section value (passed as subjsec).
# change right side values for alternate languages, let me know of any mistakes
my %lex = ('All' => 'All',
'Main' => 'Main',
'NA' => 'NA',
'No Tests Found' => 'No Tests Found',
'Report Card' => 'Report Card',
'Continue' => 'Continue',
'Error' => 'Error',
);
my $self = 'gradebookView.pl';
my $altcolor = '#3B7'; #1B6 Complement to the 063 green of teacher site.
my $maincolor = '#063';
use DBI;
use CGI::Session;
use CGI qw/:escape unescape/;
use Number::Format qw(round);
use Cwd;
my $q = CGI->new;
my %arr = $q->Vars; # Get passed values
my $showwithdrawn = $arr{showwithdrawn};
delete $arr{showwithdrawn};
# Get current dir so know what path for config files.
my $configpath;
my $teachermode;
if ( getcwd() =~ /tcgi/ ){ # we are in tcgi
$teachermode = 1;
$configpath = '..'; # go back one to get to etc.
} else {
$configpath = '../..'; # go back two to get to etc.
}
eval require "$configpath/etc/admin.conf";
# eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
eval require "$configpath/etc/gbook.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
# calcAverage and mkstudnum
eval require "$configpath/lib/libgbook.pl";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
# needed to $additionalcomments subject so that it can be skipped.
eval require "$configpath/etc/repcard.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
my $dbtype = 'mysql';
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Header
print $q->header(-charset, $charset);
# Userid
my $userid = $ENV{'REMOTE_USER'};
# Date
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
$wday++;
$currdate = "$dow[$wday], $month[$mon] $mday, $year";
if ( $teachermode ) { # change css and homepage
$homepage = $tchpage;
$css = $tchcss;
}
# Print HTML Page Header
my $title = qq{Gradebook Viewer};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} };
if ( not $teachermode ) {
print qq{| $lex{'Report Card'} };
}
print qq{]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showCourses();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
showReport();
}
#----------------
sub showStartPage {
#----------------
# Load all course teachers and their course count, and gradebook entries (if any).
print qq{
Select Teachers - Page 1
\n};
# Check for department head. If not, exit.
my %depthead; # depthead{faculty}{staff in faculty};
my $sth = $dbh->prepare("select field_value from staff_multi
where userid = ? and field_name = 'depthead'");
$sth->execute($userid);
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $faculty = $sth->fetchrow ) {
$depthead{$faculty} = 1;
}
if ( not %depthead and $teachermode ) { # in teacher site but not a department head
print qq{
Not Department Head. Access not allowed
\n};
print qq{\n};
exit;
} elsif ($teachermode ) { # otherwise this is at least one dept head.
my $sth = $dbh->prepare("select userid from staff_multi
where field_value = ? and field_name = 'dept'");
foreach my $faculty ( sort keys %depthead ) { # get folks in this dept.
$sth->execute($faculty);
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $userid = $sth->fetchrow ) {
$depthead{$faculty}{$userid} = 1;
}
}
#%depthead should be fully populated now
}
=head
foreach my $faculty ( keys %depthead ) {
print qq{F:$faculty \n};
foreach my $userid ( sort keys %{ $depthead{$faculty}} ) {
print "User:$userid \n";
}
}
exit;
=cut
if ( not $teachermode ) { # depthead populate with normal staff with gradebook data
# Get the teachers from subject table (course master)
my $sth = $dbh->prepare("select distinct teacher, grade, subjsec from subject
where teacher is not NULL and teacher != ''");
$sth->execute;
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($tch,$gr, $subjsec) = $sth->fetchrow ) {
$depthead{'Main'}{$tch} = 1;
}
}
print qq{\n};
print qq{