#!/usr/bin/perl
# Copyright 2001-2026 Leslie Richardson
# This file is part of Open Admin for Schools.
# View UFLI Placement 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 = 'ufliView.pl';
my $editScript = './ufliEdit.pl';
my $deleteScript = './ufliDelete.pl';
my @fields = ('shortvowels','digraphs','vce','longerwords','endspellpat','rctrlvowels','longvowelteams',
'othervowels','dipsilent','suffixprefix','addaffix');
my %fieldtext = ('shortvowels' => 'Short Vowels','digraphs' => 'Digraphs','vce' => 'VCe',
'longerwords' => 'Longer Words','endspellpat' => 'Ending Spelling Patterns',
'rctrlvowels' => 'R-Controlled Vowels','longvowelteams' => 'Long Vowel Teams',
'othervowels' => 'Other Vowels','dipsilent' => 'Diphthongs & Silent Letters',
'suffixprefix' => 'Suffixes & Prefixes','addaffix' => 'Additional Affixes');
my $prepath = q{../..};
if ( getcwd() =~ /ecgi/ ) { # we are in ecgi
$prepath = q{..};
}
eval require "$prepath/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. NOTE: negative match
$tchcss = $css;
$tchpage = $homepage;
}
if ( getcwd() =~ /ecgi/ ) {
$tchcss = $eacss;
$tchpage = $eapage;
}
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 UFLI Placement 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};
showUfliRecords();
}
#----------
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"; }
my $sth = $dbh->prepare("select distinct tgrade from fp_ufli_test where tgrade is not NULL and tgrade != ''
order by tgrade");
$sth->execute;
my $sth1 = $dbh->prepare("select count(*) from fp_ufli_test where tgrade = ? ");
my $first = 1;
while ( my $grade = $sth->fetchrow ) {
# print qq{
Grade:$grade
\n};
if ( $first ) {
print qq{
\n};
print qq{
Test Grade
# Recs
\n};
$first = 0;
}
# Count Records for each grade
$sth1->execute($grade);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
print qq{
};
print qq{\n};
print qq{
$count
\n};
}
if ( $first ) {
print qq{
No Records Found
\n};
} else { # close table
print qq{
\n};
}
print qq{\n};
exit;
}
#---------------
sub showUfliRecords {
#---------------
# 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_ufli_test where tgrade = ? ");
$sth->execute($grade);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $sth1 = $dbh->prepare("select lastname, firstname from studentall3 where studnum = ?");
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
# foreach my $key ( sort keys %r ) {
# print qq{
K:$key VAL:$r{$key}
\n};
# }
$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{
$fn $ln $r{tdate}
\n};
foreach my $field ( @fields ) {
print qq{
$fieldtext{$field}
$r{$field}
\n};
}
# Edit / Delete
print qq{
};
print qq{\n};
print qq{\n};
print qq{ in New Tab