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 tag('VolumeDesignation',
  52         rec('200','v')
  53 );
  54
  55 tag('EditionStatement',
  56         rec('205','a')
  57 );
  58
  59 tag('SerialNo',
  60         rec('207','a')
  61 );
  62
  63 tag('fond',
  64         rec('209','a')
  65 );
  66
  67 tag('PlacePublication',
  68         rec('210','a')
  69 );
  70
  71 tag('NamePublisher',
  72         rec('210','c')
  73 );
  74
  75 tag('DatePublication',
  76         rec('210','d')
  77 );
  78
  79 tag('PhysicalDescription',
  80         join_with(" : ",
  81                 rec('215','a'),
  82                 join_with(" ; ",
  83                         rec('215','c'),
  84                         rec('215','d'),
  85                 )
  86         )
  87 );
  88
  89 tag('MaterialDesignation',
  90         rec('215','a')
  91 );
  92
  93 tag('PhysicalDetails',
  94         rec('215','c')
  95 );
  96
  97 tag('AccompanyingMaterial',
  98         rec('215','e')
  99 );
 100
 101 tag('Series',
 102         join_with(" = ", rec('225','a'),
 103                 join_with(" : ", rec('225','d'),
 104                         join_with(" ; ", rec('225','e'),
 105                                 join_with(". ", rec('225','v'),
 106                                         join_with(", ", rec('225','h'),
 107                                                 join_with(" ; ", rec('225','i'),
 108                                                         rec('225','w'),
 109                                                 )
 110                                         )
 111                                 )
 112                         )
 113                 )
 114         )
 115 );
 116
 117 tag('SeriesTitle',
 118         rec('225','a')
 119 );
 120
 121 tag('GeneralNote',
 122         rec('300')
 123 );
 124
 125 tag('EditionNote',
 126         rec('305')
 127 );
 128
 129 tag('PhysicalDescriptionNote',
 130         rec('307')
 131 );
 132
 133 tag('IntellectResponsNote',
 134         rec('314')
 135 );
 136
 137 tag('InternalBibliographies',
 138         rec('320')
 139 );
 140
 141 tag('Frequency',
 142         rec('326')
 143 );
 144
 145 tag('ContentsNote',
 146         rec('327')
 147 );
 148
 149 tag('Summary',
 150         rec('330')
 151 );
 152
 153 tag('SystemRequirements',
 154         rec('337')
 155 );
 156
 157 tag('IssuedWith',
 158         join_with(': ', rec(423,'z'),
 159                 join_with(' / ', rec(423,'a'),
 160                         join_with(' ', rec(423,'c'),
 161                                 rec(423,'b')
 162                         )
 163                 )
 164         )
 165 );
 166
 167 display('Parts',
 168         lookup(
 169                 prefix( 'dio-jzav:', rec(900) )
 170         )
 171 );
 172
 173 search('Parts',
 174         lookup(
 175                 prefix( 'id-dio-jzav:', rec(900) )
 176         )
 177 );
 178
 179 display('PartsEF',
 180         lookup(
 181                 prefix( 'naslov-efzg:001', rec('001') )
 182         )
 183 );
 184
 185 tag('PartsID',
 186         rec('463','1')
 187 );
 188
 189 tag('Piece',
 190         lookup(
 191                 prefix( 'naslov-efzg:',
 192                         first(
 193                                 rec(463,1)
 194                         )
 195                 )
 196         )
 197 );
 198
 199 tag('PieceSubtitle',
 200         lookup(
 201                 prefix( 'podnaslov-efzg:',
 202                         first(
 203                                 rec(463,1)
 204                         )
 205                 )
 206         )
 207 );
 208
 209 tag('PieceNum',
 210         rec('463','v')
 211 );
 212
 213 tag('PieceAnalitic',
 214         join_with(' / ',
 215                 rec('464','a'),
 216                 join_with(' ',
 217                         rec(464,'g'),
 218                         rec(464,'f'),
 219                 )
 220         )
 221 );
 222
 223 tag('UniformHeading',
 224         join_with('. ',
 225                 rec(500,'a'),
 226                 rec(500,'b'),
 227         )
 228 );
 229
 230 tag('ExpandedTitle',
 231         rec(532)
 232 );
 233
 234 tag('Form',
 235         rec(608)
 236 );
 237
 238 tag('UncontroledTerms',
 239         rec(610)
 240 );
 241
 242 tag('UDC',
 243         rec(675)
 244 );
 245
 246 tag('APACC',
 247         rec(686)
 248 );
 249
 250 tag('PersonalNamePrim',
 251         join_with(', ',
 252                 rec(700,'a'),
 253                 rec(700,'b'),
 254         )
 255 );
 256
 257 tag('PersonalNameSec',
 258         join_with(', ',
 259                 rec(701,'a'),
 260                 rec(701,'b'),
 261         )
 262 );
 263
 264 tag('PersonalNameOth',
 265         join_with(', ',
 266                 rec(702,'a'),
 267                 rec(702,'b'),
 268         )
 269 );
 270
 271 search('Names',
 272         rec(700),
 273         rec(701),
 274         rec(702),
 275 );
 276
 277 tag('CorporateNamePrim',
 278         join_with(', ',
 279                 rec(710,'a'),
 280                 rec(710,'b'),
 281         )
 282 );
 283
 284 tag('CorporateNameSec',
 285         join_with(', ',
 286                 rec(711,'a'),
 287                 rec(711,'b'),
 288         )
 289 );
 290
 291 tag('OriginatingSource',
 292         rec(801)
 293 );
 294
 295 tag('URL',
 296         rec(856,'u')
 297 );
 298
 299 tag('level',
 300         rec(909)
 301 );
 302
 303 tag('ID',
 304         rec(900)
 305 );
 306
 307 tag('CallNo',
 308         rec(990)
 309 );
 310
 311 tag('InvNo',
 312         rec(991)
 313 );
 314
 315
 316
 317
 318
 319