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=ccc0a8dbcef48ddd19ff94f8a72848bed11612e0;p=Evergreen.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>

Conflicts [just whitespace]:
	Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
---

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 696a4468f1..cc1141f3ad 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
@@ -148,9 +148,9 @@ __PACKAGE__->register_method(
 );
 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 $e = new_editor(authtoken=>$auth);
+    return $e->die_event unless $e->checkauth;
+    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);
     }