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                         rec('203','a')
  54         ),
  55         'h', rec('203','b'),
  56         'b',
  57                 join_with(' ; ',
  58                         rec('203','k'),
  59                 ),
  60         'b', rec('203','d'),
  61         'b',
  62                 join_with(' : ',
  63                         rec('203','e'),
  64                 ),
  65         'c',
  66                 join_with(' ; ',
  67                         rec('203','f'),
  68                 ),
  69         '+', prefix('. ', rec('203','c') ),
  70 );
  71
  72 marc_original_order('260', '210');
  73
  74 marc('520','a',
  75         regex('s/[\\r\\n]+/. /g',
  76                 rec('330')
  77         )
  78 );
  79
  80 marc_indicators('653', ' ', ' ');
  81 marc('653','a',
  82         rec('610')
  83 );
  84
  85 # 675 podpolja c, d ... - ¹to s njima ???
  86
  87 marc('080','a',
  88         rec('675','a')
  89 );
  90
  91 marc_indicators('100', 1, ' ');
  92 marc('100','a',
  93         join_with(', ',
  94                 rec('700', 'a'),
  95                 rec('700', 'b')
  96         )
  97 );
  98
  99 marc_indicators('700', 1, ' ');
 100
 101 if ( rec('701') ) {
 102 marc('700','4',
 103         'aut'
 104 );
 105 }
 106
 107 marc('700','a',
 108         rec('701', 'a'),
 109 );
 110
 111 marc('700','a',
 112         join_with(', ',
 113                 rec('701', 'c'),
 114                 rec('701', 'd')
 115         )
 116 );
 117
 118 marc('700','a',
 119         join_with(', ',
 120                 rec('701', 'e'),
 121                 rec('701', 'f')
 122         )
 123 );
 124
 125 marc('700','a',
 126         join_with(', ',
 127                 rec('701', 'g'),
 128                 rec('701', 'h')
 129         )
 130 );
 131
 132
 133 marc('700','a',
 134         rec('702','a'),
 135 );
 136
 137
 138 # ako je u originalu ponovljivo polje treba biti i konvertirano!!
 139
 140
 141 marc('700','a',
 142         join_with(', ',
 143                 rec('702','c'),
 144                 rec('702','d')
 145         )
 146 );
 147
 148 marc('700','a',
 149         join_with(', ',
 150                 rec('702','e'),
 151                 rec('702','f')
 152         )
 153 );
 154
 155 marc('700','a',
 156         join_with(', ',
 157                 rec('702','g'),
 158                 rec('702','h')
 159         )
 160 );
 161
 162 #_debug(0);
 163
 164
 165 if ( rec('710','f') ) {
 166
 167 marc_indicators('111', 2, ' ');
 168 marc('111','a',
 169         rec('710','a')
 170 );
 171
 172 marc('111','c',
 173         rec('710','e')
 174 );
 175
 176 marc('111','d',
 177         rec('710','f')
 178 );
 179
 180 marc('111','e',
 181         rec('710','b')
 182 );
 183
 184 marc('111','n',
 185         rec('710','d')
 186 );
 187
 188
 189 } else {
 190
 191 marc_indicators('110', 2, ' ');
 192 marc('110','a',
 193         rec('710','a')
 194 );
 195
 196 marc('110','c',
 197         rec('710','c')
 198 );
 199
 200 };
 201
 202 marc_indicators('773', 0, ' ');
 203
 204 marc('773','g',
 205         rec('200','x'),
 206 );
 207
 208 marc('773','t',
 209         join_with(' : ',
 210                 rec('200','a'),
 211                 rec('200','e'),
 212         ),
 213 );
 214
 215 marc('773','w',
 216         lookup(
 217                 sub { 'ffkk-peri-' . rec('000') },
 218                 'ffkk','peri',
 219                 sub { rec('11') }
 220         ) ||
 221         lookup(
 222                 sub { 'ffkk-peri-' . rec('000') },
 223                 'ffkk','peri',
 224                 sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
 225         ) ||
 226
 227         lookup(
 228                 sub { "ffkk-peri-" . rec('000') },
 229                 'ffkk','peri',
 230                 sub { rec(200,'a') },
 231 #               sub { rec(900,'x') },
 232         )
 233
 234 );
 235
 236