git.rot13.org Git - webpac2/blob - conf/normalize/isis_ffzg.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('IdentificationNumbers',
  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( 'nazlov-efzg:',
 200                         first(
 201                                 rec(463,1)
 202                         )
 203                 )
 204         )
 205 );
 206
 207 tag('PieceSubtitle',
 208         lookup(
 209                 prefix( 'podnazlov-efzg:',
 210                         first(
 211                                 rec(463,1)
 212                         )
 213                 )
 214         )
 215 );
 216
 217 tag('PieceNum',
 218         rec('463','v')
 219 );