From cc5e83730977bc600786fe6f8ff343ac1ae4c51f Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 17 Jun 2004 08:17:39 +0000 Subject: [PATCH] bugfixes in circulation --- C4/Circulation/Circ2.pm | 2 +- circ/circulation.pl | 14 ++++++++------ 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm index bb3ed708cf..86524b0af4 100755 --- a/C4/Circulation/Circ2.pm +++ b/C4/Circulation/Circ2.pm @@ -684,7 +684,7 @@ sub canbookbeissued { # # ITEM CHECKING # - unless ($iteminformation) { + unless ($iteminformation->{barcode}) { $issuingimpossible{UNKNOWN_BARCODE} = 1; } if ($iteminformation->{'notforloan'} == 1) { diff --git a/circ/circulation.pl b/circ/circulation.pl index 30af1104d8..9ebdd3307f 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -82,12 +82,6 @@ my @datearr = localtime(time()); # FIXME - Could just use POSIX::strftime("%Y%m%d", localtime); my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3])); -# get the borrower information..... -my $borrower; -if ($borrowernumber) { - $borrower = getpatroninformation(\%env,$borrowernumber,0); -} - # my $message; # @@ -103,11 +97,19 @@ if ($findborrower) { } elsif ($#borrowers == 0) { $query->param('borrnumber', $borrowers[0]->{'borrowernumber'}); $query->param('barcode',''); + $borrowernumber=$borrowers[0]->{'borrowernumber'}; } else { $borrowerslist = \@borrowers; } } +# get the borrower information..... +my $borrower; +if ($borrowernumber) { + $borrower = getpatroninformation(\%env,$borrowernumber,0); +} + + # # STEP 3 : ISSUING # -- 2.39.5