projects
/
webpac2
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
b5d6a71
)
r746@llin: dpavlin | 2006-06-30 12:15:56 +0200
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 30 Jun 2006 10:16:05 +0000
(10:16 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 30 Jun 2006 10:16:05 +0000
(10:16 +0000)
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
patch
|
blob
|
history
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'),