#!/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.
%lex = ( 'Main' => 'Main',
'Fees' => 'Fees',
'Add' => 'Add',
'Error' => 'Error',
'Subject' => 'Subject',
'Title' => 'Title',
'Author' => 'Author',
'Publishing Date' => 'Publishing Date',
'Cost' => 'Cost',
'Bar Code' => 'Bar Code',
'Description' => 'Description',
'Textbook' => 'Textbook',
'Record(s) Stored' => 'Record(s) Stored',
'Contact' => 'Contact',
);
use CGI;
use DBI;
my $self = 'tb_textadd.pl';
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);
# Print Page Header
my $title = "$lex{Add} $lex{Textbook} $lex{Title}";
print "$doctype\n$title\n";
print "\n";
print "$chartype\n\n";
print "[ $lex{Main} |\n";
print "$lex{Fees} ]\n";
print "
$title
\n";
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
writeRecord();
}
#----------------
sub showStartPage {
#----------------
# print top of form, then $text, then bottom of page.
print "\n";
}
#--------------
sub writeRecord {
#--------------
# foreach my $key ( sort keys %arr) { print "K:$key V:$arr{$key} \n"; }
my $sth = $dbh->prepare("insert into book_title ( subject, title, author, pubdate, cost, barcode, description )
values( ?, ?, ?, ?, ?, ?, ? )");
$sth->execute( $arr{subject}, $arr{title}, $arr{author}, $arr{pubdate}, $arr{cost}, $arr{barcode}, $arr{description} );
if ( not $DBI::errstr ) {
print "