--- trunk/conf/normalize/minimal.pl	2007/01/30 18:23:53	792
+++ trunk/conf/normalize/minimal.pl	2007/03/02 00:34:22	805
@@ -22,62 +22,10 @@
 
 marc_indicators('245', 1, 0);
 
-if ( 	( rec('200','a') =~ m/^Die /) || 
-	( rec('200','a') =~ m/^Das /) || 
-	( rec('200','a') =~ m/^The /) ) {
-		marc_indicators('245', 1, 4);
-} 
-
-if ( 	( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
-	{
-		marc_indicators('245', 1, 2);
-} 
-
-
-### 245
-# redoslijed polja
-
-#_debug(3);
-marc_compose('245',
-	'a', suffix(
-		rec('200','b') ? '. '	:
-		rec('200','k') ? ' ; '	:
-		rec('200','d') ? ' = '	:
-		rec('200','e') ? ' : '	:
-		rec('200','f') ? ' / '	:
-				 '.',
-			rec('200','a')
-	),
-#	'h', rec('200','b'),
-	'b', suffix(
-		( rec('200','k') && rec('200','f') ) ? ' / ' :
-				     ' ',
-			join_with(' ; ',
-				rec('200','k'),
-			),
-	),
-	'b', suffix(
-		( rec('200','d') && rec('200','f') ) ? ' / ' :
-						       ' ',
-				rec('200','d'), 
-	),
-	'b', suffix(
-		( rec('200','e') && rec('200','f') ) ? ' / ' :
-						       ' ',
-			join_with(' : ',
-				rec('200','e'),
-			),
-	),
-
-	'c', rec('200','f'),
-
-# append to last subfield
-	'+', prefix('. ', 
-		rec('200','c') 
-	),
+marc('245','a',
+	rec('200','a')
 );
 
-
 marc('260','c',
 	rec('210','d')