#!/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 = ('Textbook' => 'Textbook', 'Sign Out' => 'Sign Out', 'Main' => 'Main', 'Fees' => 'Fees', 'Error' => 'Error', 'Date' => 'Date', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Student' => 'Student', 'Books' => 'Books', 'Continue' => 'Continue', 'Record(s) Added' => 'Record(s) Added', 'Id' => 'Id', 'Not Found' => 'Not Found', ); use DBI; use CGI; my $self = 'tb_signout.pl'; my $maxbooks = 6; # max number of books signed out at a time. 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{'Sign Out'} $lex{Textbook}"; print "$doctype\n$title $chartype\n\n"; print "\n"; print "[ $lex{Main} |\n"; print " $lex{Fees} ]\n"; print "

$title

\n"; if ( not $arr{page} ) { showStartPage(); # select student group and books per page. } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectBooks(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeRecords(); } #---------------- sub showStartPage { #---------------- # Start Form print qq{
\n}; print qq{\n}; # Start Table print "\n"; # Grade / Homeroom print "\n"; print "\n"; # Books per Student print "\n"; # Continue print "\n"; print "
$lex{Books}/$lex{Student}\n"; print "
\n"; print "\n"; } #-------------- sub selectBooks { #-------------- # foreach my $key ( sort keys %arr) { print "K:$key V:$arr{$key}
\n"; } my $group; # Grade or Homeroom if ( $arr{grouptype} eq $lex{Grade} ) { $group = 'grade'; } else { $group = 'homeroom'; } my $bookcount; if ( $arr{bookcount} > $maxbooks or $arr{bookcount} < 1 ) { $bookcount = 1; } else { $bookcount = $arr{bookcount}; } # select students my %students = (); $sth = $dbh->prepare("select lastname, firstname, studnum from student where $group = ?"); $sth->execute( $arr{groupvalue} ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my ( $lastname, $firstname, $studnum ) = $sth->fetchrow ) { $students{"$lastname, $firstname ($studnum)"} = $studnum; } # Form print "
\n"; print "\n"; # Table print "\n"; print "\n"; # Continue print "\n"; foreach my $studkey ( sort keys %students ) { my $studnum = $students{$studkey}; foreach my $i ( 1..$bookcount ) { if ( $i == 1 ) { print "\n"; } } print "\n"; print "
$lex{Student}$lex{Books}
\n"; print "
$studkey\n"; } else { print "
";} print "
\n"; print "
\n"; exit; } #--------------- sub writeRecords { #--------------- # foreach my $key ( sort keys %arr) { print "K:$key V:$arr{$key}
\n"; } my $sth = $dbh->prepare("select lastname, firstname from student where studnum = ?"); my $sth1 = $dbh->prepare("select id, titleid, barcode from book_copy where barcode = ?"); my $sth2 = $dbh->prepare("select title, author, pubdate from book_title where id = ?"); my $sth3 = $dbh->prepare("insert into book_signout ( copyid, studnum, signout ) values(?,?,now() )"); my $sth4 = $dbh->prepare("select count(*) from book_signout where signout is not NULL and returndate is NULL and copyid = ? "); my $first = 1; foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { next; } # skip any blanks my ($studnum, $dud) = split(/:/, $key); # Load Student Info $sth->execute( $studnum ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr } my ( $lastname, $firstname ) = $sth->fetchrow; # Load Copy Info $sth1->execute( $arr{$key} ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr } my ($id, $titleid, $barcode ) = $sth1->fetchrow; # print "Copyid:$id Titleid:$titleid Code:$barcode
\n"; # Load Textbook Info $sth2->execute( $titleid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr } my ( $title, $author, $pubdate ) = $sth2->fetchrow; # Check for an existing signout $sth4->execute( $id ); # which is copyid. if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr } my $count = $sth4->fetchrow; # print "Count:$count
\n"; if ( $count > 0 ) { print "

$lex{Error}: $lex{Textbook} $lex{'Sign Out'} $lex{Exists}: $title ($barcode)

\n"; next; } # Write the Info my $text; if ( $title ) { $text = "$title ($pubdate)"; } if ( not $titleid ) { $text = "$lex{Textbook} $lex{'Not Found'}"; } if ( $first ) { # Table print "\n"; print "\n"; $first = 0; } print "\n"; print "\n"; # Write the record. if ( not $titleid ) { next; } # skip $sth3->execute($id, $studnum); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr } } if ( not $first ) { print "
$lex{Student}$lex{Books}$lex{Id}
$lastname, $firstname ($studnum)$text$arr{$key}
\n"; } if ( not $DBI::errstr ) { if ( not $first ) { print "

$lex{'Record(s) Added'}

\n"; } } else { print "

$lex{Error}:$DBI::errstr
\n"; print "$lex{Contact} $adminname $adminemail

\n"; } print "

[ $lex{Main} | \n"; print "$lex{Fees} | \n"; print "$title ]\n"; print "

\n"; exit; }