#!/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 = ('Subject' => 'Subject', 'Title' => 'Title', 'Author' => 'Author', 'Publishing Date' => 'Publishing Date', 'Cost' => 'Cost', 'Bar Code' => 'Bar Code', 'Description' => 'Description', 'Textbook' => 'Textbook', 'Main' => 'Main', 'Fees' => 'Fees', 'Edit' => 'Edit', 'Delete' => 'Delete', 'Error' => 'Error', 'Record(s) Updated' => 'Record(s) Updated', 'Date' => 'Date', 'Deleted' => 'Deleted', 'Copies' => 'Copies', ); use DBI; use CGI; my $self = 'tb_textdeled.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{Edit}/$lex{Delete} $lex{Textbook} $lex{Title}"; 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(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; editRecord(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; updateRecord(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; confirmDelete(); } elsif ( $arr{page} == 4 ) { delete $arr{page}; deleteRecord(); } #---------------- sub showStartPage { #---------------- # select values from textbook title table. $sth = $dbh->prepare("select id, title, author, pubdate, description from book_title order by title, author"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } $sth1 = $dbh->prepare("select count(*) from book_copy where titleid = ?"); print "\n"; print ""; print "\n"; print "\n"; while ( my ( $id, $title, $author, $pubdate, $description ) = $sth->fetchrow ) { # Get Copy Count $sth1->execute( $id ) ; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; print "\n"; print "\n"; print "\n"; # Edit Button print qq{\n}; # Delete Button if ( not $count ) { # can't delete if we have copies depending.... print qq{"; } print qq{\n}; } print "
$lex{Title}$lex{Author}$lex{Date}$lex{Description}$lex{Copies}$lex{Edit}$lex{Delete}
$title$author$pubdate$description$count
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; } else { print "
\n"; } # show record to edit #------------- sub editRecord { #------------- # select values from textbook title table. $sth = $dbh->prepare("select * from book_title where id = ?"); $sth->execute( $arr{id} ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; # print top of form, then $text, then bottom of page. print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$lex{Subject}\n"; print "{subject}\">
$lex{Title}\n"; print "{title}\">
$lex{Author}\n"; print "{author}\">
$lex{'Publishing Date'}\n"; print "{pubdate}\">
$lex{Cost}\n"; print "{cost}\">
$lex{'Bar Code'}\n"; print "{barcode}\">
$lex{Description}\n"; print "
\n"; print "
\n"; print "
\n"; } # write update into table #--------------- sub updateRecord { #--------------- # foreach my $key ( sort keys %arr) { print "K:$key V:$arr{$key}
\n"; } my $id = $arr{id}; delete $arr{id}; foreach my $key ( keys %arr ) { my $sth = $dbh->prepare("update book_title set $key = ? where id = ?"); $sth->execute($arr{$key}, $id ); if (DBI::errstr) { print $DBI::errstr; } } if ( not $DBI::errstr ) { print "

$lex{'Record(s) Updated'}

\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; } #---------------- sub confirmDelete { #---------------- #foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $sth = $dbh->prepare("select * from book_title where id = ?"); $sth->execute( $arr{id} ); if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr } my $ref = $sth->fetchrow_hashref; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$lex{Title}\n"; print "$ref->{title}
$lex{Author}\n"; print "$ref->{author}
$lex{Date}\n"; print "$ref->{pubdate}
$lex{Description}\n"; print "$ref->{description}
\n"; print "\n"; print "
\n"; print "\n"; exit; } #--------------- sub deleteRecord { #--------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $sth = $dbh->prepare("select * from book_title where id = ?"); my $sth1 = $dbh->prepare("delete from book_title where id = ?"); # Load the record $sth->execute( $arr{id} ); if (DBI::errstr) { print $DBI::errstr; } my $ref = $sth->fetchrow_hashref; # Delete the record $sth1->execute( $arr{id} ); if ( not $DBI::errstr ) { print "

$ref->{title} ($ref->{author}) "; print "$lex{Deleted}

\n"; } else { print "

$lex{Error} $DBI::errstr
$lex{Contact} $adminname

\n"; } print "

[ $lex{Edit}/$lex{Delete} $lex{Title}\n"; print "| $lex{Main} | $lex{Fees} ]

\n"; print "\n"; exit; }