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 6d86b80..717bcb4 100644 (file)
--- 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);
     }