From: Jason Stephenson <jstephenson@mvlc.org>
Date: Fri, 8 Nov 2013 20:02:53 +0000 (-0500)
Subject: Replace erroneous calls to $e->retrieve_authority_record($rec_id).
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=cdac86e1201d94b610678cdcf84e0e93107fdc05;p=evergreen%2Fpines.git

Replace erroneous calls to $e->retrieve_authority_record($rec_id).

On lines 153 and 175 of OpenILS::Application::Cat::Authority calls
like the above should be $e->retrieve_authority_record_entry($rec_id).
This branch replaces the two misspelled calls with the proper ones.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
index 6d86b80f51..717bcb4f44 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
@@ -150,7 +150,7 @@ sub retrieve_authority_record {
     my($self, $conn, $auth, $rec_id, $options) = @_;
     my $e = new_editor(authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
-    my $rec = $e->retrieve_authority_record($rec_id) or return $e->event;
+    my $rec = $e->retrieve_authority_record_entry($rec_id) or return $e->event;
     $rec->clear_marc if $$options{clear_marc};
     return $rec;
 }
@@ -172,7 +172,7 @@ sub batch_retrieve_authority_record {
     my $e = new_editor(authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
     for my $rec_id (@$rec_id_list) {
-        my $rec = $e->retrieve_authority_record($rec_id) or return $e->event;
+        my $rec = $e->retrieve_authority_record_entry($rec_id) or return $e->event;
         $rec->clear_marc if $$options{clear_marc};
         $conn->respond($rec);
     }