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

   1 # Leader
   2 #
   3
   4 marc_leader('05','n');
   5 marc_leader('06','a');
   6 if ( rec('990') ) {
   7         marc_leader('07','a');
   8 } else {
   9         marc_leader('07','b');
  10 };
  11 marc_leader('18','i');
  12
  13 # privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
  14
  15 #marc('035','6',
  16 #join_with('',
  17 #               config('input normalize path'),
  18 #               config('name'),
  19 #               config('input name'),
  20 #               config(),
  21 #               id(),
  22 #               rec('994','a'),
  23 #               rec('000')
  24 #       )
  25 #);
  26
  27 marc('020','a',
  28         rec('10')
  29 );
  30
  31 # u polje 040a mo¾da jo¹ dodati prefiks HR
  32
  33 marc('040','a',
  34         'FFZG'
  35 );
  36
  37 marc('040','b',
  38         'hrv'
  39 );
  40
  41 marc_indicators('245', 0, 0);
  42
  43 #_debug(3);
  44
  45 marc_compose('245',
  46         'a', suffix(
  47                 rec('203','b') ? '. '   :
  48                 rec('203','k') ? ' ; '  :
  49                 rec('203','d') ? ' = '  :
  50                 rec('203','e') ? ' : '  :
  51                 rec('203','f') ? ' / '  :
  52                                  '.',
  53                         join_with('. ',
  54                                 rec('203','a')
  55                         )
  56         ),
  57         'h', rec('203','b'),
  58         'b',
  59         join_with(' ; ',
  60                 rec('203','k'),
  61         ),
  62         'b',
  63         join_with(' = ',
  64                 rec('203','d'),
  65         ),
  66         'b',
  67         join_with(' : ',
  68                 rec('203','e'),
  69         ),
  70         'c',
  71         join_with(' ; ',
  72                 rec('203','f'),
  73         ),
  74         '+', prefix('. ', rec('203','c') ),
  75 );
  76
  77 marc_original_order('260', '210');
  78
  79 marc('520','a',
  80         regex('s/[\\r\\n]+/. /g',
  81                 rec('330')
  82         )
  83 );
  84
  85 marc_indicators('653', ' ', ' ');
  86 marc('653','a',
  87         rec('610')
  88 );
  89
  90 # 675 podpolja c, d ... - ¹to s njima ???
  91
  92 marc('080','a',
  93         rec('675','a')
  94 );
  95
  96 marc_indicators('100', 1, ' ');
  97 marc('100','a',
  98         join_with(', ',
  99                 rec('700', 'a'),
 100                 rec('700', 'b')
 101         )
 102 );
 103
 104 marc_indicators('700', 1, ' ');
 105
 106 if ( rec('701') ) {
 107 marc('700','4',
 108         'aut'
 109 );
 110 }
 111
 112 marc('700','a',
 113         rec('701', 'a'),
 114 );
 115
 116 marc('700','a',
 117         join_with(', ',
 118                 rec('701', 'c'),
 119                 rec('701', 'd')
 120         )
 121 );
 122
 123 marc('700','a',
 124         join_with(', ',
 125                 rec('701', 'e'),
 126                 rec('701', 'f')
 127         )
 128 );
 129
 130 marc('700','a',
 131         join_with(', ',
 132                 rec('701', 'g'),
 133                 rec('701', 'h')
 134         )
 135 );
 136
 137
 138 marc('700','a',
 139         rec('702','a'),
 140 );
 141
 142
 143 # ako je u originalu ponovljivo polje treba biti i konvertirano!!
 144
 145
 146 marc('700','a',
 147         join_with(', ',
 148                 rec('702','c'),
 149                 rec('702','d')
 150         )
 151 );
 152
 153 marc('700','a',
 154         join_with(', ',
 155                 rec('702','e'),
 156                 rec('702','f')
 157         )
 158 );
 159
 160 marc('700','a',
 161         join_with(', ',
 162                 rec('702','g'),
 163                 rec('702','h')
 164         )
 165 );
 166
 167 #_debug(0);
 168
 169
 170 if ( rec('710','f') ) {
 171
 172 marc_indicators('111', 2, ' ');
 173 marc('111','a',
 174         rec('710','a')
 175 );
 176
 177 marc('111','c',
 178         rec('710','e')
 179 );
 180
 181 marc('111','d',
 182         rec('710','f')
 183 );
 184
 185 marc('111','e',
 186         rec('710','b')
 187 );
 188
 189 marc('111','n',
 190         rec('710','d')
 191 );
 192
 193
 194 } else {
 195
 196 marc_indicators('110', 2, ' ');
 197 marc('110','a',
 198         rec('710','a')
 199 );
 200
 201 marc('110','c',
 202         rec('710','c')
 203 );
 204
 205 };
 206
 207 marc_indicators('773', 0, ' ');
 208
 209 marc('773','g',
 210         rec('200','x'),
 211 );
 212
 213 marc('773','t',
 214         join_with(' : ',
 215                 rec('200','a'),
 216                 rec('200','e'),
 217         ),
 218 );
 219
 220 marc('773','w',
 221         lookup(
 222                 sub { 'ffkk-peri-' . rec('000') },
 223                 'ffkk','peri',
 224                 sub { rec('11') }
 225         ) ||
 226         lookup(
 227                 sub { 'ffkk-peri-' . rec('000') },
 228                 'ffkk','peri',
 229                 sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
 230         ) ||
 231
 232         lookup(
 233                 sub { "ffkk-peri-" . rec('000') },
 234                 'ffkk','peri',
 235                 sub { rec(200,'a') },
 236 #               sub { rec(900,'x') },
 237         )
 238
 239 );
 240
 241