#!/usr/bin/perl # Copyright 2001-2023 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. my %lex = ('Courses' => 'Courses', 'Main' => 'Main', 'Report Card' => 'Report Card', 'Teacher' => 'Teacher', 'Term' => 'Term', 'Grade' => 'Grade', 'Sort by' => 'Sort by', 'No Teacher' => 'No Teacher', 'Code-Sec' => 'Code-Sec', 'Terms' => 'Terms', 'Edit' => 'Edit', 'Delete' => 'Delete', 'Clone' => 'Clone', 'SmDesc' => 'SmDesc', 'Enrol' => 'Enrol', 'Error' => 'Error', 'Fix' => 'Fix', 'Field' => 'Field', 'Credit' => 'Credit', 'Difficulty' => 'Diff', 'Course' => 'Course', 'Title' => 'Title', 'Master' => 'Master', ); my $teacherFixFlag; # flag teacher field containing name (still). use DBI; use CGI; use Number::Format qw(:all); eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = CGI->new; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $sortorder; if ($arr{sortorder} eq $lex{Title} ){ $sortorder = 'description, grade, teacher'; } elsif ($arr{sortorder} eq $lex{Teacher} ){ $sortorder = 'teacher, description, grade'; } elsif ($arr{sortorder} eq $lex{Grade} ){ $sortorder = 'grade, description, teacher'; } elsif ($arr{sortorder} eq $lex{Term}){ $sortorder = 'startrptperiod, endrptperiod, grade, description, teacher'; } else { $sortorder = 'description,grade,teacher'; $arr{sortorder} = $lex{Title}; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Get the Courses in sorted order. my @subjects; if ( $arr{sortorder} eq $lex{Grade} ){ my @grades; my $sth = $dbh->prepare("select distinct grade from subject where grade is not NULL and grade != ''"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $gr = $sth->fetchrow ) { push @grades, $gr; } my @grades = sort {$a <=> $b} @grades; # get into correct order. foreach my $grade ( @grades ) { my $sth = $dbh->prepare("select subjsec from subject where grade = ? order by description, teacher"); $sth->execute( $grade ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $subjsec = $sth->fetchrow ) { push @subjects, $subjsec; } } } else { # normal my $sth = $dbh->prepare("select subjsec from subject order by $sortorder"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $subjsec = $sth->fetchrow ) { push @subjects, $subjsec; } } # Now have courses in @subjects. my $title = qq{$lex{Edit}/$lex{Delete} $lex{Course} $lex{Master}}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{'Report Card'} ]\n}; # Sorting Form print qq{\n}; # Heading print qq{

$title

\n}; print qq{}; print qq{}; # print qq{\n}; print qq{\n}; print qq{\n}; my $sth1 = $dbh->prepare("select count(*) from eval where subjcode = ?"); my $sth2 = $dbh->prepare("select lastname, firstname from staff where userid = ?"); my $sth = $dbh->prepare("select id, description, smdesc, grade, teacher, startrptperiod, endrptperiod, credit, difficulty from subject where subjsec = ?"); foreach my $subjsec ( @subjects ) { # Get course info $sth->execute( $subjsec ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $id, $description, $smdesc, $grade, $teacher, $startterm, $endterm, $credit, $difficulty ) = $sth->fetchrow; # Get Eval record count $sth1->execute( $subjsec ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; my $terms = ($endterm - $startterm) + 1; if ($terms < 1) { $terms = 1; } my $enrollments = round( $count / $terms, 2); # Get Teacher Record $sth2->execute( $teacher ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth2->fetchrow; if ( $lastname ) { $teachername = qq{$lastname, $firstname ($teacher)}; } else { # no teacher found. my $userid; if ( $teacher ) { $userid = qq{($teacher)}; } $teachername = qq{$lex{'No Teacher'} $userid}; } print qq{\n}; print qq{}; # print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{

$lex{Course}	$lex{'Code-Sec'}}; print qq{	$lex{SmDesc}	$lex{Grade}}; print qq{	$lex{Teacher}	$lex{Terms}	$lex{Credit} $lex{Difficulty}	$lex{Enrol}	$lex{Edit}	$lex{Delete}	$lex{Clone}
$description	$subjsec	$smdesc	$grade	$teachername	$startterm - $endterm	$credit $difficulty	$enrollments	\n}; print qq{\n}; print qq{	\n}; print qq{\n}; print qq{	\n}; print qq{\n}; print qq{

\n}; print qq{\n};