local

[webpac2] / conf / normalize / minimal.pl

diff --git a/conf/normalize/minimal.pl b/conf/normalize/minimal.pl
index 3ceb8ed..27b00d1 100644 (file)
--- a/conf/normalize/minimal.pl
+++ b/conf/normalize/minimal.pl
@@ -22,62 +22,10 @@ marc('022','a',
 
 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')