#!/usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('View' => 'View',
'Staff' => 'Staff',
'Absences' => 'Absences',
'Main' => 'Main',
'Eoy' => 'Eoy',
'No Records Found' => 'No Records Found',
'Error' => 'Error',
'Edit' => 'Edit',
'Delete' => 'Delete',
);
use DBI;
use CGI;
use Cwd;
use Number::Format qw{round};
my $self = 'mssCourseView.pl';
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);
# Print Page Header
my $title = qq{View MSS Current Courses};
print qq{$doctype\n$title
\n};
print qq{[ $lex{Main} |\n};
print qq{Export ]\n};
print qq{\n};
print qq{
$title
\n};
showRecords();
#--------------
sub showRecords {
#--------------
# We are only using 2 fields from mss_currcourse: mssid and coursecode.
# my @fields;
# my $sth = $dbh->prepare("show columns from mss_currcourse");
# $sth->execute;
# if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
# while (my @cols = $sth->fetchrow ) {
# if ( $cols[0] eq 'id' or $cols[0] eq 'date' or $cols[0] eq 'credit' or
# $cols[0] eq 'integrationid' or $cols[0] eq 'mark') { next; }
# push @fields, $cols[0];
# }
# Setup Queries
# Get student name
my $sth1 = $dbh->prepare("select lastname, firstname, studnum, provnum from studentall
where mssid = ?");
# Get course description
my $sth2 = $dbh->prepare("select title,grade from sasked_courses where code = ?");
my $sort = qq{order by mssid, coursecode};
if ( $arr{sort} eq 'course' ) {
$sort = qq{order by coursecode,mssid};
}
my $sth = $dbh->prepare("select * from mss_currcourse $sort");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
# Start Table
my $first = 1;
my %courses; # courses{coursecode} = title:grade;
# Loop through records
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
if ( $first ) {
print qq{
\n};
# print qq{
Skipping Blank Date Records
\n};
# Table Headings
print qq{
Student
MSSID
Course
\n};
$first = 0;
}
# if ( $r{mark} ) {
# $r{mark} = round($r{mark},0);
# }
# if ( $r{credit} ) {
# $r{credit} = round($r{credit},0);
# }
# Get Name
$sth1->execute( $r{mssid} );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($ln,$fn,$studnum,$provnum) = $sth1->fetchrow;
if ( not $ln ) {
my $pn = findStudent( $r{mssid} );
$ln = qq{PN:$pn Not found};
}
if ( not $courses{ $r{coursecode} }) { # populate the hash
$sth2->execute( $r{coursecode} );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my ($title,$grade) = $sth2->fetchrow;
$title =~ s/\://;
$courses{ $r{coursecode} } = qq{$title:$grade};
}
my ($title,$grade) = split(':', $courses{$r{coursecode}});
# $first = 0;
# Name
print qq{