--- trunk/conf/normalize/ff-nakladnicka.pl	2007/02/04 12:20:54	794
+++ trunk/conf/normalize/ff-nakladnicka.pl	2007/02/04 12:37:42	795
@@ -1,19 +1,20 @@
 if (
 	rec('225','a')	# da li je nakladnicka cjelina?
-	&&		# i
-	count( lookup(
-		sub { 1 },
-		'ffsf','blibri',
-		sub {
-			join_with('',
-				rec('225','a'),
-				rec('210','a'),
-				rec('210','b'),
-			)
-		}
-	) ) > 1
+#	&&		# i
+#	count( lookup(
+#		sub { 1 },
+#		'ffsf','blibri',
+#		sub {
+#			join_with('',
+#				rec('225','a'),
+#				rec('210','a'),
+#				rec('210','b'),
+#			)
+#		}
+#	) ) > 1
 ) {
 
+
 my $series_key =
 join_with('',
 	rec('225','a'),
@@ -39,7 +40,7 @@
 # Leader
 marc_leader('05','n');
 marc_leader('06','a');
-marc_leader('07','s');
+marc_leader('07','c');
 marc_leader('18','i');
 
 marc('035','6', $series );
@@ -66,13 +67,13 @@
 
 marc_indicators('245', 0, 0);
 
-if ( 	( rec('200','a') =~ m/^Die /) || 
-	( rec('200','a') =~ m/^Das /) || 
-	( rec('200','a') =~ m/^The /) ) {
+if ( 	( rec('225','a') =~ m/^Die /) || 
+	( rec('225','a') =~ m/^Das /) || 
+	( rec('225','a') =~ m/^The /) ) {
 		marc_indicators('245', 0, 4);
 } 
 
-if ( 	( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
+if ( 	( rec('225','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
 	{
 		marc_indicators('245', 0, 2);
 } 
@@ -86,6 +87,10 @@
 	),
 );
 
+marc('245','c',
+	rec('225','f')
+);
+
 marc('245','n',
 	rec('225','h'),
 );
@@ -121,6 +126,7 @@
 	)
 );
 
+
 marc_duplicate();
 marc_remove('*');