#!/usr/bin/perl
# Copyright Les Richardson 2001-2019
# This file is part of Open Administration for Schools. Released under GPL Licensing.
my %lex = ('Reset' => 'Reset',
'Course' => 'Course',
'Courses' => 'Courses',
'Main' => 'Main',
'Eoy' => 'Eoy',
'Continue' => 'Continue',
'Fields' => 'Fields',
'Field' => 'Field',
'Type' => 'Type',
'Enter Values' => 'Enter Values',
'Select from List' => 'Select from List',
'No Field Selected' => 'No Field Selected',
'Field Fill' => 'Field Fill',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Student Group' => 'Student Group',
'Separate with Spaces' => 'Separate with Spaces',
'Blank=All' => 'Blank=All',
'Student' => 'Student',
'Contact' => 'Contact',
'Error' => 'Error',
'Record(s) Updated' => 'Record(s) Updated',
'Blank' => 'Blank',
'Students' => 'Students',
'Current' => 'Current',
'Withdrawn' => 'Withdrawn',
'Update' => 'Update',
'Select' => 'Select',
);
my $self = 'coursecodeview.pl';
use DBI;
use CGI;
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 $first;
if ( not %arr ) { $first = 1; }
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
# Show top of page.
my $title = qq{Course Code View};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
showCodes();
#--------------
sub showCodes {
#--------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
# Get the grades
my $sth = $dbh->prepare("select distinct grade from sasked_courses where grade is not NULL and grade != ''");
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
$sth->execute;
my @grades;
while ( my $gr = $sth->fetchrow ) {
push @grades, $gr;
}
@grades = sort {$a <=> $b} @grades;
# Get the types
my $sth = $dbh->prepare("select distinct ctype from sasked_courses where ctype is not NULL order by ctype");
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
$sth->execute;
my @types;
while ( my $type = $sth->fetchrow ) {
push @types, $type;
}
print qq{
};
print qq{Courses without end dates are active courses.
\n};
my @select;
if ( $arr{grade}) {
my $grade = qq{ grade = '$arr{grade}' };
push @select, $grade;
}
if ( $arr{active} ) {
my $active = qq{ (enddate is NULL or enddate = '0000-00-00') };
push @select, $active;
}
if ( $arr{type} ) {
my $type = qq{ ctype = '$arr{type}' };
push @select, $type;
}
if ( @select ) {
$select = 'where '. join('and', @select);
}
print qq{
Select: $select
\n};
my $sth = $dbh->prepare("select * from sasked_courses $select order by grade, title");
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
$sth->execute;
# Loop through Courses
my $count = 1;
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
if ( $r{enddate} eq '0000-00-00' ) { $r{enddate} = ''; }
print qq{