From 98c12d63805d669e328964f019bbd368f51adf1c Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 15 Mar 2019 11:29:07 -0400 Subject: [PATCH] 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 Signed-off-by: Dan Pearl --- .../src/perlmods/lib/OpenILS/Application/Cat/Authority.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 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 717bcb4f44..66c6c4a9eb 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm @@ -32,7 +32,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; } @@ -129,10 +130,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( -- 2.43.2