#!/usr/bin/perl
# Copyright Les Richardson 2001-2019
# This file is part of Open Administration for Schools. Released under GPL Licensing.
my %lex = ('Nominal Roll' => 'Nominal Roll',
'Reset' => 'Reset',
'Main' => 'Main',
'Eoy' => 'Eoy',
'Continue' => 'Continue',
'Select Field' => 'Select Field',
'No Field Selected' => 'No Field Selected',
'Field Fill' => 'Field Fill',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Student' => 'Student',
'Contact' => 'Contact',
'Error' => 'Error',
'Record(s) Updated' => 'Record(s) Updated',
'Blank' => 'Blank',
'Not Found' => 'Not Found',
'Field' => 'Field',
);
my $self = 'resetnomroll.pl';
my $maxTypeCount = 30; # don't allow more than $maxTypeCount different types in a selection list
#my %disallow = qw(id 1); # double since a HASH.
use DBI;
use CGI;
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);
$dbh->{mysql_enable_utf8} = 1;
# Show top of page.
print qq{$doctype\n$lex{Reset} $lex{Student} $lex{Field}
\n};
if ( not $arr{page} ) { # load jQuery
print qq{\n};
}
print qq{$chartype\n\n};
print qq{[ $lex{Main} | \n};
print qq{$lex{Eoy} ]\n};
print qq{
$lex{Reset} $lex{'Nominal Roll'}
\n};
# Select what to do.
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
selectChanges();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
writeChanges();
}
#----------------
sub showStartPage {
#----------------
# Read student fields, and defaults into a @fields and %fieldname hash.
my $sth = $dbh->prepare("select fieldid, fieldname, formtype
from meta where tableid = 'student_inac' order by fieldname");
$sth->execute;
my (@fields, %fieldnames);
while ( ( my $fieldid, $fieldname, $formtype ) = $sth->fetchrow ) {
if ( $formtype eq 'readonly' ) { next; } # skip disallowed fields to edit
$fieldname =~ s/\(//g;
$fieldname =~ s/\)//g; # strip parenthese. (sp?)
push @fields, $fieldid;
$fieldname{ $fieldid } = $fieldname;
}
# Start the form.
print qq{\n};
exit;
} # end of showStartPage
#----------------
sub selectChanges {
#----------------
#foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Read in meta library
eval require "../../lib/libmeta.pl";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
# Setup field name and fieldid.
my $fieldid = $arr{field};
if ( not $fieldid ) {
print qq{
$lex{'No Field Selected'}
\n};
print qq{
\n};
exit;
}
# Set Default Fill Value (if any)
my $defaultfill;
if ( $arr{defaultfill} ) {
$defaultfill = $arr{defaultfill};
}
# Now get this field's metadata
my $sth = $dbh->prepare("select viewsize, defaultvalue, fieldname, formtype from meta where fieldid = ?");
$sth->execute( $fieldid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($viewsize, $defaultvalue, $fieldname, $formtype ) = $sth->fetchrow;
my @defaults = split(/\s+/, $defaultvalue);
if ( not @defaults ) { # no defaults found; use values present if less than $maxTypeCount
my $sth1 = $dbh->prepare("select count(distinct $fieldid) from student_inac");
$sth1->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
if ( $count < $maxTypeCount ) {
my $sth1 = $dbh->prepare("select distinct $fieldid from student_inac
where $fieldid is not null and $fieldid != '' order by $fieldid desc");
$sth1->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while (my $val = $sth1->fetchrow) {
push @defaults, $val;
}
@defaults = reverse(@defaults);
}
} else { # @defaults exists
if ( $defaults[0] eq '~' ) { $defaults[0] = ''; } # remove tilde, signals blank start field.
}
# Get Students
my $group;
my @groups;
my $sortorder = 'lastname, firstname';
my @students;
my %sortstudents;
my $sth2 = $dbh->prepare("select lastname, firstname, grade, homeroom
from studentall where studnum = ?");
if ( $arr{groupvalue} ) { # then we have to do something...
@groups = split /\s+/, $arr{groupvalue};
if ( $arr{grouptype} eq 'grade' ) {
$group = 'grade';
} else {
$group = 'homeroom';
}
$sortorder = "$group, lastname, firstname";
$sth = $dbh->prepare("select studnum from student_inac where $group = ?");
foreach my $grp ( @groups ) {
$sth->execute( $grp );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
push @students, $studnum;
}
}
} else { # all students in student_inac;
$sth = $dbh->prepare("select studnum from student_inac");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
# Get Student Info
$sth2->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname, $grade, $homeroom) = $sth2->fetchrow;
$sortstudents{"$lastname$firstname$studnum"} = $studnum;
}
}
$sth = $dbh->prepare("select lastname, firstname, grade, homeroom
from studentall where studnum = ?");
$sth1 = $dbh->prepare("select $fieldid from student_inac where studnum = ?");
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $sth3 = $dbh->prepare("select count(*) from studentwd where studnum = ?");
my $sth4 = $dbh->prepare("select type,date from transfer where studnum = ? order by date desc");
# Start the Form...
print qq{