--- trunk/conf/normalize/mapping.pl	2006/07/02 16:14:41	562
+++ trunk/conf/normalize/mapping.pl	2006/07/03 10:32:46	570
@@ -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')
 );
@@ -39,9 +61,6 @@
 	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')),
@@ -49,9 +68,6 @@
 	'c', first(rec('210','d')),
 );
 
-
-_debug( 0 );
-
 marc('300','a',
 	rec('215','a')
 );
@@ -84,7 +100,10 @@
 );
 
 marc('490','v',
-	rec('225','v')
+	join_with(', ',
+		rec('225','v'),
+		rec('225','w')
+	)
 );
 
 marc('500','a',
@@ -174,6 +193,14 @@
 	rec('710','a')
 );
 
+marc('111','c',
+	rec('710','e')
+);
+
+marc('111','d',
+	rec('710','f')
+);
+
 marc('111','e',
 	rec('710','b')
 );
@@ -182,13 +209,6 @@
 	rec('710','d')
 );
 
-marc('111','c',
-	rec('710','e')
-);
-
-marc('111','d',
-	rec('710','f')
-);
 
 } else {
 	
@@ -204,31 +224,23 @@
 }
 
 # zapisi za duplanje
-
-if ( rec('230') ) {
-
-marc('245','a',
-	rec('230','a')
-);
-
-marc('245','b',
-	rec('230','e')
-);
-
-marc('245','c',
-	rec('230','f')
-);
-
-marc('245','n',
-	rec('230','v')
-);
-
-}
-
-
-
-
-
-
-
-
+#
+# if ( rec('230') ) {
+#
+# marc('245','a',
+# 	rec('230','a')
+# );
+# 
+# marc('245','b',
+# 	rec('230','e')
+# );
+# 
+# marc('245','c',
+# 	rec('230','f')
+# );
+# 
+# marc('245','n',
+# 	rec('230','v')
+# );
+# 
+# }