#!/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
Course | Code | Start | End | Grade | }; print qq{Type |
---|---|---|---|---|---|
$count. $r{title} | $r{code} | $r{startdate} | $r{enddate} | }; print qq{$r{grade} | $r{ctype} |
Course | Code | Start | End | Grade | }; print qq{Type |