--- trunk/conf/normalize/ff-libri.pl	2007/03/04 13:03:11	806
+++ trunk/conf/normalize/ff-libri.pl	2007/04/01 12:26:25	807
@@ -91,8 +91,8 @@
 # to ima samo za književna djela, eseje.... 
 
 
-if ( rec('675') =~ m/\d=\d/ ) {
-#if ( first(rec('300')) =~ m/Prijevod/ || first(rec('300')) =~ m/Izv. stv. nasl./ ) {
+#if ( rec('675') =~ m/\d=\d/ ) {
+if ( first(rec('300')) =~ m/Prijevod/ || first(rec('300')) =~ m/Izv. stv. nasl./ ) {
 	marc_indicators('041', 1, ' ');
 } else {
 	marc_indicators('041', 0, ' ');
@@ -110,7 +110,7 @@
 
 
 ### 080
-# 675 podpolja c, d ... - što s njima ???
+# 675 podpolja b, c, d ... - što s njima ???
 
 marc('080','a',
 	rec('675','a')
@@ -130,7 +130,12 @@
 ### 100
 # I1 = 0 ako je pseudonim (ima 700a, nema 700b)
 
-marc_indicators('100', 1, ' ');
+if ( rec('700','a') && ! rec('700','b') ) {
+	marc_indicators('100', 0, ' ');
+} else {
+	marc_indicators('100', 1, ' ');
+}
+
 marc('100','a',
 	join_with(', ',
 		rec('700', 'a'),
@@ -183,8 +188,11 @@
 		marc_indicators('245', 1, 4);
 } 
 
-if ( 	( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
-	{
+if ( 	( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
+		marc_indicators('245', 1, 2);
+} 
+
+if ( 	( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
 		marc_indicators('245', 1, 2);
 } 
 
@@ -549,9 +557,9 @@
 # 	rec('200','c')
 # );
 
- marc('740','a',
- 	rec('200','k')
- );
+marc('740','a',
+	rec('200','k')
+);
 
 # } else {
 
@@ -577,7 +585,6 @@
 	marc('760','w',
 		get( $series_key )
 	);
-
 }
 
 ### testing