#!/usr/bin/perl
# Copyright 2001-2011 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',
'Fees' => 'Fees',
'Locker Number' => 'Locker Number',
'Add Another' => 'Add Another',
'Cleaned' => 'Cleaned',
'Comment' => 'Comment',
'Starting Number' => 'Starting Number',
'Ending Number' => 'Ending Number',
'or' => 'or',
'Number to Add' => 'Number to Add',
'Bulk Comment' => 'Bulk Comment',
'Cleaned' => 'Cleaned',
'Location' => 'Location',
'Continue' => 'Continue',
'Save' => 'Save',
'Saved' => 'Saved',
'No' => 'No',
'Record(s) Stored' => 'Record(s) Stored',
'Error' => 'Error',
'Locker' => 'Locker',
'Add' => 'Add',
);
my $self = 'lockeradd.pl';
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{Locker}\n";
print "\n";
print "$chartype\n[ ". $lex{Main}. " |\n";
print "". $lex{Fees}. " ]\n";
print "
$lex{Add} $lex{Locker}
\n";
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showLockers();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
addRecords();
}
#---------------
sub addRecords {
#---------------
my $start = $arr{start};
delete $arr{start};
my $end = $arr{end};
delete $arr{end};
#foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $first = 1;
for my $i ( $start .. $end ) {
my $locker_num = $arr{"locker_num$i"};
if ( not $locker_num ) { next; }
my $location = $arr{"location$i"};
my $cleaned = $arr{"cleaned$i"};
my $comment = $arr{"comment$i"};
#print "$i LN: $locker_num \n";
my $sth = $dbh->prepare("insert into lok_locker ( locker_num, location, cleaned, comment )
values( ?, ?, ?, ? )");
$sth->execute( $locker_num, $location, $cleaned, $comment );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
print "
". $lex{Saved}. " $i
\n";
$first = 0;
}
if ( not $first ) { # records saved
print "