git.rot13.org Git - webpac2/blob - conf/bibliografija/biblio.pl

   1 if ( rec('942','u') ) {
   2
   3 marc_clone();
   4
   5 marc_remove('008');
   6
   7 marc_fixed('008','00',
   8         substr( rec('008'), 0, 14 )
   9 );
  10
  11 my $zemlja =
  12                 lookup(
  13                         sub { rec('A') },
  14                         'rbaze','zemlja',
  15                         sub { rec('C') },
  16                         sub { rec('999','c') }
  17                 );
  18 if ( $zemlja ) {
  19         marc_fixed('008','15',$zemlja);
  20 }
  21
  22 marc_fixed('008', '18',
  23         substr( rec('008'), 18, 22 )
  24 );
  25
  26 marc_remove('773');
  27
  28 marc('773','3', rec('773','3') );
  29 marc('773','6', rec('773','6') );
  30 marc('773','7', rec('773','7') );
  31 marc('773','8', rec('773','8') );
  32 marc('773','9', rec('773','9') );
  33 marc('773','a', rec('773','a') );
  34 marc('773','b', rec('773','b') );
  35 marc('773','d', rec('773','d') );
  36 marc('773','g', rec('773','g') );
  37 marc('773','h', rec('773','h') );
  38 marc('773','i', rec('773','i') );
  39 marc('773','k', rec('773','k') );
  40 marc('773','m', rec('773','m') );
  41 marc('773','n', rec('773','n') );
  42 marc('773','o', rec('773','o') );
  43 marc('773','p', rec('773','p') );
  44 marc('773','q', rec('773','q') );
  45 marc('773','r', rec('773','r') );
  46 marc('773','s', rec('773','s') );
  47 marc('773','t', rec('773','t') );
  48 marc('773','u', rec('773','u') );
  49 marc('773','w', rec('773','w') );
  50
  51 my $issn =
  52         lookup(
  53                 sub { rec('B') },
  54                 'rbaze','zemlja',
  55                 sub { rec('C') },
  56                 sub { rec('999','c') }
  57         );
  58 if ( $issn ) {
  59         marc('773','x', $issn );
  60 }
  61
  62 marc('773','y', rec('773','y') );
  63 marc('773','z', rec('773','z') );
  64
  65 if ( rec('999','c') =~ m/305996/ ) {
  66         marc_remove('520');
  67 }
  68
  69 marc_remove('942');
  70
  71 marc('942','a',
  72         rec('942','a')
  73 );
  74 marc('942','b',
  75         rec('942','b')
  76 );
  77 marc('942','c',
  78         rec('942','c')
  79 );
  80 marc('942','d',
  81         rec('942','d')
  82 );
  83 marc('942','e',
  84         rec('942','e')
  85 );
  86 marc('942','f',
  87         rec('942','f')
  88 );
  89 marc('942','g',
  90         rec('942','g')
  91 );
  92 marc('942','h',
  93         rec('942','h')
  94 );
  95 marc('942','i',
  96         rec('942','i')
  97 );
  98 marc('942','j',
  99         rec('942','j')
 100 );
 101 marc('942','k',
 102         rec('942','k')
 103 );
 104 marc('942','l',
 105         rec('942','l')
 106 );
 107 marc('942','m',
 108         rec('942','m')
 109 );
 110 marc('942','n',
 111         rec('942','n')
 112 );
 113
 114 if ( $issn  ) {
 115         marc_repeatable_subfield('942','r',
 116                 lookup(
 117                         sub{
 118                                 join_with(' ; ',
 119                                         rec('B'),
 120                                         rec('N'),
 121                                         rec('O'),
 122                                         join_with('-',
 123                                                 rec('P'),
 124                                                 rec('R'),
 125                                         ),
 126                                 )
 127                         },
 128                         'rbaze','rbaze',
 129                         sub{ regex('s/(-|\s+)//g', rec('C')) },
 130                         sub{ regex('s/(-|\s+)//g', $issn ) }
 131                 )
 132         );
 133 }
 134 if ( $issn ) {
 135         marc_repeatable_subfield('942','r',
 136                 lookup(
 137                         sub{
 138                                 join_with(' ; ',
 139                                         rec('B'),
 140                                         rec('N'),
 141                                         rec('O'),
 142                                         join_with('-',
 143                                                 rec('P'),
 144                                                 rec('R'),
 145                                         ),
 146                                 )
 147                         },
 148                         'rbaze','rbaze',
 149                         sub{ regex('s/(-|\s+)//g', rec('D')) },
 150                         sub{ regex('s/(-|\s+)//g', $issn ) }
 151                 )
 152         );
 153 }
 154
 155 marc('942','s',
 156         rec('942','s')
 157 );
 158 marc('942','t',
 159         rec('942','t')
 160 );
 161 marc('942','u',
 162         rec('942','u')
 163 );
 164 marc('942','v',
 165         rec('942','v')
 166 );
 167 marc('942','x',
 168         rec('942','x')
 169 );
 170 marc('942','y',
 171         rec('942','y')
 172 );
 173 marc('942','z',
 174         rec('942','z')
 175 );
 176
 177 }