#!/usr/bin/perl
# Copyright 2001-2009 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 = ('Promotion List' => 'Promotion List',
'Eoy' => 'Eoy',
'Main' => 'Main',
'Homeroom' => 'Homeroom',
'Grade' => 'Grade',
'Student' => 'Student',
'Promote' => 'Promote',
'Promotion update is now stored in the temporary student table' =>
'Promotion update is now stored in the temporary student table',
'There was an error storing your data' => 'There was an error storing your data',
'Contact' => 'Contact',
'Error' => 'Error',
);
my $self = 'promote.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 $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
print "$doctype\n". $lex{'Promotion List'}. "
\n";
print "$chartype\n\n";
print "[ ". $lex{Main}. " |\n";
print "". $lex{Eoy}. " ]\n";
if ( $arr{writeflag} ) {
delete $arr{writeflag};
writeRecords();
}
# Empty the preset table.
$sth1 = $dbh->prepare("delete from preset");
$sth1->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
# Get student information.
my $sth = $dbh->prepare("select studid, lastname, firstname, homeroom, grade
from student order by homeroom,lastname");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
$rows = $sth->rows;
# Page Header
print "
". $lex{'Promotion List'}. "
\n";
print "\n";
# --------------
sub writeRecords {
# --------------
#foreach my $key (keys %arr ) { print "Name: $key Key: $arr{$key} \n"; }
foreach my $key (keys %arr ) {
$sth = $dbh->prepare("select lastname, firstname, initial, studnum, grade, homeroom
from student where studid = ?");
$sth->execute( $key );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname, $initial, $studnum, $grade, $homeroom) = $sth->fetchrow;
# In Case of Miss Steaks....uncomment this and comment up below
# Then re-run the scripts and copy the grades back to normal
# and do it right....
#if ($grade == 1){
# $grade = "K";
#} else {
# $grade--;
#}
if ($grade eq "K" or $grade eq "k") {
$grade = 1;
} elsif ($grade eq "PK" or $grade eq "pk") {
$grade = "K";
} else {
$grade++;
}
$lastname = $dbh->quote($lastname);
$firstname = $dbh->quote($firstname);
$initial = $dbh->quote( $initial );
$homeroom = $dbh->quote( $homeroom );
$sth2 = $dbh->prepare("insert into preset values(
$sql{default}, $lastname, $firstname, $initial,
'$studnum','$grade', $homeroom )");
$sth2->execute;
if ($DBI::errstr){ print "Preset: $DBI::errstr"; die $DBI::errstr; }
} # End of preset loop (write the preset table).
# Now add all records from the preregistration table to preset as well.
# Assume that they are already set to the correct grade...
$sth = $dbh->prepare("select lastname, firstname, initial, studnum, grade, homeroom
from prereg order by lastname, firstname");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my ( $lastname, $firstname, $initial, $studnum, $grade, $homeroom )
= $sth->fetchrow ) {
$lastname = $dbh->quote( $lastname );
$firstname = $dbh->quote( $firstname );
$initial = $dbh->quote( $initial );
$homeroom = $dbh->quote( $homeroom );
my $sth2 = $dbh->prepare("insert into preset values(
$sql{default}, $lastname, $firstname, $initial,
'$studnum','$grade', $homeroom )");
$sth2->execute;
if ($DBI::errstr){ print "Preset: $DBI::errstr"; die $DBI::errstr; }
}
if ( not $DBI::errstr ) {
print "
". $lex{'Promotion update is now stored in the temporary student table'};
print ".
";
} else {
print "
". $lex{'There was an error storing your data'}. ". \n";
print $lex{Contact};
print " $adminname $adminemail