More work

This commit is contained in:
chris 1999-10-28 03:04:06 +00:00
parent 99a58faee4
commit 47ac0b73f8

View file

@ -118,6 +118,7 @@ sub processitems {
#book is already out, deal with it
#if its out to another deal with it
#if its out the person ask if they want to renew it etc
print "book is out";
}
#check reserve
&checkreserve;
@ -153,8 +154,8 @@ sub checkwaiting{
sub scan {
#scan barcode
# my $number='L01470967';
&userdialog('console','Please enter a book barcode');
my $number='L01470967';
# my $number=&userdialog('console','Please enter a book barcode');
return ($number);
}