--- trunk/conf/normalize/ff-libri.pl	2006/10/25 11:02:36	758
+++ trunk/conf/normalize/ff-libri.pl	2006/11/03 20:41:12	773
@@ -1,11 +1,12 @@
+# ne konvertira se ako nema polje 200^a
+
 if ( rec('200','a') ) {
 
 # Leader
 # raspraviti 17,18
-
+#
 # u nekim knjižnicama koristi se 999a i 999b
-
-
+#
 # vrijedi za ffan...
 
 if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
@@ -22,10 +23,12 @@
 	marc_leader('19','r');
 }
 
-
 # 001 polje - Voyager
-
+#
 # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku
+# u marc 035a - System Number - ??
+# NSK zapisuje Voyagerov ID (001) - kako ???
+
 
 marc('035','6',
 join_with('',
@@ -40,8 +43,6 @@
 	)
 );
 
-# u marc 035a treba dodati System Number - 
-# NSK zapisuje Voyagerov ID (001) - kako ???
 
 # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
 
@@ -49,7 +50,8 @@
 	rec('10')
 );
 
-# u polje 040a možda još dodati prefiks HR
+
+# u polje 040a - prefiks HR ?
 # NSK ima HR NSB (možda u novijim zapisima ima NSK?)
 
 marc('040','a',
@@ -64,18 +66,19 @@
 	'HR PPIAK'
 );
 
-if (rec('300') && first(rec('300')) =~ m/Prijevod/) {
+if ( rec('300') && first(rec('300')) =~ m/Prijevod/) {
 	marc_indicators('041', 1, ' ');
 } else {
 	marc_indicators('041', 0, ' ');
 }
 
-## naci primjer u NSK
+## naći primjer u NSK
 
 marc_repeatable_subfield('041','a',
 	rec('101')
 );
 
+# indikatori za članove. treba uvjetovati prema jezicima !!
 
 if ( 	( rec('200','a') =~ m/^Die /) || 
 	( rec('200','a') =~ m/^Das /) || 
@@ -143,7 +146,7 @@
 );
 
 # ponovljiva potpolja u originalnom redosljedu
-# 
+
 marc_original_order('260', '210');
 
 
@@ -227,6 +230,14 @@
 );
 
 marc('500','a',
+	rec('305')
+);
+
+marc('500','a',
+	rec('307')
+);
+
+marc('500','a',
 	rec('314')
 );
 
@@ -241,7 +252,7 @@
 
 ## FFPS 327 - sadrzaj
 if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {
-	marc_indicators('505', '1', ' ');
+	marc_indicators('505', '0', ' ');
 	marc('505','a',
 		regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
 			rec('327')
@@ -270,6 +281,10 @@
 	);
 }
 
+marc('538','a',
+	rec('337','a')
+);
+
 
 # možda i polje 520y - jezik napomene ako je uvijek isti jezik
 
@@ -603,4 +618,26 @@
  
 };
 
+marc_indicators('776', 0, ' ');
+
+marc('776','a',
+	rec('452','1')
+);
+
+marc('900','a',
+	lookup(
+		sub { rec('000') },
+		'ffps','libri',
+		sub { rec('200','a') },
+	)
+);
+
+marc('901','a',
+	lookup(
+		sub { 'NSK' },
+		'nsk','baza',
+		sub { rec('200','a') },
+	) 
+);
+
 }