git.rot13.org Git - webpac2/blob - t/data/normalize.pl

   1 tag('MFN',
   2         rec('000')
   3 );
   4
   5 display('ISBN',
   6         rec('10')
   7 );
   8
   9 display('ISSN',
  10         rec('11')
  11 );
  12
  13 search('ISN',
  14         rec('10'),
  15         rec('11'),
  16 );
  17
  18 tag('Language',
  19         rec('101')
  20 );
  21
  22 tag('TitleProper',
  23         regex( 's/<[^>]*>//g',
  24                 rec('200','a')
  25         )
  26 );
  27
  28 tag('titleNo',
  29         rec('200','9')
  30 );
  31
  32 tag('Subtitle',
  33         rec('200','e')
  34 );
  35
  36 tag('TitleProper2',
  37         rec('200','c')
  38 );
  39
  40 tag('ParallelTitle',
  41         rec('200','d')
  42 );
  43
  44 tag('Responsibility',
  45         join_with(" ; ",
  46                 rec('200','f'),
  47                 rec('200','g')
  48         )
  49 );
  50
  51 display('ResponsibilityFirst',
  52         rec('200','f')
  53 );
  54
  55 display('ResponsibilitySecond',
  56         rec('200','g')
  57 );
  58
  59 tag('VolumeDesignation',
  60         rec('200','v')
  61 );
  62
  63 tag('EditionStatement',
  64         rec('205','a')
  65 );
  66
  67 tag('SerialNo',
  68         rec('207','a')
  69 );
  70
  71 tag('fond',
  72         rec('209','a')
  73 );
  74
  75 tag('PlacePublication',
  76         rec('210','a')
  77 );
  78
  79 tag('NamePublisher',
  80         rec('210','c')
  81 );
  82
  83 tag('DatePublication',
  84         rec('210','d')
  85 );
  86
  87 tag('PhysicalDescription',
  88         join_with(" : ",
  89                 rec('215','a'),
  90                 join_with(" ; ",
  91                         rec('215','c'),
  92                         rec('215','d'),
  93                 )
  94         )
  95 );
  96
  97 tag('MaterialDesignation',
  98         rec('215','a')
  99 );
 100
 101 tag('PhysicalDetails',
 102         rec('215','c')
 103 );
 104
 105 tag('AccompanyingMaterial',
 106         rec('215','e')
 107 );
 108
 109 tag('Series',
 110         join_with(" = ", rec('225','a'),
 111                 join_with(" : ", rec('225','d'),
 112                         join_with(" ; ", rec('225','e'),
 113                                 join_with(". ", rec('225','v'),
 114                                         join_with(", ", rec('225','h'),
 115                                                 join_with(" ; ", rec('225','i'),
 116                                                         rec('225','w'),
 117                                                 )
 118                                         )
 119                                 )
 120                         )
 121                 )
 122         )
 123 );
 124
 125 tag('SeriesTitle',
 126         rec('225','a')
 127 );
 128
 129 tag('GeneralNote',
 130         rec('300')
 131 );
 132
 133 tag('EditionNote',
 134         rec('305')
 135 );
 136
 137 tag('PhysicalDescriptionNote',
 138         rec('307')
 139 );
 140
 141 tag('IntellectResponsNote',
 142         rec('314')
 143 );
 144
 145 tag('InternalBibliographies',
 146         rec('320')
 147 );
 148
 149 tag('Frequency',
 150         rec('326')
 151 );
 152
 153 tag('ContentsNote',
 154         rec('327')
 155 );
 156
 157 tag('Summary',
 158         rec('330')
 159 );
 160
 161 tag('SystemRequirements',
 162         rec('337')
 163 );
 164
 165 tag('IssuedWith',
 166         join_with(': ', rec(423,'z'),
 167                 join_with(' / ', rec(423,'a'),
 168                         join_with(' ', rec(423,'c'),
 169                                 rec(423,'b')
 170                         )
 171                 )
 172         )
 173 );
 174
 175 display('Parts',
 176         lookup(
 177                 prefix( 'dio-jzav:', rec(900) )
 178         )
 179 );
 180
 181 search('Parts',
 182         lookup(
 183                 prefix( 'id-dio-jzav:', rec(900) )
 184         )
 185 );
 186
 187 display('PartsEF',
 188         lookup(
 189                 prefix( 'naslov-efzg:001', rec('001') )
 190         )
 191 );
 192
 193 tag('PartsID',
 194         rec('463','1')
 195 );
 196
 197 tag('Piece',
 198         lookup(
 199                 prefix( 'naslov-efzg:',
 200                         first(
 201                                 rec(463,1)
 202                         )
 203                 )
 204         )
 205 );
 206
 207 tag('PieceSubtitle',
 208         lookup(
 209                 prefix( 'podnaslov-efzg:',
 210                         first(
 211                                 rec(463,1)
 212                         )
 213                 )
 214         )
 215 );
 216
 217 tag('PieceNum',
 218         rec('463','v')
 219 );
 220
 221 tag('PieceAnalitic',
 222         join_with(' / ',
 223                 rec('464','a'),
 224                 join_with(' ',
 225                         rec(464,'g'),
 226                         rec(464,'f'),
 227                 )
 228         )
 229 );
 230
 231 tag('UniformHeading',
 232         join_with('. ',
 233                 rec(500,'a'),
 234                 rec(500,'b'),
 235         )
 236 );
 237
 238 tag('ExpandedTitle',
 239         rec(532)
 240 );
 241
 242 tag('Form',
 243         rec(608)
 244 );
 245
 246 tag('UncontrolledTerms',
 247         rec(610)
 248 );
 249
 250 search('UDC_All',
 251         rec(675),
 252 );
 253
 254 tag('UDC',
 255         rec(675)
 256 );
 257
 258 tag('APACC',
 259         rec(686)
 260 );
 261
 262 tag('PersonalNamePrim',
 263         join_with(', ',
 264                 rec(700,'a'),
 265                 rec(700,'b'),
 266         )
 267 );
 268
 269 tag('PersonalNameSec',
 270         join_with(', ',
 271                 rec(701,'a'),
 272                 rec(701,'b'),
 273         )
 274 );
 275
 276 tag('PersonalNameOther',
 277         join_with(', ',
 278                 rec(702,'a'),
 279                 rec(702,'b'),
 280         )
 281 );
 282
 283 search('Names',
 284         rec(700),
 285         rec(701),
 286         rec(702),
 287 );
 288
 289 tag('CorporateNamePrim',
 290         join_with(', ',
 291                 rec(710,'a'),
 292                 rec(710,'b'),
 293         )
 294 );
 295
 296 tag('CorporateNameSec',
 297         join_with(', ',
 298                 rec(711,'a'),
 299                 rec(711,'b'),
 300         )
 301 );
 302
 303 tag('OriginatingSource',
 304         rec(801)
 305 );
 306
 307 tag('URL',
 308         rec(856,'u')
 309 );
 310
 311 tag('level',
 312         rec(909)
 313 );
 314
 315 tag('ID',
 316         rec(900)
 317 );
 318
 319 display('Set',
 320         lookup(
 321                 prefix( 'set-jzav:',
 322                         rec(946,1),
 323                 )
 324         ),
 325         lookup(
 326                 prefix( 'set-efzg:',
 327                         rec(461,1),
 328                 )
 329         )
 330 );
 331
 332 search('Set',
 333         rec(946,1),
 334         rec(461,1),
 335 );
 336
 337 tag('Set2',
 338         lookup(
 339                 prefix( 'set-jzav:',
 340                         lookup( 'parent-id:',
 341                                 rec(946,1)
 342                         )
 343                 )
 344         )
 345 );
 346
 347 tag('CallNo',
 348         rec(990)
 349 );
 350
 351 tag('InvNo',
 352         rec(991)
 353 );
 354
 355 1;