From eda36ce1ebce750ff7df41a8ede14ee07c565a54 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 30 Jun 2006 10:16:05 +0000 Subject: [PATCH] r746@llin: dpavlin | 2006-06-30 12:15:56 +0200 added marc_indicators (with condition!) git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@549 07558da8-63fa-0310-ba24-9fe276d99e06 --- conf/normalize/mapping.pl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/conf/normalize/mapping.pl b/conf/normalize/mapping.pl index 02f7ead..c94f2a7 100644 --- 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'), -- 2.20.1