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

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