[open-ils-commits] r13331 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Cat (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-05 14:07:24 -0400 (Fri, 05 Jun 2009)
New Revision: 13331

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm
Log:
shift off the class param

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm	2009-06-05 18:07:05 UTC (rev 13330)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Cat/AuthCommon.pm	2009-06-05 18:07:24 UTC (rev 13331)
@@ -26,7 +26,7 @@
 
 
 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 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;