r746@llin: dpavlin | 2006-06-30 12:15:56 +0200

[webpac2] / conf / normalize / mapping.pl

diff --git a/conf/normalize/mapping.pl b/conf/normalize/mapping.pl
index 02f7ead..c94f2a7 100644 (file)
--- a/conf/normalize/mapping.pl
+++ b/conf/normalize/mapping.pl
@@ -6,6 +6,12 @@ marc('020','a',
        rec('010')
 );
 
+if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
+       marc_indicators('041', 1, ' ');
+} else {
+       marc_indicators('041', 0, ' ');
+}
+
 marc_repeatable_subfield('041','a',
        rec('101')
 );
@@ -92,7 +98,7 @@ marc('655','a',
        rec('610')
 );
 
-marc_indicators('100', 0, ' ');
+marc_indicators('100', 1, ' ');
 marc('100','a',
        join_with(', ',
                rec('700', 'a'),
@@ -100,6 +106,8 @@ marc('100','a',
        )
 );
 
+
+marc_indicators('700', 1, ' ');
 marc('700','a',
        join_with(', ',
                rec('701', 'a'),