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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-03-16 10:13:52 -0400 (Tue, 16 Mar 2010)
New Revision: 15855

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
repaired key names in json query response

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2010-03-16 14:13:26 UTC (rev 15854)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2010-03-16 14:13:52 UTC (rev 15855)
@@ -624,7 +624,7 @@
                     }
                 )->[0];
 
-                $imported = 1 if $res->{overlay_bib_record} eq 't';
+                $imported = 1 if $res->{'vandelay.overlay_bib_record'} eq 't';
 
             } elsif( scalar(@{$rec->matches}) == 1 ) {
                 
@@ -645,7 +645,7 @@
                         }
                     )->[0];
 
-                    $imported = 1 if $res->{overlay_bib_record} eq 't';
+                    $imported = 1 if $res->{'vandelay.overlay_bib_record'} eq 't';
 
                 } elsif($auto_overlay_exact) { 
                     
@@ -661,7 +661,7 @@
                         }
                     )->[0];
 
-                    $imported = 1 if $res->{auto_overlay_bib_record} eq 't';
+                    $imported = 1 if $res->{'vandelay.auto_overlay_bib_record'} eq 't';
                 }
             }