--- trunk/conf/normalize/mapping.pl	2006/06/29 23:19:26	547
+++ trunk/conf/normalize/mapping.pl	2006/07/03 22:00:39	575
@@ -1,3 +1,25 @@
+# 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');
+}
+
+
+
+# greška! - 000 se ne zapisuje u marc:
+
 marc('001',
 	rec('000')
 );
@@ -6,12 +28,17 @@
 	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')
 );
 
 marc_indicators('245', 0, 0);
-
 marc('245','a',
 	rec('200','a')
 );
@@ -34,16 +61,11 @@
 	rec('205','a')
 );
 
-marc('260','a',
-	rec('210','a')
-);
-
-marc('260','b',
-	rec('210','c')
-);
-
-marc('260','c',
-	rec('210','d')
+marc_compose('260',
+	'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
+	'b', first(rec('210','c')),
+	'a', split_rec_on('210','a', qr/\s*;\s*/, 2),
+	'c', first(rec('210','d')),
 );
 
 marc('300','a',
@@ -62,6 +84,8 @@
 	rec('215','e')
 );
 
+
+marc_indicators('490', 1, ' ');
 marc('490','a',
 	join_with(' = ',
 		rec('225','a'),
@@ -76,23 +100,55 @@
 );
 
 marc('490','v',
-	rec('225','v')
+	join_with(', ',
+		rec('225','v'),
+		rec('225','w')
+	)
 );
 
 marc('500','a',
 	rec('300')
 );
 
+marc('500','a',
+	rec('314')
+);
+
 marc('504','a',
 	rec('320')
 );
 
+marc('501','a',
+	rec('327')
+);
+
+marc('520','a',
+	rec('330')
+);
+
+# možda i polje 520y - jezik napomene ako je uvijek isti jezik
+
 marc_indicators('655', ' ', 4);
 marc('655','a',
+	rec('608')
+);
+
+marc_indicators('653', ' ', ' ');
+marc('653','a',
 	rec('610')
 );
 
-marc_indicators('100', 0, ' ');
+marc('080','a',
+	rec('675','a')
+);
+
+# podpolja c, d ... - što s njima?
+
+marc('084','a',
+	rec('686')
+);
+
+marc_indicators('100', 1, ' ');
 marc('100','a',
 	join_with(', ',
 		rec('700', 'a'),
@@ -100,6 +156,8 @@
 	)
 );
 
+
+marc_indicators('700', 1, ' ');
 marc('700','a',
 	join_with(', ',
 		rec('701', 'a'),
@@ -108,9 +166,9 @@
 );
 
 if ( rec('701') ) { 
-	marc('700','4', 
-		'070'
-	); 
+marc('700','4', 
+	'aut'
+); 
 }
 
 marc('700','a',
@@ -120,11 +178,71 @@
 	)
 );
 
-if ( rec('702') ) {
-	marc('700','4',
-		'340'
-	);
+# podesiti podpolje 4 na editore nije dobra ideja
+#
+# if ( rec('702') ) {
+#	marc('700','4',
+#		'340'
+#	);
+# }
+
+if ( rec('710','f') ) {
+
+marc_indicators('111', 2, ' ');
+marc('111','a',
+	rec('710','a')
+);
+
+marc('111','c',
+	rec('710','e')
+);
+
+marc('111','d',
+	rec('710','f')
+);
+
+marc('111','e',
+	rec('710','b')
+);
+
+marc('111','n',
+	rec('710','d')
+);
+
+
+} else {
+	
+marc_indicators('110', 2, ' ');
+marc('110','a',
+	rec('710','a')
+);
+
+marc('110','c',
+	rec('710','c')
+);
+
 }
 
+# zapisi za duplanje
+
+if ( rec('230') ) {
+
+marc_duplicate();
+
+marc('245','a',
+	rec('230','a')
+);
+
+marc('245','b',
+	rec('230','e')
+);
+
+marc('245','c',
+	rec('230','f')
+);
 
+marc('245','n',
+	rec('230','v')
+);
 
+}