From: rangi Date: Thu, 9 Feb 2006 21:34:51 +0000 (+0000) Subject: Just getting rid of some annoying warnings X-Git-Tag: dev_week~1094 X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=89eff456a2837810386afa485edeca06b2a590d2;p=koha_gimpoz Just getting rid of some annoying warnings --- diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm index 069d5708da..ad48fb0965 100755 --- a/C4/Circulation/Circ2.pm +++ b/C4/Circulation/Circ2.pm @@ -742,7 +742,7 @@ sub canbookbeissued { unless ($iteminformation->{barcode}) { $issuingimpossible{UNKNOWN_BARCODE} = 1; } - if ($iteminformation->{'notforloan'} > 0) { + if ($iteminformation->{'notforloan'} && $iteminformation->{'notforloan'} > 0) { $issuingimpossible{NOT_FOR_LOAN} = 1; } if ($iteminformation->{'itemtype'} &&$iteminformation->{'itemtype'} eq 'REF') { @@ -1265,25 +1265,25 @@ sub patronflags { $flaginfo{'message'} = sprintf "Patron has credit of \$%.02f", -$amount; $flags{'CHARGES'} = \%flaginfo; } - if ($patroninformation->{'gonenoaddress'} == 1) { + if ($patroninformation->{'gonenoaddress'} && $patroninformation->{'gonenoaddress'} == 1) { my %flaginfo; $flaginfo{'message'} = 'Borrower has no valid address.'; $flaginfo{'noissues'} = 1; $flags{'GNA'} = \%flaginfo; } - if ($patroninformation->{'lost'} == 1) { + if ($patroninformation->{'lost'} && $patroninformation->{'lost'} == 1) { my %flaginfo; $flaginfo{'message'} = 'Borrower\'s card reported lost.'; $flaginfo{'noissues'} = 1; $flags{'LOST'} = \%flaginfo; } - if ($patroninformation->{'debarred'} == 1) { + if ($patroninformation->{'debarred'} && $patroninformation->{'debarred'} == 1) { my %flaginfo; $flaginfo{'message'} = 'Borrower is Debarred.'; $flaginfo{'noissues'} = 1; $flags{'DBARRED'} = \%flaginfo; } - if ($patroninformation->{'borrowernotes'}) { + if ($patroninformation->{'borrowernotes'} && $patroninformation->{'borrowernotes'}) { my %flaginfo; $flaginfo{'message'} = "$patroninformation->{'borrowernotes'}"; $flags{'NOTES'} = \%flaginfo;