From: Srey Seng <sseng@catalystitservices.com>
Date: Tue, 7 Jan 2014 22:30:49 +0000 (-0800)
Subject: LP#1266937: Fix missing/incorrect regex for authority in Vandelay.pm
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=857b8f1a788ba28d4d07fe7dec61d736adce432e;p=working%2FEvergreen.git

LP#1266937: Fix missing/incorrect regex for authority in Vandelay.pm

Add in missing "~" in function import_record_list_impl when
type is authority records. Also replace "auth" with "authority"
so that the generated values match up with functions in the
database.

Signed-off-by: Srey Seng <sreyseng@gmail.com>
Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
index b821b11794..0bb52d6681 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
@@ -930,8 +930,8 @@ sub import_record_list_impl {
     $bib_sources{$_->id} = $_->source for @$sources;
 
     if($type eq 'auth') {
-        $overlay_func =~ s/bib/auth/o;
-        $auto_overlay_func = s/bib/auth/o;
+        $overlay_func =~ s/bib/authority/o; 
+        $auto_overlay_func =~ s/bib/authority/o; 
         $retrieve_func =~ s/bib/authority/o;
         $retrieve_queue_func =~ s/bib/authority/o;
         $update_queue_func =~ s/bib/authority/o;