X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=Equinox-Migration%2Flib%2FEquinox%2FMigration%2FMapDrivenMARCXMLProc.pm;h=28545467cd636fe23847f434e4b4419888833fe4;hp=9844daf68f02ef213b23c7d195801e177ea3cb4f;hb=2663e385ad3d1bba9ecd0ff191ce92b11dce8a1b;hpb=ca9dd06ee372e59b4fe0ecdcbe24cf7468d8577f

diff --git a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
index 9844daf..2854546 100644
--- a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
@@ -133,6 +133,8 @@ sub parse_record {
     $record->purge;
     $self->{data}{rptr}++;
 
+    # FIXME check for required fields here
+
     return $self->{data}{crec};
 }
 
@@ -200,7 +202,7 @@ sub process_subs {
             push @{$dataf->{multi}{$name}}, $sub->text;
         }
     } else {
-        die "Multiple occurances of a non-multi field: \n"
+        die "Multiple occurances of a non-multi field: $tag$code at rec ",($self->{data}{rptr} + 1),"\n"
           if (defined $dataf->{uni}{$code});
         $dataf->{uni}{$code} = $sub->text;
     }
@@ -226,8 +228,18 @@ once per datafield will cause a fatal error.
 
 =head2 bib
 
+The C<bib> modifier declares that a mapping is "bib-level", and should
+be encountered once per B<record> instead of once per B<datafield> --
+which is another way of saying that it occurs in a non-repeating
+datafield or in a controlfield.
+
 =head2 required
 
+By default, if a mapping does not occur in a datafield (or record, in
+the case of C<bib> mappings), processing continues normally. if a
+mapping has the C<required> modifier, however, it must appear, or a
+fatal error will occur.
+
 =head1 PARSED RECORDS
 
 Given: