#!/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', 'Fees' => 'Fees', 'Main' => 'Main', 'No Records Found' => 'No Records Found', 'Top' => 'Top', 'Delete' => 'Delete', 'Lock Number' => 'Lock Number', 'Combination' => 'Combination', 'Comment' => 'Comment', 'Assigned' => 'Assigned', 'Status' => 'Status', 'View/Edit/Delete Locks' => 'View/Edit/Delete Locks', 'Error' => 'Error', 'Pool' => 'Pool', ); my $self = 'lockview.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; 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 Locks'}. "\n"; print "\n"; print "\n"; print "[ ". $lex{Main}. " |\n"; print "". $lex{Fees}. " ]\n"; print "

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

\n"; if ( $arr{id} ){ # passed an id to delete... deleteRecord(); } my $sth = $dbh->prepare("select * from lok_lock order by lock_num"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $rows = $sth->rows; 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, $lock_num, $combination, $pool, $comment ) = $sth->fetchrow ) { if ($colcolor eq 'blue'){ $colcolor = 'gray'; } else { $colcolor = 'blue'; } print "\n"; print "\n"; if ( checkAssignStatus($id) ){ # if the lock is assigned we do not want a Delete link print "\n"; } else { print "\n"; } } print "

". $lex{'Lock Number'}. "	". $lex{Combination}. "	"; print $lex{Pool}. "	". $lex{Comment} . "	". $lex{Status}. "
$lock_num	$combination	$pool	$comment	" . $lex{Assigned} . "
". $lex{Delete}. "

\n"; print "

[ ". $lex{Fees}. " |\n"; print "". $lex{Top}. " ]

\n"; print "\n"; #-------------------- sub checkAssignStatus { # check if locker is assinged #-------------------- my $id = shift; # check if the locker is assigned my $sth1 = $dbh->prepare("select lock_num from lok_link where lock_num = ?"); $sth1->execute( $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $rows1 = $sth1->rows; if ( $rows1 ){ # if any rows are returned the lock is assigned return 1; } else { return 0; } } #--------------- sub deleteRecord { # delete a single record #--------------- # delete single record my $sth = $dbh->prepare("delete from lok_lock where id = ?"); $sth->execute( $arr{id} ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } print "

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

\n"; }