From 7f59799c9c2a9fe37a1a934d0b59f6243b56a317 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 5 Jun 2009 18:07:33 +0000 Subject: [PATCH] shift off the class param git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4_0@13332 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm index cf310bc2fd..a8ef1f0bcb 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm @@ -26,7 +26,7 @@ sub marc_xml_to_doc { sub import_authority_record { - my($e, $marc_xml, $source) = @_; + my($class, $e, $marc_xml, $source) = @_; my $marc_doc = marc_xml_to_doc($marc_xml); my $rec = Fieldmapper::authority::record_entry->new; @@ -47,7 +47,7 @@ sub import_authority_record { sub overlay_authority_record { - my($e, $rec_id, $marc_xml, $source) = @_; + my($class, $e, $rec_id, $marc_xml, $source) = @_; my $marc_doc = marc_xml_to_doc($marc_xml); my $rec = $e->retrieve_authority_record_entry($rec_id) or return $e->die_event; -- 2.11.0