From: Shawn Boyette <sboyette@esilibrary.com>
Date: Fri, 24 Apr 2009 15:29:04 +0000 (+0000)
Subject: tweaks for E::M::SM changes
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=047d6bb9cda46d837eff371322290e530266c065

tweaks for E::M::SM changes
---

diff --git a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
index 2c789c9..dc8a8ee 100644
--- a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
@@ -170,15 +170,15 @@ sub process_subs {
     my $dataf = $self->{data}{crec}{tags}[-1];
     my $field = $map->field($tag, $code);
 
-    # handle modifiers
-    if (defined $map->mods($field)) {
-        if ($map->mods($field) eq 'multi') {
+    # handle modifiers, or slug data in normally
+    if (my $mods = $map->mods($field)) {
+        if ($mods->{multi}) {
             my $name = $tag . $code;
             push @{$dataf->{multi}{$name}}, $sub->text;
         }
+    } else {
+        $dataf->{uni}{$code} = $sub->text;
     }
-
-    $dataf->{uni}{$code} = $sub->text;
 }
 
 =head1 PARSED RECORDS