From 552971b39267b2b02af204d35887e0d39301d01d Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Fri, 23 Jun 2006 00:32:40 +0000
Subject: [PATCH] Fix definition of Item::available to eliminate warning
 message

---
 ILS/Item.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ILS/Item.pm b/ILS/Item.pm
index 52b4fd6..e496bda 100644
--- a/ILS/Item.pm
+++ b/ILS/Item.pm
@@ -189,11 +189,11 @@ sub print_line {
 # OR
 # 2) It's checked out to the patron and there's no hold queue
 sub available {
-     my ($self, $for_patron) = shift;
+     my ($self, $for_patron) = @_;
 
-     return ((!$self->{patron_id} && (!scalar @{$self->{hold_queue}}
-				     || $self->{hold_queue}[0] == $for_patron))
-	     || ($self->{patron_id} && ($self->{patron_id} == $for_patron)
+     return ((!defined($self->{patron_id}) && (!scalar @{$self->{hold_queue}}
+					       || ($self->{hold_queue}[0] eq $for_patron)))
+	     || ($self->{patron_id} && ($self->{patron_id} eq $for_patron)
 		 && !scalar @{$self->{hold_queue}}));
 }
 
-- 
2.11.0