From cc5e83730977bc600786fe6f8ff343ac1ae4c51f Mon Sep 17 00:00:00 2001
From: tipaul <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.2