local

[webpac2] / conf / normalize / mapping.pl

diff --git a/conf/normalize/mapping.pl b/conf/normalize/mapping.pl
index d364deb..f8d1f74 100644 (file)
--- a/conf/normalize/mapping.pl
+++ b/conf/normalize/mapping.pl
@@ -84,7 +84,10 @@ marc_compose('245',
                        rec('200','a')
        ),
        'h', rec('200','b'),
-       'b', rec('200','k'),
+       'b', 
+               join_with(' ; ',
+                       rec('200','k'),
+               ),
        'b', rec('200','d'), 
        'b', 
                join_with(' : ',
@@ -368,71 +371,93 @@ marc('110','c',
 
 
 marc_indicators('740', 0, ' ');
+
+if ( ! rec('464') ) {
 marc('740','a',
        rec('200','c')
 );
 
+marc('740','a',
+       rec('200','k')
+);
 
-# vi¹erazinci 
-# 
-# if ( rec('230') ) {
-# 
-#      marc_duplicate();
-#      marc_remove('245');
-# 
-#      marc('245','a',
-#              rec('230','a')
-#      );
-# 
-#      if ( ! rec('230','a') ) {
-# 
-#              marc('245','a',
-#                      rec('200','a')
-#              );
-#      }
-# 
-#      marc('245','b',
-#              rec('230','e')
-#      );
-# 
-#      marc('245','c',
-#              rec('230','f')
-#      );
-# 
-#      marc('245','n',
-#              rec('230','v')
-#      );
-# 
-# }
-# 
-# if ( rec('231') ) {
-# 
-#      marc_duplicate();
-#      marc_remove('245');
-# 
-#      marc('245','a',
-#              rec('231','a')
-#      );
-# 
-#      if ( ! rec('231','a') ) {
-# 
-#              marc('245','a',
-#                      rec('200','a')
-#              );
-#      }
-# 
-#      marc('245','b',
-#              rec('231','e')
-#      );
-# 
-#      marc('245','c',
-#              rec('231','f')
-#      );
-# 
-#      marc('245','n',
-#              rec('231','v')
-#      );
-# 
-# }
+} else {
+marc('740','a',
+       rec('464','a')
+);
+};
+
+
+
+## vi¹erazinci 
+
+if ( rec('230') ) {
+
+       marc_duplicate();
+       
+       marc_remove('245');
+       marc_compose('245',
+       'a', suffix(
+               rec('200','b') ? '. '   :
+               rec('200','k') ? ' ; '  :
+               rec('200','d') ? ' = '  :
+               rec('200','e') ? ' : '  :
+               rec('200','f') ? ' / '  :
+                                '.',
+                       rec('230','a')
+       ),
+       'b', 
+               join_with(' ; ',
+                       rec('230','k'),
+               ),
+       'b', rec('230','d'), 
+       'b', 
+               join_with(' : ',
+                       rec('230','e'),
+               ),
+       'c', 
+               join_with(' ; ',
+                       rec('230','f'),
+               ),
+       );
+
+       marc_remove('260');
+       marc('260','c',
+               rec('250')
+       );
+
+       marc_remove('300');
+       marc('300','a',
+               rec('260')
+       );
+
+       marc_remove('490');
+       marc('490','a',
+               rec('270')
+       );
+
+       marc_remove('500');
+       marc('500','a',
+               rec('280')
+       );
+
+       marc_remove('020');
+       marc('020','a',
+               rec('290')
+       );
+
+       marc_indicators('774', 0, ' ');
+       marc('774','6',
+               join_with('',
+                       config(),
+                       rec('000')
+               )
+       );
+
+       marc('774','g',
+               rec('230','v')
+       );
+ 
+};
 
 }