#!/usr/bin/perl
# Copyright 2001-2011 Methodius Dusyk; Updated by 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',
'Record(s) Stored' => 'Record(s) Stored',
'Lock Number' => 'Lock Number',
'Combination' => 'Combination',
'Comment' => 'Comment',
'Save New Lock' => 'Save New Lock',
'Add Another' => 'Add Another',
'Error' => 'Error',
'Fees' => 'Fees',
'No Lock Number or Combination' => 'No Lock Number or Combination',
'Skipping' => 'Skipping',
'Duplicate Lock Number' => 'Duplicate Lock Number',
'Pool' => 'Pool',
'Saved' => 'Saved',
'Add' => 'Add',
'Lock' => 'Lock',
);
my $self = 'lockadd.pl';
my $maxentry = 8;
use CGI;
use DBI;
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;
}
# Show page Header
print "$doctype\n$lex{Add} $lex{Locks}\n";
print "\n";
print "$chartype\n[ ". $lex{Main}. " |\n";
print "". $lex{Fees}. " ]\n";
print "\n";
print "
$lex{Add} $lex{Locks}
\n";
if ( $arr{writeflag} ) { # Write values and exit;
delete $arr{writeflag};
updateRecord();
}
if ( $arr{count} ) {
$maxentry = $arr{count}; # passed a larger number of records to add
delete $arr{count};
}
# Setup the form and start of table.
print "\n";
#---------------
sub updateRecord {
#---------------
#foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $maxentry = $arr{maxentry};
delete $arr{maxentry};
my $sth1 = $dbh->prepare("select count(*) from lok_lock where lock_num = ?");
foreach my $i ( 1 .. $maxentry ) {
my $lock_num = $arr{"lock_num$i"};
my $combination = $arr{"combination$i"};
my $pool = $arr{"pool$i"};
my $comment = $arr{"comment$i"};
if ( not $comment ) { $comment = $sql{default}; }
if ( not $lock_num or not $combination ) {
print "
$i. ". $lex{'No Lock Number or Combination'};
print q{ - }. $lex{Skipping}. "
\n";
next;
}
$sth1->execute( $lock_num );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
if ( my $count = $sth1->fetchrow ) {
print "