#!/usr/bin/perl
# Copyright 2001-2016 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 = ('View' => 'View',
'Nominal Roll' => 'Nominal Roll',
'Main' => 'Main',
'Edit' => 'Edit',
'Delete' => 'Delete',
'Error' => 'Error',
'Student' => 'Student',
'Grade' => 'Grade',
'Records' => 'Records',
'Continue' => 'Continue',
'All' => 'All',
'Fields' => 'Fields',
'Select' => 'Select',
'Students' => 'Students',
'Homeroom' => 'Homeroom',
'Check' => 'Check',
'Next Page' => 'Next Page',
'Blank=All' => 'Blank=All',
'Not Found' => 'Not Found',
'Record' => 'Record',
'Group' => 'Group',
);
use DBI;
use CGI;
my $self = 'nrview2.pl';
$nrtable = 'student_inac';
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);
# Read student inac fields, and defaults into fields and %fieldname hash.
my $sth = $dbh->prepare("select fieldid, fieldname
from meta where tableid = 'student_inac' order by fieldname");
$sth->execute;
my %fieldnames = ();
my @fields = ();
while ( ( my $fieldid, $fieldname ) = $sth->fetchrow ) {
if ( $fieldid eq 'id' ) { next; } # skip id field.
$fieldname =~ s/\(//g;
$fieldname =~ s/\)//g; # strip parentheses. (sp?)
push @fields, $fieldid;
$fieldnames{ $fieldid } = $fieldname;
}
# Print Page Header
my $title = "$lex{View} $lex{'Nominal Roll'} $lex{'Records'} 2";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
viewStudents();
#---------------
sub viewSelectStudents {
#---------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $select;
my @grp = ();
my @students = ();
my %studrec = ();
my $checked;
if ( $arr{check} ) {
$checked = q{checked="checked"};
}
if ( $arr{groupvalue} ) {
my $grp = 'grade';
if ( $arr{grouptype} eq 'homeroom' ) { $grp = 'homeroom'; }
# Check Value
my $sth = $dbh->prepare("select distinct $grp from student where $grp != '' and $grp is not NULL");
$sth->execute;
my %group = ();
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $val = $sth->fetchrow ) {
$group{$val} = 1;
}
if ( not $group{ $arr{groupvalue}} ) {
print "
$lex{Group} $lex{'Not Found'}
\n";
print "\n";
exit;
}
# Get Student Numbers
my $sth = $dbh->prepare("select studnum from student where $grp = ? order by lastname, firstname");
$sth->execute( $arr{groupvalue} );
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
push @students, $studnum;
}
} else { # all records in nominal roll table
my %students = ();
my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
my $sth = $dbh->prepare("select studnum from $nrtable order by studnum");
$sth->execute;
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
$sth1->execute( $studnum);
if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname ) = $sth1->fetchrow;
$students{"$lastname$firstname$studnum"} = $studnum;
}
foreach my $key ( sort keys %students ) {
push @students, $students{$key};
}
}
# Select Students
print "