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

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