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

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	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 olwen at katipo.co.nz
@@ -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;