#!/usr/bin/perl
# Copyright 2001-2007 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 = ('Main' => 'Main',
'Schedule' => 'Schedule',
'Write Schedule Entries' => 'Write Schedule Entries',
'Edit Schedule Entries' => 'Edit Schedule Entries',
'Terms' => 'Terms',
'Update' => 'Update',
'Term' => 'Term',
'Day' => 'Day',
'Per' => 'Per',
'Teacher' => 'Teacher',
'Subject-Section' => 'Subject-Section',
'Period' => 'Period',
'Blank=same as above' => 'Blank=same as above',
'No Term' => 'No Term',
'Updating Record for' => 'Updating Record for',
'Adding Record for' => 'Adding Record for',
'Deleting Record for' => 'Deleting Record for',
'Add Backings' => 'Add Backings',
'Additional' => 'Additional',
'Adding' => 'Adding',
'Missing' => 'Missing',
'Edit Schedule Entries for term(s)' => 'Edit Schedule Entries for term(s)',
'Continue' => 'Continue',
'Writing Entries for' => 'Writing Entries for',
'for Term(s)' => 'for Term(s)',
'Please record the following error' =>
'Please record the following error',
'Your schedule items now stored' =>
'Your schedule items now stored',
'There was an error storing your data' =>
'There was an error storing your data',
'Please contact network adminstrator' =>
'Please contact network adminstrator',
'Teacher User Id' => 'Teacher User Id',
'Separate multiple terms with spaces' => 'Separate multiple terms with spaces',
);
# max number of backed classes per cycle.
#(control display and entry)
my $maxbackings = 8;
use DBI;
use CGI;
use CGI::Session;
use Cwd;
my $self = "schedit.pl";
my @time = localtime(time);
my $year = $time[5] + 1900;
my $month = $time[4] + 1;
my $currdate = "$year-$month-$time[3]";
my $q = new CGI;
my %arr = $q->Vars;
#print $q->header;
my $userid;
if ( $arr{userid} ) {
$userid = $arr{userid};
delete $arr{userid};
}
# Set prepath for config file: (/tcgi or cgi/schedule)
my $prepath = '../..';
if (getcwd() =~ /tcgi/){ # we are in tcgi
$prepath = '..';
}
require "$prepath/etc/admin.conf" or die "Cannot read admin.conf!";
# Get current dir so know what CSS to display;
if (getcwd() =~ /tcgi/){ # we are in tcgi
$css = $tchcss;
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Session Management
my $session;
if (not $userid ) {
$session = new CGI::Session("driver:mysql;serializer:FreezeThaw",
undef,{Handle => $dbh}) or die CGI::Session->errstr;
$userid = $session->param('userid');
}
print $q->header;
# print page header.
print "$doctype\n". $lex{'Edit Schedule Entries'}. "\n";
print "
$chartype\n\n";
print "[ ". $lex{Main}. " |
". $lex{Schedule}. " ]\n";
# Write Records / Do Backings
if ($arr{writeflag}){
#print "
". $lex{'Write Schedule Entries'}. "
\n";
updateRecords();
exit 0;
} elsif ($arr{backingsflag}) { # Show Backings Form
printBackingsForm( $arr{userid}, $arr{terms} );
exit 0;
} elsif ($arr{addbackings}) { # Add backings records
delete $arr{addbackings};
addBackings();
exit 0;
}
# Load terms from eval
my @terms;
$sth = $dbh->prepare("select distinct term from eval
where term != '' order by term");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
while (my $trm = $sth->fetchrow){
push @terms, $trm;
}
# Get Teacher
my $teachername;
if ( not $arr{term} ) {
print "
". $lex{'Edit Schedule Entries'}. "
\n";
getTeacher();
print "\n";
die;
} else { # We have teacher, get name
$sth = $dbh->prepare("select lastname, firstname from staff where userid = ?");
$sth->execute($userid);
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
$teachername = "$firstname $lastname";
}
# If here, we have passed term and teacher values ($arr{term} and $arr{userid})
my $select;
$select = "where teacher like '%$userid%'";
# Load Subject-Sections for a teacher.
$sth = $dbh->prepare("select description, smdesc, subjsec, grade from subject
$select order by description");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
# Find subjects and put into hash for selection.
# Grades needed for maxPPD calc.
my (@subjects, @grades);
while (my ($description,$smdesc, $subjsec, $grade) = $sth->fetchrow){
# use truncated longer description if no small description.
if (not $smdesc){ $smdesc = substr($description,0,8);}
$subjects{$subjsec} = "$smdesc ($subjsec)";
$grades{$grade} = 1;
}
@grades = sort keys %grades;
# Find maximum number of periods per day for table.
my $maxPPD;
foreach my $gr (@grades) {
if ($g_ppd{$gr} > $maxPPD) {
$maxPPD = $g_ppd{$gr};
}
}
# print top section above table: Name and Term(s)
print "$teachername — ". $lex{Term}. " $arr{term} \n";
print $lex{Additional}. q{ }. $lex{Terms}. " \n";
# Print Main Layout Table
print "