--- trunk/conf/normalize/ff-libri.pl	2007/10/10 21:00:48	903
+++ trunk/conf/normalize/ff-libri.pl	2007/11/06 20:20:37	1010
@@ -40,7 +40,8 @@
 
 marc_fixed('007',00,'ta');
 
-### 008
+### 008 - All materials
+
 # što zapisati u polje kad datum nije poznat?
 
 if ( rec('994','c') ) {
@@ -62,20 +63,52 @@
 #)
 #);
 
+marc_fixed('008','06', 't');		# 06 - Type of date/Publication status
+marc_fixed('008','07',
+	rec('210','d')
+);					# 07-10 - Date 1
+# marc_fixed('008','11', ' ');		# 11-14 - Date 2 
+marc_fixed('008','15', 
+	lc ( rec('102') ) 
+); 					# 15-17 - Place of publication, production, or execution
 marc_fixed('008','35',
-	first( lc(rec('101')) )
+	first( lc(rec('101')) )		# 35-37 - Language
 );
+marc_fixed('008','38', '|');		# 38 - Modified record
+marc_fixed('008','39','d');		# 39 - Cataloging source
+
+
+### 008 - Books
+
+					# 18-21 - Illustrations
+					# 22 - Target audience
+					# 23 - Form of item
+					# 24-27 - Nature of contents
+					# 28 - Government publication
+					# 29 - Conference publication
+					# 30 - Festschrift
+					# 31 - Index
+					# 32 - Undefined
+					# 33 - Literary form
+					# 34 - Biography
 
 
 ### 020
 # postoji modify -> drugi ISBN počinje prefixom "ISBN" koji se miče (sfb)
 
-marc('020','a',
-	regex('s/ ISBN //g',
-		rec('10')
-	)
-);
+if ( frec('10') ne frec('290') ) {
+	marc('020','a', 
+		regex('s/-//g',
+			rec('10')
+		)
+	); 
+}
 
+#warn( 
+#	dump(
+#		frec('10')
+#	),
+#);
 
 ### 035$6
 # Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku.
@@ -112,9 +145,7 @@
 );
 
 
-### 041
-
-# indikatori
+### 041 - indikatori
 #
 # pretpostavke o indikatorima:
 # 
@@ -130,8 +161,13 @@
 # ????
 
 
-#if ( rec('675') =~ m/\d=\d/ ) {
-if ( grep( m/prijevod/i, rec('300')) || grep( m/prevedeno/i, rec('300')) || grep( m/izv.*stv.*nasl/i, rec('300')) || grep( m/izvornik/i, rec('300')) || grep( m/preve/i, rec('200','f')) || grep( m/preve/i, rec('200','g')) || grep( m/prijevod/i, rec('200','f')) || grep( m/prijevod/i, rec('200','g')) ) {
+#if ( rec('675') =~ m/\d=\d/ ) ??
+
+if ( 
+	grep( m/[prijevod|prevedeno|izv.*stv.*nasl|izvornik]/i, rec('300') ) || 
+	grep( m/[preve|prijevod]/i, rec('200','f')) || 
+	grep( m/[preve|prijevod]/i, rec('200','g'))  
+) {
 	marc_indicators('041', 1, ' ');
 } else {
 	marc_indicators('041', 0, ' ');
@@ -144,13 +180,13 @@
 #_debug(2);
 
 marc_repeatable_subfield('041','a',
-	rec('101')
+	map { lc($_) } rec('101')
 );
 
 #_debug(0);
 
 ### 044
-
+## kako dobiti zemlju izdavanja?
 
 ### 080
 # 675 podpolja b, c, d ... - što s njima ???
@@ -181,7 +217,7 @@
 	rec('686')
 );
 
-### 100
+### 100 indikatori
 
 # I1 = 0 ako je pseudonim (ima 700a, nema 700b)
 
@@ -191,6 +227,8 @@
 	marc_indicators('100', 1, ' ');
 }
 
