From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 15 Mar 2019 15:29:07 +0000 (-0400)
Subject: LP1693580 Authority create/update API repairs
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d48277df7ac4a105a323fc91b340a51913ebc8cb;p=working%2FEvergreen.git

LP1693580 Authority create/update API repairs

Fixes issues with the authority record create and update open-ils.cat
API calls, where internal function calls were not passed the correct
values.

Signed-off-by: Bill Erickson <berickxx@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 6a5f36e426..ca795b53c7 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
@@ -35,7 +35,8 @@ sub import_authority_record {
     my $e = new_editor(authtoken=>$auth, xact=>1);
     return $e->die_event unless $e->checkauth;
     return $e->die_event unless $e->allowed('CREATE_AUTHORITY_RECORD');
-    my $rec = OpenILS::Application::Cat::AuthCommon->import_authority_record($marc_xml, $source);
+    my $rec = OpenILS::Application::Cat::AuthCommon->
+        import_authority_record($e, $marc_xml, $source);
     $e->commit unless $U->event_code($rec);
     return $rec;
 }
@@ -132,10 +133,10 @@ sub overlay_authority_record {
     my $e = new_editor(authtoken=>$auth, xact=>1);
     return $e->die_event unless $e->checkauth;
     return $e->die_event unless $e->allowed('UPDATE_AUTHORITY_RECORD');
-    my $rec = OpenILS::Application::Cat::AuthCommon->overlay_authority_record($rec_id, $marc_xml, $source);
+    my $rec = OpenILS::Application::Cat::AuthCommon->
+        overlay_authority_record($e, $rec_id, $marc_xml, $source);
     $e->commit unless $U->event_code($rec);
     return $rec;
-
 }
 
 __PACKAGE__->register_method(