#!/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 = ('Record Deleted' => 'Record Deleted', 'Delete' => 'Delete', 'Grade' => 'Grade', 'Fees' => 'Fees', 'Main' => 'Main', 'No Records Found' => 'No Records Found', 'Top' => 'Top', 'Delete' => 'Delete', 'Locker Number' => 'Locker Number', 'Cleaned' => 'Cleaned', 'Comment' => 'Comment', 'Assigned' => 'Assigned', 'Status' => 'Status', 'View/Edit/Delete Lockers' => 'View/Edit/Delete Lockers', 'Error' => 'Error', 'Yes' => 'Yes', 'No' => 'No', 'Area' => 'Area', ); my $self = 'lockerview.pl'; use DBI; use CGI; use Cwd; 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; if ( $arr{group} eq $lex{Grade} ){ $group = 'grade'; } else { $group = 'homeroom'; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Get current dir so know what CSS to display; if ( getcwd() =~ /tcgi/ ){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; } # Print Page Header print "$doctype\n". $lex{'View/Edit/Delete Lockers'}. "\n"; print "\n"; print "\n"; print "[ ". $lex{Main}. " |\n"; print " ". $lex{Fees}. " ]\n"; if ( $arr{id} ){ # passed an id to delete... deleteRecord(); } my $sth = $dbh->prepare("select * from lok_locker order by locker_num"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $rows = $sth->rows; print "

". $lex{'View/Edit/Delete Lockers'}. "

\n"; if ( $rows < 1 ) { print "

". $lex{'No Records Found'}. "

\n"; print "\n"; die; } print "\n"; print "\n" ; print "\n"; my $colcolor = 'gray'; # tr colors are blue or gray; while ( my ( $id, $locker_num, $cleaned, $area, $comment ) = $sth->fetchrow ) { if ( $cleaned ){ $cleaned = $lex{Yes}; } else { $cleaned = $lex{No}; } if ( $colcolor eq 'blue' ) { $colcolor = 'gray'; } else { $colcolor = 'blue'; } print "\n"; print "\n"; if ( checkAssignStatus($id) ) { # if the locker is assigned we do not want a Delete link print "\n"; } else { print "\n"; } } print "
". $lex{'Locker Number'}. "". $lex{Area}. "\n"; print $lex{Cleaned}. "". $lex{Comment} . "". $lex{Status}. "
$locker_num$area$cleaned$comment" . $lex{Assigned} . "
". $lex{Delete}. "
\n"; print "[ ". $lex{Fees}. " |\n"; print " ". $lex{Top}. " ]

\n"; print "
\n"; #-------------------- sub checkAssignStatus { # check if locker is assigned #-------------------- my $locker_num = shift; # check if the locker is assigned my $sth = $dbh->prepare("select count(*) from lok_rlink where locker_num = ?"); $sth->execute( $locker_num ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; if ( $count ){ # if any rows are returned the locker is assigned return 1; } else { return 0; } } #--------------- sub deleteRecord { # delete a single record #--------------- # delete single record my $sth = $dbh->prepare("delete from lok_locker where id = ?"); $sth->execute( $arr{id} ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } print "

". $lex{'Record Deleted'}. "

\n"; }