From 047d6bb9cda46d837eff371322290e530266c065 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Fri, 24 Apr 2009 15:29:04 +0000
Subject: [PATCH 1/1] tweaks for E::M::SM changes

---
 .../lib/Equinox/Migration/MapDrivenMARCXMLProc.pm  |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

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
-- 
1.7.2.5