#!/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',
'View' => 'View',
'Error' => 'Error',
'Title' => 'Title',
'Author' => 'Author',
'Textbook' => 'Textbook',
'Copy' => 'Copy',
'Code' => 'Code',
'In' => 'In',
'Out' => 'Out',
'Id' => 'Id',
'Status' => 'Status',
'Copies' => 'Copies',
'Not Found' => 'Not Found',
);
use CGI;
use DBI;
my $self = 'tb_copyview.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{View} $lex{Textbook} $lex{Copy}";
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();
}
#----------------
sub showStartPage {
#----------------
# Load textbook titles, in order.
my $sth = $dbh->prepare("select id, title, author, pubdate
from book_title order by title");
$sth->execute;
if ( $DBI::errstr ) { print "$DBI::errstr;"; die "$DBI::errstr\n"; }
my $sth1 = $dbh->prepare("select id, barcode from book_copy where titleid = ?");
my $sth2 = $dbh->prepare("select count(*) from book_signout
where signout is not NULL and returndate is NULL and copyid = ?");
while ( my ( $id, $title, $author, $pubdate ) = $sth->fetchrow ) {
print "
$title ($pubdate)
\n";
my $first = 1;
# Load copy info.
$sth1->execute($id);
if ( $DBI::errstr ) { print "$DBI::errstr;"; die "$DBI::errstr\n"; }
while ( my ( $copyid, $barcode ) = $sth1->fetchrow ) {
if ( $first ) {
print "
\n";
print "
$lex{Id}
$lex{Status}
\n";
$first = 0;
}
print "
$barcode
";
$sth2->execute( $copyid );
if ( $DBI::errstr ) { print "$DBI::errstr;"; die "$DBI::errstr\n"; }
my $count = $sth2->fetchrow;
if ( $count ) { print $lex{Out}; } else { print $lex{In}; }
print "