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

   1 # Leader
   2 #
   3 # if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
   4 #       marc_leader('05','c');
   5 # } else {
   6 #       marc_leader('05','n');
   7 # }
   8 #
   9 # marc_leader('06','a');
  10 #
  11 # marc_leader('07','m');
  12 #
  13 # marc_leader('18','i');
  14 #
  15 # if ( rec('230') ) {
  16 #       marc_leader('19','r');
  17 # }
  18
  19
  20
  21 # gre¹ka! - 000 se ne zapisuje u marc:
  22
  23 marc('001',
  24         rec('000')
  25 );
  26
  27 marc('020','a',
  28         rec('010')
  29 );
  30
  31 if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
  32         marc_indicators('041', 1, ' ');
  33 } else {
  34         marc_indicators('041', 0, ' ');
  35 }
  36
  37 marc_repeatable_subfield('041','a',
  38         rec('101')
  39 );
  40
  41 marc_indicators('245', 0, 0);
  42 marc('245','a',
  43         rec('200','a')
  44 );
  45
  46 marc('245','b',
  47         join_with(' : ',
  48                 rec('200','d'),
  49                 rec('200','e')
  50         )
  51 );
  52
  53 marc('245','c',
  54         join_with(' ; ',
  55                 rec('200','f'),
  56                 rec('200','g')
  57         )
  58 );
  59
  60 marc('250','a',
  61         rec('205','a')
  62 );
  63
  64 marc_compose('260',
  65         'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
  66         'b', first(rec('210','c')),
  67         'a', split_rec_on('210','a', qr/\s*;\s*/, 2),
  68         'c', first(rec('210','d')),
  69 );
  70
  71 marc('300','a',
  72         rec('215','a')
  73 );
  74
  75 marc('300','b',
  76         rec('215','c')
  77 );
  78
  79 marc('300','c',
  80         rec('215','d')
  81 );
  82
  83 marc('300','e',
  84         rec('215','e')
  85 );
  86
  87
  88 marc_indicators('490', 1, ' ');
  89 marc('490','a',
  90         join_with(' = ',
  91                 rec('225','a'),
  92                 join_with(" :  ",
  93                         rec('225','d'),
  94                         join_with(" / ",
  95                                 rec('225','e'),
  96                                 rec('225','f')
  97                         )
  98                 )
  99         )
 100 );
 101
 102 marc('490','v',
 103         join_with(', ',
 104                 rec('225','v'),
 105                 rec('225','w')
 106         )
 107 );
 108
 109 marc('500','a',
 110         rec('300')
 111 );
 112
 113 marc('500','a',
 114         rec('314')
 115 );
 116
 117 marc('504','a',
 118         rec('320')
 119 );
 120
 121 marc('501','a',
 122         rec('327')
 123 );
 124
 125 marc('520','a',
 126         rec('330')
 127 );
 128
 129 # mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik
 130
 131 marc_indicators('655', ' ', 4);
 132 marc('655','a',
 133         rec('608')
 134 );
 135
 136 marc_indicators('653', ' ', ' ');
 137 marc('653','a',
 138         rec('610')
 139 );
 140
 141 marc('080','a',
 142         rec('675','a')
 143 );
 144
 145 # podpolja c, d ... - ¹to s njima?
 146
 147 marc('084','a',
 148         rec('686')
 149 );
 150
 151 marc_indicators('100', 1, ' ');
 152 marc('100','a',
 153         join_with(', ',
 154                 rec('700', 'a'),
 155                 rec('700', 'b')
 156         )
 157 );
 158
 159
 160 marc_indicators('700', 1, ' ');
 161 marc('700','a',
 162         join_with(', ',
 163                 rec('701', 'a'),
 164                 rec('701', 'b')
 165         )
 166 );
 167
 168 if ( rec('701') ) {
 169 marc('700','4',
 170         'aut'
 171 );
 172 }
 173
 174 marc('700','a',
 175         join_with(', ',
 176                 rec('702','a'),
 177                 rec('702','b')
 178         )
 179 );
 180
 181 # podesiti podpolje 4 na editore nije dobra ideja
 182 #
 183 # if ( rec('702') ) {
 184 #       marc('700','4',
 185 #               '340'
 186 #       );
 187 # }
 188
 189 if ( rec('710','f') ) {
 190
 191 marc_indicators('111', 2, ' ');
 192 marc('111','a',
 193         rec('710','a')
 194 );
 195
 196 marc('111','e',
 197         rec('710','b')
 198 );
 199
 200 marc('111','n',
 201         rec('710','d')
 202 );
 203
 204 marc('111','c',
 205         rec('710','e')
 206 );
 207
 208 marc('111','d',
 209         rec('710','f')
 210 );
 211
 212 } else {
 213
 214 marc_indicators('110', 2, ' ');
 215 marc('110','a',
 216         rec('710','a')
 217 );
 218
 219 marc('110','c',
 220         rec('710','c')
 221 );
 222
 223 }
 224
 225 # zapisi za duplanje
 226 #
 227 # if ( rec('230') ) {
 228 #
 229 # marc('245','a',
 230 #       rec('230','a')
 231 # );
 232 #
 233 # marc('245','b',
 234 #       rec('230','e')
 235 # );
 236 #
 237 # marc('245','c',
 238 #       rec('230','f')
 239 # );
 240 #
 241 # marc('245','n',
 242 #       rec('230','v')
 243 # );
 244 #
 245 # }