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

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