git.rot13.org Git - webpac2/blob - conf/normalize/minimal.pl

   1
   2 if ( rec('200') ) {
   3
   4 marc('035','6',
   5 join_with('',
   6                 config(),
   7                 'L',
   8                 rec('000')
   9         )
  10 );
  11
  12
  13 marc('020','a',
  14         rec('10')
  15 );
  16
  17
  18 marc('022','a',
  19         rec('11','a')
  20 );
  21
  22
  23 marc_indicators('245', 1, 0);
  24
  25 if (    ( rec('200','a') =~ m/^Die /) ||
  26         ( rec('200','a') =~ m/^Das /) ||
  27         ( rec('200','a') =~ m/^The /) ) {
  28                 marc_indicators('245', 1, 4);
  29 }
  30
  31 if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
  32         {
  33                 marc_indicators('245', 1, 2);
  34 }
  35
  36
  37 ### 245
  38 # redoslijed polja
  39
  40 #_debug(3);
  41 marc_compose('245',
  42         'a', suffix(
  43                 rec('200','b') ? '. '   :
  44                 rec('200','k') ? ' ; '  :
  45                 rec('200','d') ? ' = '  :
  46                 rec('200','e') ? ' : '  :
  47                 rec('200','f') ? ' / '  :
  48                                  '.',
  49                         rec('200','a')
  50         ),
  51 #       'h', rec('200','b'),
  52         'b', suffix(
  53                 ( rec('200','k') && rec('200','f') ) ? ' / ' :
  54                                      ' ',
  55                         join_with(' ; ',
  56                                 rec('200','k'),
  57                         ),
  58         ),
  59         'b', suffix(
  60                 ( rec('200','d') && rec('200','f') ) ? ' / ' :
  61                                                        ' ',
  62                                 rec('200','d'),
  63         ),
  64         'b', suffix(
  65                 ( rec('200','e') && rec('200','f') ) ? ' / ' :
  66                                                        ' ',
  67                         join_with(' : ',
  68                                 rec('200','e'),
  69                         ),
  70         ),
  71
  72         'c', rec('200','f'),
  73
  74 # append to last subfield
  75         '+', prefix('. ',
  76                 rec('200','c')
  77         ),
  78 );
  79
  80
  81 marc('260','c',
  82         rec('210','d')
  83
  84 );
  85
  86 }