#!/usr/bin/perl
# Copyright 2001-2025 Leslie Richardson
# This file is part of Open Admin for Schools.
# View FP Records
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Continue' => 'Continue',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
);
use DBI;
use CGI;
use Cwd;
my $self = 'fpView.pl';
# my $editScript = './fpEdit.pl';
eval require "../../etc/admin.conf";
if ( $@ ) {
print "$lex{Error}: $self: $@ \n";
die "$lex{Error}: $self: $@\n";
}
# Get current dir so know what CSS to display and shift settings.
if ( getcwd() !~ /tcgi/ ) { # we are in cgi, not teacher tcgi
$tchcss = $css;
$tchpage = $homepage;
$tchdownloaddir = $downloaddir;
$tchwebdownloaddir = $webdownloaddir;
}
my $q = new CGI;
print $q->header( -charset, $charset);
my %arr = $q->Vars;
my $userid = $ENV{'REMOTE_USER'};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Page Header
my $title = qq{View F&P Reading Records};
print qq{$doctype\n$title\n};
print qq{\n};
if ( not $arr{page} ) { # calendar popup.
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
}
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showFPRecords();
}
#----------
sub fmtDate {
#----------
my ( $year, $mon, $day ) = split /-/, shift;
return "$year-$s_month[$mon]-$day";
}
#----------------
sub showStartPage {
#----------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
print qq{
\n};
print qq{
Test Grade
# Recs
\n};
my $sth = $dbh->prepare("select distinct tgrade from fp_book where tgrade is not NULL and tgrade != '' ");
$sth->execute;
my $sth1 = $dbh->prepare("select count(*) from fp_book where tgrade = ? ");
while ( my $grade = $sth->fetchrow ) {
# Count Records for each grade
$sth1->execute($grade);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
print qq{
}; #Grade $grade };
print qq{\n};
print qq{
$count
\n};
}
print qq{
\n};
print qq{\n};
exit;
}
#---------------
sub showFPRecords {
#---------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# just passed grade
my $grade = $arr{grade};
print qq{
Grade $grade
\n};
my $sth = $dbh->prepare("select * from fp_book where tgrade = ? ");
$sth->execute($grade);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$sth1->execute($r{studnum});
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($ln,$fn) = $sth1->fetchrow;
# Start Table
print qq{
\n};
print qq{
};
print qq{$fn $ln $r{tdate}
\n};
# title
print qq{
$count Title
};
print qq{
$r{title}
\n};
# System: NOTE field is actually tsystem
print qq{