#! /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 = ('Main' => 'Main',
'Unassign Locker' => 'Unassign Locker',
'Fees' => 'Fees',
'Checked' => 'Checked',
'Unassign' => 'Unassign',
'Unassigned' => 'Unassigned',
'Locks' => 'Locks',
'Lockers' => 'Lockers',
'Delete' => 'Delete',
'Student' => 'Student',
'Name' => 'Name',
'Lockers' => 'Lockers',
'Name' => 'Name',
'Homeroom' => 'Homeroom',
'Grade' => 'Grade',
'Error' => 'Error',
'Continue' => 'Continue',
'Blank=All' => 'Blank=All',
'Select by' => 'Select by',
'Separate with Spaces' => 'Separate with Spaces',
'Blank=All' => 'Blank=All',
'Location' => 'Location',
'Sort by' => 'Sort by',
'Locker' => 'Locker',
'Lock' => 'Lock',
'No Record(s) Found' => 'No Record(s) Found',
'Partner' => 'Partner',
'No Lock' => 'No Lock',
'Hover=View' => 'Hover=View',
);
my $self = 'lockerunassg.pl';
use DBI;
use CGI;
use Cwd;
# Read config variables
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$wday++; $mon++;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
# Get current dir so know what CSS to display;
my $runmode = 'main';
if (getcwd() =~ /tcgi/){ # we are in tcgi
$css = $tchcss;
$homepage = $tchpage;
$runmode = 'teacher';
}
print "$doctype\n". $lex{'Unassign Locker'}. "
$chartype\n\n";
print "[ ". $lex{Main}. " ";
if ( $runmode eq 'main' ) { print " ". $lex{Fees}. " "; }
print "]\n";
print "
". $lex{'Unassign Locker'}. "
\n";
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
selectRecords();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
deleteRecords();
}
#----------------
sub showStartPage {
#----------------
# Find all the grades
my @grades = ();
my $sth = $dbh->prepare("select distinct grade from student");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my $grade = $sth->fetchrow ) {
push @grades, $grade;
}
my $gradestring;
foreach my $grade ( sort { $a <=> $b} @grades ) {
$gradestring .= $grade. q{ };
}
# Find all the homerooms
my @homerooms = ();
$sth = $dbh->prepare("select distinct homeroom from student");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my $homeroom = $sth->fetchrow ) {
push @homerooms, $homeroom;
}
my $hrstring;
foreach my $hr ( sort { $a <=> $b} @homerooms ) {
$hrstring .= $hr. q{ };
}
# Find all the locker locations
my $locationstring;
$sth = $dbh->prepare("select distinct location from lok_locker order by location");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my $loc = $sth->fetchrow ) {
$locationstring .= $loc. q{ / };
}
# Main Form
print "
\n\n";
print "
\n";
exit;
}
#----------------
sub selectRecords {
#----------------
#foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
if ( $arr{group} eq $lex{Grade} or $arr{group} eq $lex{Homeroom} ) {
if ( $arr{group} eq $lex{Grade} ) {
$group = 'grade';
} else {
$group = 'homeroom';
}
# Do the selects first; first find students from grouping
my @groups = split /\s/, $arr{groupid};
if ( not @groups ) { # select all students
my $sth = $dbh->prepare("select lastname, firstname, studnum, $group from student
order by lastname, firstname");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my ( $lastname, $firstname, $studnum, $grp ) = $sth->fetchrow ) {
push @students, $studnum;
$students{$studnum} = "$lastname, $firstname ($grp)";
}
} else { # we have groups of students
my $sth = $dbh->prepare("select lastname, firstname, studnum, $group from student
where $group = ? order by lastname, firstname");
foreach my $grp ( @groups ) {
$sth->execute( $grp );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my ( $lastname, $firstname, $studnum, $grp ) = $sth->fetchrow ) {
push @students, $studnum;
$students{$studnum} = "$lastname, $firstname ($grp)";
}
} # done loop through @groups
}
# We now have student @students and %students, now get their lockers.
# Find the student's lockers (may be more than 1 student per locker)
$sth = $dbh->prepare("select locker_num from lok_rlink where studnum = ?");
foreach my $studnum ( @students ) {
$sth->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
$locker_num = $sth->fetchrow;
if ( $locker_num ) {
push @lockers, $locker_num;
}
}
} else { # find lockers by location.
my @locations = split /\s/, $arr{groupid};
if ( not @locations ) { # select all lockers
my $sth = $dbh->prepare("select locker_num from lok_rlink order by locker_num");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
while ( my $locker_num = $sth->fetchrow ) {
push @lockers, $locker_num;
}
} else { # we have groups of lockers by location
my $sth = $dbh->prepare("select link.locker_num from lok_rlink as link,
lok_locker as l
where link.locker_num = l.locker_num and l.location = ?");
foreach my $location ( @locations ) {
$sth->execute( $location );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my $locker_num = $sth->fetchrow ) {
push @lockers, $locker_num;
}
} # done loop through @locations
} # done location
} # we now have locker_num in @lockers
if ( not @lockers ) { # no lockers found
print "