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 tag('PartsID',
 176         rec('463','1')
 177 );
 178
 179 tag('PieceNum',
 180         rec('463','v')
 181 );
 182
 183 tag('PieceAnalitic',
 184         join_with(' / ',
 185                 rec('464','a'),
 186                 join_with(' ',
 187                         rec(464,'g'),
 188                         rec(464,'f'),
 189                 )
 190         )
 191 );
 192
 193 tag('UniformHeading',
 194         join_with('. ',
 195                 rec(500,'a'),
 196                 rec(500,'b'),
 197         )
 198 );
 199
 200 tag('ExpandedTitle',
 201         rec(532)
 202 );
 203
 204 tag('Form',
 205         rec(608)
 206 );
 207
 208 tag('UncontrolledTerms',
 209         rec(610)
 210 );
 211
 212 search('UDC_All',
 213         rec(675),
 214 );
 215
 216 tag('UDC',
 217         rec(675)
 218 );
 219
 220 tag('APACC',
 221         rec(686)
 222 );
 223
 224 tag('PersonalNamePrim',
 225         join_with(', ',
 226                 rec(700,'a'),
 227                 rec(700,'b'),
 228         )
 229 );
 230
 231 tag('PersonalNameSec',
 232         join_with(', ',
 233                 rec(701,'a'),
 234                 rec(701,'b'),
 235         )
 236 );
 237
 238 tag('PersonalNameOther',
 239         join_with(', ',
 240                 rec(702,'a'),
 241                 rec(702,'b'),
 242         )
 243 );
 244
 245 search('Names',
 246         rec(700),
 247         rec(701),
 248         rec(702),
 249 );
 250
 251 tag('CorporateNamePrim',
 252         join_with(', ',
 253                 rec(710,'a'),
 254                 rec(710,'b'),
 255         )
 256 );
 257
 258 tag('CorporateNameSec',
 259         join_with(', ',
 260                 rec(711,'a'),
 261                 rec(711,'b'),
 262         )
 263 );
 264
 265 tag('OriginatingSource',
 266         rec(801)
 267 );
 268
 269 tag('URL',
 270         rec(856,'u')
 271 );
 272
 273 tag('level',
 274         rec(909)
 275 );
 276
 277 tag('ID',
 278         rec(900)
 279 );
 280
 281 search('Set',
 282         rec(946,1),
 283         rec(461,1),
 284 );
 285
 286 tag('CallNo',
 287         rec(990)
 288 );
 289
 290 tag('InvNo',
 291         rec(991)
 292 );
 293
 294 1;