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

   1 tag('MFN',
   2         rec('000')
   3 );
   4
   5 display('ISBN',
   6         rec1('10'),
   7         rec('010','a')
   8 );
   9
  10 display('ISBN_information',
  11         rec('010','b')
  12 );
  13
  14 display('ISBN_incorrect',
  15         rec('010','z')
  16 );
  17
  18 display('ISSN',
  19         rec1('11'),
  20         rec('011','a')
  21 );
  22
  23 display('ISSN_incorrect',
  24         rec('011','z')
  25 );
  26
  27 display('ISSN_cancelled',
  28         rec('011','y')
  29 );
  30
  31 search('ISN',
  32         rec('10'),
  33         rec('010'),
  34         rec('11'),
  35         rec('011'),
  36 );
  37
  38 tag('LanguageText',
  39         rec(101,'a')
  40 );
  41
  42 tag('LanguageOriginal',
  43         join_with(', ',
  44                 rec(101,'b'),
  45                 rec(101,'d')
  46         )
  47 );
  48
  49 tag('TitleProper',
  50         regex( 's/<[^>]*>//g',
  51                 rec(200,'a')
  52         )
  53 );
  54
  55 tag('Medium',
  56         rec(200,'b')
  57 );
  58
  59 tag('AnotherAuthorTitle',
  60         prefix('. ',
  61                 rec(200,'c')
  62         )
  63 );
  64
  65 tag('ReminderTitle',
  66         join_with(' : ',
  67                 prefix(' = ',
  68                         rec(200,'d')
  69                 ),
  70                 rec(200,'e')
  71         )
  72 );
  73
  74 tag('StatementResponsibility',
  75         join_with(" ; ",
  76                 rec(200,'f'),
  77                 rec(200,'g')
  78         )
  79 );
  80
  81 tag('NumberPart',
  82         rec(200,'h'),
  83         rec(200,'v')
  84 );
  85
  86 tag('NamePart',
  87         rec(200,'i')
  88 );
  89
  90 tag('EditionStatement',
  91         join_with(', ',
  92                 rec(205,'a'),
  93                 join_with(' = ',
  94                         rec(205,'b'),
  95                         rec(205,'d')
  96                 )
  97         )
  98 );
  99
 100 tag('StatementScale',
 101         rec(206,'a')
 102 );
 103
 104 tag('SerialsNumberingDateVol',
 105         rec(207,'a')
 106 );
 107
 108 tag('SerialsNumberingSource',
 109         rec(207,'z')
 110 );
 111
 112 tag('fond',
 113         rec('209','a')
 114 );
 115
 116 tag('PlacePublication',
 117         rec('210','a')
 118 );
 119
 120 tag('NamePublisher',
 121         rec(210,'c'),
 122         surround(' (', ')', rec(210,'b') )
 123 );
 124
 125 tag('DatePublication',
 126         rec('210','d')
 127 );
 128
 129 tag('PlaceManufacture',
 130         rec(210,'e')
 131 );
 132
 133 tag('NameManufacturer',
 134         rec('210','g'),
 135         surround(' (', ') ', rec(210,'f') )
 136 );
 137
 138 tag('DateManufacture',
 139         rec(210,'h')
 140 );
 141
 142 tag('ExtentItem',
 143         rec(215,'a')
 144 );
 145
 146 tag('OtherPhysicalDetails',
 147         rec(215,'c')
 148 );
 149
 150 tag('Dimensions',
 151         rec(215,'d')
 152 );
 153
 154 tag('AccompanyingMaterial',
 155         rec(215,'e')
 156 );
 157
 158 tag('SeriesStatement',
 159         join_with(" = ",
 160                 rec('225','a'),
 161                 join_with(" : ",
 162                         rec('225','d'),
 163                         join_with(" / ",
 164                                 rec('225','e'),
 165                                 rec('225','f'),
 166                         )
 167                 )
 168         )
 169 );
 170
 171 tag('VolumeNumber',
 172         join_with(', ',
 173                 rec(225,'h'),
 174                 rec(225,'i'),
 175                 rec(225,'v')
 176         )
 177 );
 178
 179 tag('SeriesISSN',
 180         rec(225,'x')
 181 );
 182
 183 tag('ComputerFileCharacteristics',
 184         rec(230,'a')
 185 );
 186
 187 tag('GeneralNote',
 188         rec('300')
 189 );
 190
 191 tag('InternalBibliographiesNote',
 192         rec('320')
 193 );
 194
 195 tag('FrequencyNote',
 196         first(
 197                 rec('326')
 198         )
 199 );
 200
 201 tag('ContentsNote',
 202         rec('327')
 203 );
 204
 205 tag('Summary',
 206         rec('330')
 207 );
 208
 209 tag('SystemDetailsNote',
 210         rec('337')
 211 );
 212
 213 tag('IssuedWith',
 214         join_with(': ', rec(423,'z'),
 215                 join_with(' / ', rec(423,'a'),
 216                         join_with(' ', rec(423,'c'),
 217                                 rec(423,'b')
 218                         )
 219                 )
 220         )
 221 );
 222
 223 display('parts',
 224         lookup(
 225                 prefix( 'dio-jzav:', rec(900) )
 226         )
 227 );
 228
 229 search('parts',
 230         lookup(
 231                 prefix( 'id-dio-jzav:', rec(900) )
 232         )
 233 );
 234
 235 display('partsEF',
 236         lookup(
 237                 prefix( 'naslov-efzg:001', rec('001') )
 238         )
 239 );
 240
 241 tag('partsID',
 242         rec('463','1')
 243 );
 244
 245 tag('piece',
 246         lookup(
 247                 prefix( 'naslov-efzg:',
 248                         first(
 249                                 rec(463,1)
 250                         )
 251                 )
 252         )
 253 );
 254
 255 tag('pieceSubtitle',
 256         lookup(
 257                 prefix( 'podnaslov-efzg:',
 258                         first(
 259                                 rec(463,1)
 260                         )
 261                 )
 262         )
 263 );
 264
 265 tag('pieceNum',
 266         rec('463','v')
 267 );
 268
 269 tag('pieceAnalitic',
 270         join_with(' / ',
 271                 rec('464','a'),
 272                 join_with(' ',
 273                         rec(464,'g'),
 274                         rec(464,'f'),
 275                 )
 276         )
 277 );
 278
 279 tag('UniformTitle',
 280         rec(500,'a'),
 281         surround(' [', ']', rec(500,'b') )
 282 );
 283
 284 tag('VariantAccessTitle',
 285         rec(532)
 286 );
 287
 288 tag('SubjectForm',
 289         rec(608)
 290 );
 291
 292 tag('UncontrolledTerms',
 293         rec(610)
 294 );
 295
 296 tag('UDC',
 297         rec(675)
 298 );
 299
 300 tag('OtherCassification',
 301         rec(686)
 302 );
 303
 304 tag('PersonalNamePrim',
 305         join_with(', ',
 306                 rec(700,'a'),
 307                 rec(700,'b'),
 308         )
 309 );
 310
 311 tag('PersonalNameAdded',
 312         join_with(', ',
 313                 rec(701,'a'),
 314                 rec(701,'b'),
 315         ),
 316         join_with(', ',
 317                 rec(702,'a'),
 318                 rec(702,'b')
 319         )
 320 );
 321
 322 search('names',
 323         rec(700),
 324         rec(701),
 325         rec(702),
 326 );
 327
 328 tag('CorporateNamePrim',
 329         join_with(', ',
 330                 rec(710,'a'),
 331                 rec(710,'b'),
 332         )
 333 );
 334
 335 tag('CorporateNameAdded',
 336         join_with(', ',
 337                 rec(711,'a'),
 338                 rec(711,'b'),
 339         )
 340 );
 341
 342 tag('CatalogingSource',
 343         rec(801)
 344 );
 345
 346 tag('ElectronicLocation',
 347         rec(856,'u')
 348 );
 349
 350 tag('level',
 351         rec(909)
 352 );
 353
 354 tag('id',
 355         rec(900)
 356 );
 357
 358 display('set',
 359         lookup(
 360                 prefix( 'set-jzav:',
 361                         rec(946,1),
 362                 )
 363         ),
 364         lookup(
 365                 prefix( 'set-efzg:',
 366                         rec(461,1),
 367                 )
 368         )
 369 );
 370
 371 search('set',
 372         rec(946,1),
 373         rec(461,1),
 374 );
 375
 376 tag('set2',
 377         lookup(
 378                 prefix( 'set-jzav:',
 379                         lookup( 'parent-id:',
 380                                 rec(946,1)
 381                         )
 382                 )
 383         )
 384 );
 385
 386 tag('ShelvingControlNumber',
 387         rec(990)
 388 );
 389
 390 tag('InternalItemNumber',
 391         rec(991,'b'),
 392         rec1(991)
 393 );
 394
 395