#! /usr/bin/perl # Copyright 2001-2025 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Main' => 'Main', 'Continue' => 'Continue', 'Homeroom' => 'Homeroom', 'Grade' => 'Grade', 'Select by' => 'Select by', 'Error' => 'Error', 'Sort by' => 'Sort by', 'Name' => 'Name', 'Common Math Assessment' => 'Common Math Assessment', 'Report' => 'Report', 'OR' => 'OR', 'No Selection' => 'No Selection', 'School Year' => 'School Year', 'Show Withdrawn' => 'Show Withdrawn', ); my $self = 'hideStudent.pl'; 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 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $wday++; $mon++; my $currsdate = "$year-$mon-$mday"; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; #my $currjd = julian_day( split('-', $currsdate) ); my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = "Hide Students Temporarily"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{
[ $lex{Main} | Restore Student ]
\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; moveStudents(); } #---------------- sub showStartPage { # Entry Values for Custom Script #---------------- my (@homerooms, @grades, @schoolyears ); # Get Homerooms my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $hr = $sth->fetchrow ) { push @homerooms, $hr; } @homerooms = sort {$a <=> $b} @homerooms; # Get Grades $sth = $dbh->prepare("select distinct grade from student 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; } @grades = sort {$a <=> $b} @grades; # Get School Years $sth = $dbh->prepare("select distinct schoolyear from mathca_scores"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $yr = $sth->fetchrow ) { push @schoolyears, $yr; } @schoolyears = reverse sort @schoolyears; print qq{
\n}; print qq{\n}; # print qq{
\n}; print qq{\n}; # Select Grade print qq{}; print qq{\n}; # OR print qq{\n}; # Select Homeroom print qq{}; print qq{\n}; print qq{\n}; print qq{
$lex{'Select by'} $lex{Grade}
$lex{OR}
$lex{'Select by'} $lex{Homeroom}
\n}; print qq{
\n}; exit; } #----------------- sub selectStudents { #----------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # passed grade, homeroom if ( $arr{grade} and $arr{homeroom} ) { print qq{

Select either Homeroom OR Grade, not both

\n}; print qq{\n}; exit; } if ( not $arr{grade} and not $arr{homeroom} ) { print qq{

Missing Homeroom OR Grade

\n}; print qq{\n}; exit; } # start form print qq{
\n}; print qq{\n}; my ($select, $selectval, @grades, $classname); if ( $arr{grade} ) { $select = "where grade = ?"; $selectval = $arr{grade}; push @grades, $arr{grade}; $classname = "Grade $arr{grade} Students"; } elsif ( $arr{homeroom} ) { $select = "where homeroom = ? and grade = ?"; $selectval = $arr{homeroom}; $classname = "Homeroom $arr{homeroom} Students"; my $sth = $dbh->prepare("select distinct grade from student where homeroom = ? and grade != '' and grade is not NULL order by grade"); $sth->execute( $arr{homeroom} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $gr = $sth->fetchrow ) { push @grades, $gr; } @grades = sort @grades; } else { print qq{

$lex{'No Selection'}

\n}; print qq{\n}; exit; } # print qq{Grades:@grades SELECT:$select VAL:$selectval
\n}; foreach my $grade ( @grades ) { # Now Select the students to display; skip any withdrawn kids w/o data. my $sth = $dbh->prepare("select * from student $select order by lastname, firstname"); if ( $arr{homeroom} ) { # add on grade selector to only get part of the class. $sth->execute( $selectval, $grade ); } else { $sth->execute( $selectval ); } if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Loop through all students my $first = 1; print qq{
Grade $grade Students
\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $studnum = $r{studnum}; if ($first ) { print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } print qq{}; print qq{
Select Students to Move to }; print qq{Temporary Student Storage
NameStud#BirthdateSelect
$r{lastname}, $r{firstname} $r{initial}$r{studnum}$r{birthdate}\n}; } } print qq{
\n}; print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } # end of selectStudents #------------------ sub moveStudents { #------------------ # print qq{
Move Students
\n}; # foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # passed list of students to move by studnum my $sth = $dbh->prepare("select * from student where studnum = ?"); # Insert each Student Record into student_temp table foreach my $studnum ( keys %arr ) { # Get the full record. $sth->execute($studnum); if ( $DBI::errstr) { print qq{
Error loading student # $studnum. Skipping
\n}; next; } my $ref = $sth->fetchrow_hashref; %r = %$ref; # Insert my (@field, @value); foreach my $field ( keys %r ) { if ( $field eq 'studid' ) { next; } # skip autoincrement field push @field, $field; $newvalue = $dbh->quote( $r{$field} ); push @value, $newvalue; } my $values = join(',', @value); my $fields = join(',', @field); my $sth1 = $dbh->prepare("insert into student_temp ($fields) values( $values )"); $sth1->execute; if ( $DBI::errstr) { print qq{
Insert student failed for ($r{firstname} $r{lastname}. Skipping
\n}; next; } print qq{
$r{firstname} $r{lastname} moved to temporary student table.
\n}; # Delete Original Student Record from student table my $sth = $dbh->prepare("delete from student where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr) { print qq{

Error: Delete of Current Student failed for $r{firstname} $r{lastname}\n}; exit; } } print qq{

[ $lex{Main} ]

\n}; print qq{\n}; } # end of moveStudents