shift off the class param

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13330 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm
index cf310bc..a8ef1f0 100644 (file)
--- 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;