#!/usr/bin/perl
# Copyright 2001-2019 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.
use DBI;
use CGI;
use Time::JulianDay;
my %lex = ('Graduation Requirements' => 'Graduation Requirements',
'Credits' => 'Credits',
'Check' => 'Check',
'Main' => 'Main',
'Provincial Number' => 'Provincial Number',
'Duplicate' => 'Duplicate',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Continue' => 'Continue',
'Check All' => 'Check All',
'Schools' => 'Schools',
'Select' => 'Select',
'Missing' => 'Missing',
'Section' => 'Section',
'Course' => 'Course',
'Start Term' => 'Start Term',
'End Term' => 'End Term',
'Teacher' => 'Teacher',
);
my $self = 'preplancourseview.pl';
# Read Config
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
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);
# load the sasked ed courses (they have a grade field).
my (%saskedgrade, %saskedname);
my $sth = $dbh->prepare("select * from sasked_courses");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
while ( $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$saskedgrade{$r{code}} = $r{grade};
$saskedname{$r{code}} = $r{title};
}
my $title = "Preplan Course View";
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};
selectCourses(); # select courses and number of semesters, default ppc
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
setCourses(); # set semester, teacher, grade offered, periods per cycle.
} elsif ( $arr{page} == 3 ) {
delete $arr{page};
planCourseSemester(); # update table with passed values.
} elsif ( $arr{page} == 4 ) {
delete $arr{page};
updatePeriods();
}
#-----------------
sub compressCourse {
#-----------------
my $cref = shift;
my %courses = %$cref;
my (%back,%newkey );
foreach my $subjsec ( keys %courses ) {
if ( $courses{$subjsec}->{backedwith} ) {
my ($crsA, $crsB) = ($subjsec, $courses{$subjsec}->{backedwith} );
# check for any values in %back;
my $first = 1;
foreach my $key (keys %back) {
# key format is: subjsec/subjsec/subjsec, etc.
my @crs = split('/', $key);
foreach my $cr ( @crs ) {
if ( $cr eq $crsA or $cr eq $crsB ) {
# we have to delete the existing key and add a new larger key
# put 2 backed courses together with this group.
my %newkey = map { $_ => 1 } @crs;
$newkey{$crsA} = 1;
$newkey{$crsB} = 1;
# all subjsec values now are keys
my $newkey = join('/', keys %newkey);
$first = 0;
# out with old, in with new
delete $back{$key};
$back{$newkey} = 1;
last;
}
}
}
if ( $first ) { # no records found in %back;
my $key = join('/', ($crsA,$crsB));
$back{$key} = 1;
}
}
} # end of course loop
# Display %back
# print qq{Backings Hash\n};
# foreach my $key ( sort keys %back) {
# print qq{K:$key \n};
# }
# Remove the single course values found in %back compound keys
foreach my $key ( sort keys %back) {
my @crs = split('/', $key);
foreach my $subjsec ( @crs ) {
delete $courses{$subjsec};
}
}
# Add compound keys into %courses
foreach my $key ( sort keys %back) {
$courses{$key} = 1;
}
return \%courses;
} # end of compressCourse (join backings)
#----------------
sub showStartPage {
#----------------
# Form Start
# print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#----------------
sub updatePeriods {
#----------------
print qq{Update Periods \n};
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my $dayspercycle = $arr{dayspercycle};
delete $arr{dayspercycle};
my $teachingperiods = $arr{teachingperiods}; # per day (teachppd)
delete $arr{teachingperiods};
my $sth = $dbh->prepare("update preplan_courseperiods set periods = ? where subjsec = ? and semester = ?");
my $sth1 = $dbh->prepare("select count(*) from preplan_courseperiods where subjsec = ? and semester = ?");
my $sth2 = $dbh->prepare("insert into preplan_courseperiods (periods, subjsec, semester) values(?,?,?)");
foreach my $key ( sort keys %arr ) {
my ($ident, $subjsec, $semester) = split(':', $key);
my $periods = $arr{$key};
# Check for existing record
$sth1->execute($subjsec, $semester);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
if ( $count ) { # update record if we have an existing one.
$sth->execute($arr{$key}, $subjsec, $semester);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
# print "
Update: $arr{$key}, $subjsec, $semester
\n";
} else { # insert record
$sth2->execute($arr{$key}, $subjsec, $semester);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
# print "
Insert: $arr{$key}, $subjsec, $semester
\n";
}
}
# Display current layout for each grade, and give totals.
# Get Number of Semesters
my $sth = $dbh->prepare("select max(semester) from preplan_coursemaster where semester != 'allyear'");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $semestercount = $sth->fetchrow;
print qq{
Semesters:$semestercount
\n};
# Get PERIODS for each course, each semester.
my $sth1 = $dbh->prepare("select periods from preplan_courseperiods where subjsec = ? and semester = ?");
# Display Courses by Grade
my $sth = $dbh->prepare("select c.* from preplan_coursemaster c, sasked_courses s
where c.subjcode = s.code and offeredto = ? order by s.title, c.subjsec");
# Form Start
print qq{\n};
# Backings Updates
# Get courses in this grade.
# Start Table
print qq{
};
print qq{
};
print qq{Backed Courses (offered at same time)
\n};
print qq{
$lex{Course} A
$lex{Course} B
\n};
foreach my $idx (1..8) { # 8 rows for backing.
print qq{