- added mapping rules for title information

bin/slubsipbuilderbagit.pl

@@ -85,6 +85,15 @@ package SLUB::LZA::SIPBuilderBagIt;
     my $recordschema_swb  = 'marcxmlvbos';
     my $recordschema_k10p = 'marcxmlk10os';
 
+    # MARC21 -> bag-info.txt mapping
+    # reference: https://www.loc.gov/marc/bibliographic/bd20x24x.html
+    my $marc21_to_baginfo_mappings = [
+        { tag => "245", code => "a", key => "Title" },
+        { tag => "245", code => "b", key => "Title" },
+        { tag => "245", code => "c", key => "Title" },
+        { tag => "246", code => "a", key => "Title" },
+        { tag => "246", code => "b", key => "Title" },
+    ];
     sub get_marc21_from_catalogue($){
         if(! defined $_[0]){ croak "ppn not defined!"; }