Fix for spurious warning (LP bug #707114)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@19266 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/extras/import/parallel_pg_loader.pl b/Open-ILS/src/extras/import/parallel_pg_loader.pl
index 23e0405..43ddaa9 100755 (executable)
--- a/Open-ILS/src/extras/import/parallel_pg_loader.pl
+++ b/Open-ILS/src/extras/import/parallel_pg_loader.pl
@@ -107,7 +107,7 @@ while ( my $rec = <> ) {
                        $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++;

diff --git a/Open-ILS/src/extras/import/pg_loader.pl b/Open-ILS/src/extras/import/pg_loader.pl
index 2e9eb75..cde91de 100755 (executable)
--- a/Open-ILS/src/extras/import/pg_loader.pl
+++ b/Open-ILS/src/extras/import/pg_loader.pl
@@ -111,7 +111,7 @@ for my $h (@order) {
                                $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++;