From 49a6922daf40f29726df34d008d81efe677016f5 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Fri, 8 Nov 2013 15:02:53 -0500 Subject: [PATCH] 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 Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); } -- 2.11.0