--- trunk/conf/normalize/ff-libri.pl	2007/02/04 12:20:54	794
+++ trunk/conf/normalize/ff-libri.pl	2007/02/04 12:37:42	795
@@ -1,12 +1,18 @@
+##################################################################################
+## Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne datoteke. ##
+## Ulazni format je CDS/ISIS sa zapisima u UNIMARC-u.                           ##
+##################################################################################
+
+
 # konvertira se ako postoji polje 200^a
 
 if ( rec('200','a') ) {
 
 ### LEADER
 # raspraviti 17,18
-# u nekim knjižnicama koristi se 999a i 999b
+# u nekim knjižnicama koristi se 999a i 999b, a u nekima samo 999
 
-if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
+if ( rec('999') && first(rec('999')) =~ m/(pregledan|P)/i) {
 	marc_leader('05','c');
 } else {
 	marc_leader('05','n');
@@ -303,7 +309,10 @@
 marc('440','a',
 	join_with(' : ',
 		rec('225','a'),
-		rec('225','e')
+		join_with(' / ',
+			rec('225','e'),
+			rec('225','f')
+		)
 	)
 ) ;
 
@@ -356,6 +365,9 @@
 	rec('314')
 );
 
+### 502 - bilješka o disertacijama
+# odgovarajućeg polja nema u originalnim podacima. možda se može pretpostaviti?
+
 ### 504
 
 marc('504','a',
@@ -598,141 +610,6 @@
 #
 
 
-### višerazinci 
-# odvojiti u posebnu datoteku i dokumentirati
-
-
-if ( rec('230') ) {
-
-	marc_duplicate();
-
-	marc_remove('035');
-	marc('035','6',
-		join_with('',
-			config(),
-			rec('000'),
-			'-',
-			id(),
-		)
-	);
-
-
-	marc_remove('245');
-	
-	if ( rec('230','a') ) {
-		marc_compose('245',
-		'a', suffix(
-			rec('230','b') ? '. '	:
-			rec('230','k') ? ' ; '	:
-			rec('230','d') ? ' = '	:
-			rec('230','e') ? ' : '	:
-			rec('230','f') ? ' / '	:
-					 '.',
-				rec('230','a')
-		),
-		'b', 
-			join_with(' ; ',
-				rec('230','k'),
-			),
-		'b', rec('230','d'), 
-		'b', 
-			join_with(' : ',
-				rec('230','e'),
-			),
-		'c', 
-			join_with(' ; ',
-				rec('230','f'),
-			),
-	);
-	
-	} else {
-	
-		marc_compose('245',
-		'a', suffix(
-			rec('230','b') ? '. '	:
-			rec('230','k') ? ' ; '	:
-			rec('230','d') ? ' = '	:
-			rec('230','e') ? ' : '	:
-			rec('230','f') ? ' / '	:
-					 '.',
-				rec('200','a')
-		),
-		'b', 
-			join_with(' ; ',
-				rec('230','k'),
-			),
-		'b', rec('230','d'), 
-		'b', 
-			join_with(' : ',
-				rec('230','e'),
-			),
-		'c', 
-			join_with(' ; ',
-				rec('230','f'),
-			),
-		'n', rec('230','v'),
-	);
-	
-	}
-
-	marc_remove('260');
-
-#	marc_original_order('260', '250');
-
-	marc('260','c',
-		rec1('251')
-	);
-
-
-#	marc('260','a',
-#		rec('251','a')
-#	);
-#	marc('260','b',
-#		rec('251','c')
-#	);
-#	marc('260','c',
-#		rec('251','d'),
-#		rec1('251')
-#	);
-
-	marc_remove('300');
-	marc('300','a',
-		rec('260')
-	);
-
-	marc_remove('440');
-	marc('440','a',
-		rec('270')
-	);
-
-	marc_remove('500');
-	marc('500','a',
-		rec('280')
-	);
-
-	marc_remove('020');
-	marc('020','a',
-		rec('290')
-	);
-
-	marc_indicators('774', 0, ' ');
-	marc('774','g',
-		rec('230','v')
-	);
- 
-	marc('774','t',
-		rec('200','a')
-	);
-	
-	marc('774','w',
-		join_with('',
-			config(),
-			rec('000')
-		)
-	);
-
- 
-}
 
 ##################################
 ##                              ##
@@ -772,4 +649,4 @@
 
 
 
-}
+} # polje 200a