Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Made it use C4::Interface

Browse source
This commit is contained in:
chris 1999-10-27 23:34:50 +00:00
parent e03089698c
commit 99a58faee4
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
C4/Circulation.pm
View file

@ -7,6 +7,7 @@ require Exporter;
use DBI;
use C4::Database;
use C4::Accounts;
use C4::Interface;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ -87,6 +88,7 @@ sub Issue {
}
#deal with alternative loans
#now check items
&processitems;
$dbh->disconnect;
return (@borrower);
}
@ -98,6 +100,7 @@ sub processitems {
my $sth=$dbh->prepare("Select * from items where barcode = '$itemnum'");
$sth->execute;
my @item=$sth->fetchrow_array;
print $itemnum,"\n",$item[0],"\n";
$sth->finish;
#check if item is restricted
if ($item[23] ==1 ){
@ -150,7 +153,8 @@ sub checkwaiting{
sub scan {
#scan barcode
my $number=12;
# my $number='L01470967';
&userdialog('console','Please enter a book barcode');
return ($number);
}