[Koha-cvs] koha/C4/Circulation Circ2.pm

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/02/09 21:34:51

Modified files:
        C4/Circulation : Circ2.pm 

Log message:
        Just getting rid of some annoying warnings

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Circulation/Circ2.pm.diff?tr1=1.99&tr2=1.100&r1=text&r2=text

Patches:
Index: koha/C4/Circulation/Circ2.pm
diff -u koha/C4/Circulation/Circ2.pm:1.99 koha/C4/Circulation/Circ2.pm:1.100
--- koha/C4/Circulation/Circ2.pm:1.99   Wed Oct 26 09:12:33 2005
+++ koha/C4/Circulation/Circ2.pm        Thu Feb  9 21:34:51 2006
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.99 2005/10/26 09:12:33 tipaul Exp $
+# $Id: Circ2.pm,v 1.100 2006/02/09 21:34:51 rangi Exp $
 
 #package to deal with Returns
 #written 3/11/99 by address@hidden
@@ -742,7 +742,7 @@
        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 @@
        $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;