#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Administration for Schools use DBI; use CGI; # Pull completed courses from local copy of data. my $self = 'viewcompletedsummary.pl'; my %lex = ( 'Main' => 'Main', 'Error' => 'Error', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Group' => 'Group', 'Separate with Spaces' => 'Separate with Spaces', 'Blank=All' => 'Blank=All', 'Continue' => 'Continue', 'Report Card' => 'Report Card', 'School' => 'School', 'View' => 'View', 'Completed Courses' => 'Completed Courses', 'Select' => 'Select', 'Student' => 'Student', 'Blank=All' => 'Blank=All', 'Summary' => 'Summary', 'Details', => 'Details', ); eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $q = CGI->new; my %arr = $q->Vars; print $q->header( -charset, $charset ); my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my @tim = localtime(time); my $year = $tim[5] + 1900; $tim[4]++; for (0..4){if (length($tim[$_]) == 1){ $tim[$_] = '0'.$tim[$_];}} my $currdate = "$year-$tim[4]-$tim[3]"; my $currtime = "$tim[2]:$tim[1]:$tim[0]"; my $title = "$lex{Summary} $lex{'Completed Courses'}"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n}; print qq{\n}; print qq{[ Report Card ]\n}; if ( not $arr{page} ) { print qq{
\n}; print qq{\n}; print qq{

\n}; } print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; getCourseHistory(); } #---------------- sub showStartPage { #---------------- # Setup the form and start of table. print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{Grade}
}; print qq{
\n}; print qq{\n}; exit; } #------------------- sub getCourseHistory { #------------------- #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $grade = $arr{grade}; if ( not $grade ) { print qq{

No Entry

\n}; print qq{\n}; exit; } my $sth = $dbh->prepare("select lastname, firstname, provnum from student where grade = ?"); $sth->execute( $grade ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Setup to get student data from table my $sth1 = $dbh->prepare("select sum(creditsearned) from sasked_completedcourses where provnum = ?"); my %studentcredits; my %studentname; my %studentsort; while ( my ($lastname, $firstname, $provnum ) = $sth->fetchrow ) { if ( not $provnum ) { print qq{

Skipping $firstname $lastname. No provincial Number

\n}; next; } # Get Total Credits. $sth1->execute( $provnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $totalcredits = $sth1->fetchrow; my $padcredits = sprintf("%03d", $totalcredits); my $key = "$padcredits$lastname$firstname$provnum"; $studentsort{$key} = $provnum; $studentcredits{$provnum} = $totalcredits; $studentname{$provnum} = "$lastname, $firstname"; } if ( not %studentcredits ) { print qq{

Students Not Found

\n}; print qq{\n}; exit; } print qq{

Grade $grade

\n}; print qq{\n}; print qq{\n}; my $studcount = 1; foreach my $key ( sort keys %studentsort ) { my $provnum = $studentsort{$key}; print qq{}; print qq{\n}; print qq{\n}; $studcount++; } print qq{
NameCredits
$studcount. $studentname{$provnum}$studentcredits{$provnum}
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; } # end of getCourseHistory