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

   1 marc('001',
   2         rec('000')
   3 );
   4
   5 marc('020','a',
   6         rec('010')
   7 );
   8
   9 if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
  10         marc_indicators('041', 1, ' ');
  11 } else {
  12         marc_indicators('041', 0, ' ');
  13 }
  14
  15 marc_repeatable_subfield('041','a',
  16         rec('101')
  17 );
  18
  19 marc_indicators('245', 0, 0);
  20
  21 marc('245','a',
  22         rec('200','a')
  23 );
  24
  25 marc('245','b',
  26         join_with(' : ',
  27                 rec('200','d'),
  28                 rec('200','e')
  29         )
  30 );
  31
  32 marc('245','c',
  33         join_with(' ; ',
  34                 rec('200','f'),
  35                 rec('200','g')
  36         )
  37 );
  38
  39 marc('250','a',
  40         rec('205','a')
  41 );
  42
  43 marc('260','a',
  44         rec('210','a')
  45 );
  46
  47 marc('260','b',
  48         rec('210','c')
  49 );
  50
  51 marc('260','c',
  52         rec('210','d')
  53 );
  54
  55 marc('300','a',
  56         rec('215','a')
  57 );
  58
  59 marc('300','b',
  60         rec('215','c')
  61 );
  62
  63 marc('300','c',
  64         rec('215','d')
  65 );
  66
  67 marc('300','e',
  68         rec('215','e')
  69 );
  70
  71 marc('490','a',
  72         join_with(' = ',
  73                 rec('225','a'),
  74                 join_with(" :  ",
  75                         rec('225','d'),
  76                         join_with(" / ",
  77                                 rec('225','e'),
  78                                 rec('225','f')
  79                         )
  80                 )
  81         )
  82 );
  83
  84 marc('490','v',
  85         rec('225','v')
  86 );
  87
  88 marc('500','a',
  89         rec('300')
  90 );
  91
  92 marc('504','a',
  93         rec('320')
  94 );
  95
  96 marc_indicators('655', ' ', 4);
  97 marc('655','a',
  98         rec('610')
  99 );
 100
 101 marc_indicators('100', 1, ' ');
 102 marc('100','a',
 103         join_with(', ',
 104                 rec('700', 'a'),
 105                 rec('700', 'b')
 106         )
 107 );
 108
 109
 110 marc_indicators('700', 1, ' ');
 111 marc('700','a',
 112         join_with(', ',
 113                 rec('701', 'a'),
 114                 rec('701', 'b')
 115         )
 116 );
 117
 118 if ( rec('701') ) {
 119         marc('700','4',
 120                 '070'
 121         );
 122 }
 123
 124 marc('700','a',
 125         join_with(', ',
 126                 rec('702','a'),
 127                 rec('702','b')
 128         )
 129 );
 130
 131 if ( rec('702') ) {
 132         marc('700','4',
 133                 '340'
 134         );
 135 }
 136
 137
 138