#!/usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
# Note to self: needs to be redone. Remove any term requirements and
# print all terms containing timetable data for a teacher.
my %lex = ('Day' => 'Day',
'Term' => 'Term',
'No Value' => '',
'View' => 'View',
'Teacher Timetable' => 'Teacher Timetable',
'Timetable' => 'Timetable',
'Per' => 'Per',
'Main' => 'Main',
'Teacher' => 'Teacher',
'View' => 'View',
'No Records Found' => 'No Records Found',
'Error' => 'Error',
'Period' => 'Period',
);
my $self = 'tchschedview.pl';
use DBI;
use CGI;
use Cwd;
use Time::JulianDay;
my $stripampm = 1; # turn off with a zero value.
# Set prepath for config file: (/tcgi or cgi/schedule)
my $prepath = '../..';
if ( getcwd() =~ /tcgi/){ # we are in tcgi
$prepath = '..';
}
eval require "$prepath/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);
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
if ( length($mon) == 1 ) { $mon = '0'. $mon; }
if ( length($mday) == 1 ) { $mday = '0'. $mday; }
my $currdate = "$year-$mon-$mday";
my $currjd = julian_day($year,$mon,$mday);
# $currlongdate = "$dowstd[$wday], $month[$mon] $mday, $year";
#$sth = $dbh->prepare("select distinct schedat.subjsec, subject.description,
# subject.teacher, schedat.term from schedat
# left outer join subject on schedat.subjsec = subject.subjsec
# $select order by subject.teacher, schedat.term");
my $userid;
if ( not defined $arr{userid} ) {
$userid = $ENV{'REMOTE_USER'};
} else {
$userid = $arr{userid};
}
# Get current dir so know what CSS to display;
if (getcwd() =~ /tcgi/){ # we are in tcgi
$css = $tchcss;
$homepage = $tchpage;
}
# print page header.
my $title = qq{$lex{View} $lex{'Teacher Timetable'}};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{
[ $lex{Main} };
unless (getcwd() =~ /tcgi/){ # unless we are in tcgi
print qq{| $lex{Timetable} };
}
print qq{]
\n};
# Get Teacher's Grade by homeroom or courses.
my $sth = $dbh->prepare("select field_value from staff_multi
where userid = ? and field_name = 'grade'");
$sth->execute( $userid );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $grade = $sth->fetchrow;
if ( not $grade ) { # get from a subject.
my $sth = $dbh->prepare("select distinct grade from subject where teacher = ?");
$sth->execute( $userid );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
$grade = $sth->fetchrow; # get the first grade value
}
# Get the term or current term
my $term = $arr{term};
if ( not $term ) { # figure out the term for this userid.
# Get Track from grade
my $track = $g_MTrackTermType{ $grade };
# Get Term
for my $trm ( sort keys %{ $g_MTrackTerm{$track} } ) {
my $start = $g_MTrackTerm{$track}{$trm}{start};
my $startjd = julian_day( split('-',$start));
my $end = $g_MTrackTerm{$track}{$trm}{end};
my $endjd = julian_day( split('-',$end));
if ( $currjd >= $startjd and $currjd <= $endjd ) {
$term = $trm;
last;
}
}
} # end of finding term.
# Get Teacher values for the Form
my $sth = $dbh->prepare("select lastname, firstname, userid from staff
order by lastname, firstname");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my (@staff, %staffname);
while ( my ( $lastname, $firstname, $userid) = $sth->fetchrow ) {
push @staff, $userid;
$staffname{$userid} = qq{$lastname, $firstname};
}
# Get Terms from Eval table.
$sth = $dbh->prepare("select distinct term from eval order by term");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my @terms;
while ( my $t = $sth->fetchrow ) {
push @terms, $t;
}
# get the courses in the timetable and find matching teacher userid
my (%courses, %teachers);
$sth = $dbh->prepare("select distinct s.subjsec, su.teacher from schedat s, subject su
where s.subjsec = su.subjsec");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
while ( my ($subjsec, $userid) = $sth->fetchrow ) {
push @{ $teachers{$userid}}, $subjsec;
$courses{$subjsec} = $userid;
}
# Form Start
print qq{
\n};
print qq{\n};
print qq{
\n};
# end of form.
# Find Numbers of Rows (periods) and Columns(Days) in Cycle (total)
my $sth = $dbh->prepare("select max(period) from schedat");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $tblrows = $sth->fetchrow;
$sth = $dbh->prepare("select max(day) from schedat");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
$tblcols = $sth->fetchrow;
if ( $tblrows < 1 ) {
print qq{
$lex{'No Records Found'}
\n};
print qq{\n};
exit;
}
# Get courses for this teacher from the subject table (either teacher or teacher2)
my %courses;
my $sth = $dbh->prepare("select subjsec, description from subject
where (teacher = ? or teacher2 = ?) and
startrptperiod <= '$term' and
endrptperiod >= '$term'");
$sth->execute($userid, $userid);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
while ( my ($subjsec,$desc) = $sth->fetchrow ) {
$courses{$subjsec} = $desc;
}
my @subjects = keys %courses;
printTimetable($userid, $term, \@subjects);
print qq{