local

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@569 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/conf/normalize/mapping.pl b/conf/normalize/mapping.pl
index 864c987..242289d 100644 (file)
--- a/conf/normalize/mapping.pl
+++ b/conf/normalize/mapping.pl
@@ -1,22 +1,24 @@
 # Leader
+# 
+# if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
+#      marc_leader('05','c');
+# } else {
+#      marc_leader('05','n');
+# }
+# 
+# marc_leader('06','a');
+# 
+# marc_leader('07','m');
+# 
+# marc_leader('18','i');
+# 
+# if ( rec('230') ) {
+#      marc_leader('19','r');
+# }
 
-if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
-       marc_leader('05','c');
-} else {
-       marc_leader('05','n');
-}
-
-marc_leader('06','a');
-
-marc_leader('07','m');
-
-marc_leader('18','i');
 
-if ( rec('230') ) {
-       marc_leader('19','r');
-}
 
-# gre¹ka - 000 se ne zapisuje u marc:
+# gre¹ka! - 000 se ne zapisuje u marc:
 
 marc('001',
        rec('000')
@@ -59,9 +61,6 @@ marc('250','a',
        rec('205','a')
 );
 
-_debug( 2 );
-warn "210a: ",dump( first(rec('210','a' )) );
-
 marc_compose('260',
        'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
        'b', first(rec('210','c')),
@@ -69,9 +68,6 @@ marc_compose('260',
        'c', first(rec('210','d')),
 );
 
-
-_debug( 0 );
-
 marc('300','a',
        rec('215','a')
 );
@@ -104,7 +100,10 @@ marc('490','a',
 );
 
 marc('490','v',
-       rec('225','v')
+       join_with(', ',
+               rec('225','v'),
+               rec('225','w')
+       )
 );
 
 marc('500','a',