[open-ils-commits] r19266 - trunk/Open-ILS/src/extras/import (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2011-01-24 15:28:52 -0500 (Mon, 24 Jan 2011)
New Revision: 19266

Modified:
   trunk/Open-ILS/src/extras/import/parallel_pg_loader.pl
   trunk/Open-ILS/src/extras/import/pg_loader.pl
Log:
Fix for spurious warning (LP bug #707114)

Modified: trunk/Open-ILS/src/extras/import/parallel_pg_loader.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/parallel_pg_loader.pl	2011-01-24 18:43:26 UTC (rev 19265)
+++ trunk/Open-ILS/src/extras/import/parallel_pg_loader.pl	2011-01-24 20:28:52 UTC (rev 19266)
@@ -107,7 +107,7 @@
 			$d =~ s/\\/\\\\/gos;
 		}
 		if ($hint eq 'bre' and $fieldcache{$hint}{fields}[$x] eq 'quality') {
-			$d = int($d);
+			$d = int($d) if ($d ne '\N');
 		}
 		push @data, $d;
 		$x++;

Modified: trunk/Open-ILS/src/extras/import/pg_loader.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/pg_loader.pl	2011-01-24 18:43:26 UTC (rev 19265)
+++ trunk/Open-ILS/src/extras/import/pg_loader.pl	2011-01-24 20:28:52 UTC (rev 19266)
@@ -111,7 +111,7 @@
 				$d =~ s/\\/\\\\/gos;
 			}
 			if ($h eq 'bre' and $fieldcache{$h}{fields}[$x] eq 'quality') {
-				$d = int($d);
+				$d = int($d) if ($d ne '\N');
 			}
 			push @data, $d;
 			$x++;