[open-ils-commits] r12741 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-31 16:19:24 -0400 (Tue, 31 Mar 2009)
New Revision: 12741

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
prevent some warnings in the logs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-03-31 18:21:54 UTC (rev 12740)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-03-31 20:19:24 UTC (rev 12741)
@@ -1414,7 +1414,7 @@
 sub get_copy_price {
 	my($self, $e, $copy, $volume) = @_;
 
-	$copy->price(0) if $copy->price < 0;
+	$copy->price(0) if $copy->price and $copy->price < 0;
 
 	return $copy->price if $copy->price and $copy->price > 0;