+### 100
+
 marc('100','a',
 	join_with(', ',
 		rec('700', 'a'),
@@ -201,8 +239,8 @@
 
 ### 111 i 110
 # provjeriti ispise naslova iz svake baze - moguće su greške.
-# ovo vrijedi za FFSFB
 
+# ovo vrijedi za FFSFB
 if ( rec('710','d') || rec('710','e') || rec('710','f') ) {
 
 marc_indicators('111', 2, ' ');
@@ -256,13 +294,11 @@
 }
 
 
-### 245
+### 245 indikatori
+# treba nadopuniti i dati podatke na verifikaciju knjižničarima
 
-# indikatori
-#
 # i1 = 0 za anonimne publikacije, i1 = 1 ako postoji 700 ili 710
 # i2 = pretpostavlja se na temelju člana na početku naslova i jezika
-# treba nadopuniti i dati podatke na verifikaciju knjižničarima
 
 my $i1;
 
@@ -278,55 +314,68 @@
 if ( 	( rec('200','a') =~ m/^Die /) || 
 	( rec('200','a') =~ m/^Das /) || 
 	( rec('200','a') =~ m/^Der /) || 
+	( rec('200','a') =~ m/^Les /) || 
 	( rec('200','a') =~ m/^The /) ) {
 		marc_indicators('245', $i1, 4);
+
 } 
 
-if ( 	( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
-		marc_indicators('245', $i1, 2);
+if (	( rec('200','a') =~ m/^Un /) || 
+	( rec('200','a') =~ m/^An /) ||
+	( rec('200','a') =~ m/^La /) ||
+	( rec('200','a') =~ m/^Le /) ||
+	( rec('200','a') =~ m/^Il /) ) {
+		marc_indicators('245', $i1, 3);
 } 
 
-if ( 	( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
+if (	( rec('200','a') =~ m/^A /) || 
+	( rec('200','a') =~ m/^L'/) ) {
 		marc_indicators('245', $i1, 2);
 } 
 
+### 245
 # podpolja i interpunkcije pripremljeni u modify
 
 #_debug(3);
 
 marc_compose('245',
 	'a', suffix(
-		( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' / ' :  
-		( rec('200','d') ) ? ' = ' :
-		( rec('200','e') ) ? ' : ' :
-		( rec('200','k') ) ? ' ; ' :
+		( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' /' :  
+		( rec('200','d') ) ? ' =' :
+		( rec('200','e') ) ? ' :' :
+		( rec('200','k') ) ? ' ;' :
 			'', 
 			rec('200','a'),
 	),
 	'b', suffix(
-		( rec('200','d') && rec('200','f') ) ? ' / ' : 
-		( rec('200','d') && rec('200','c') ) ? '. '  : 
+		( rec('200','d') && rec('200','f') ) ? ' /' : 
+		( rec('200','d') && rec('200','c') ) ? '.'  : 
 			'',
 			rec('200','d'),
 	),
 	'b', suffix(
-		( rec('200','e') && rec('200','f') ) ? ' / ' : 
-		( rec('200','e') && rec('200','c') ) ? '. '  : 
+		( rec('200','e') && rec('200','f') ) ? ' /' : 
+		( rec('200','e') && rec('200','c') ) ? '.'  : 
 			'',
 			rec('200','e'),
 	),
 	'b', suffix(
-		( rec('200','k') && rec('200','f') ) ? ' / ' : 
-		( rec('200','k') && rec('200','c') ) ? '. '  : 
+		( rec('200','k') && rec('200','f') ) ? ' /' : 
+		( rec('200','k') && rec('200','c') ) ? '.'  : 
 			'',
 			rec('200','k'),
 	),
 	'c', suffix(
-		( rec('200','f') && rec('200','c') ) ? '. ' :
+		( rec('200','f') && rec('200','c') ) ? '.' :
 			'',
-			rec('200','f'),
+			join_with(' ; ',
+				rec('200','f'),
+				rec('200','g')
+			)
+	),
+	'+', suffix('.',
+		rec('200','c'),
 	),
-	'+', rec('200','c'),
 );
 
 #marc_compose('245',
@@ -390,9 +439,6 @@
 #);
 
 
-
-
-
 ### 250
 # zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti
 
@@ -405,8 +451,6 @@
 	'b', rec('205','f'),
 );
 
-
-
 ### 260
 # ponovljiva potpolja u originalnom redosljedu
 
@@ -451,8 +495,8 @@
 # brojčani podaci za nakladničku cjelinu
 # ???
 
-### 440
-# 2.ind. prema jeziku i članu
+### 440 - indikatori
+# 2.ind. prema jeziku i članu, provjeriri
 
 marc_indicators('440', ' ', '0');
 
@@ -472,8 +516,49 @@
 
 #_debug(3);
 
-marc_original_order('440','225');
+### 440
+## marc_compose radi samo kad polje ni potpolja nisu ponovljivi
+
+marc_compose('440',
+	'a', suffix(
+		( rec('225','v') ) ? ' ;' :
+		( rec('225','w') ) ? ' ; ' :
+		( rec('225','x') ) ? ',' :
+		( rec('225','h') || rec('225','i') ) ? '.' :
+			'.',
+			frec('225','a')
+	),
+	'x',suffix(
+		( rec('225','x') && ( rec('225','h') || rec('225','i') ) ) ? '.' :
+			'',
+			frec('225','x')
+	),
+	'v',suffix(
+		( rec('225','v') && ( rec('225','h') || rec('225','i') ) ) ? '.' :
+		( rec('225','v') && rec('225','w') ) ? ' ; ' :
+			'',
+			frec('225','v')
+	),
+	'n',suffix(
+		( rec('225','h') && rec('225','i') ) ? ',' :
+		( rec('225','h') && rec('225','w') ) ? ' ; ' :
+			'',
+			frec('225','h')
+	),
+	'p',suffix(
+		( rec('225','i') && rec('225','w') ) ? ' ; ' :
+		( rec('225','i') && rec('225','x') ) ? ',' :
+			'',
+			frec('225','i')
+	),
+## 225w treba ici u 440v, na kraj
+	'+', join_with(' ; ',
+		rec('225','w'),
+	)
+);
+
 
+#marc_original_order('440','225');
 
 #marc_compose('440',
 #	'a', suffix(
@@ -826,8 +911,8 @@
 } else {
 
 $series = join_with('',
-	config(),
-	'LS',
+	uc( config() ),
+	' LS',
 	rec('000')
 );