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

   1 if ( rec('942','u') ) {
   2
   3 marc_clone();
   4
   5 marc_remove('942');
   6
   7 marc('942','0',
   8         rec('942','0')
   9 );
  10 marc('942','2',
  11         rec('942','2')
  12 );
  13 marc('942','6',
  14         rec('942','6')
  15 );
  16 marc('942','a',
  17         rec('942','a')
  18 );
  19 marc('942','b',
  20         rec('942','b')
  21 );
  22 marc('942','c',
  23         rec('942','c')
  24 );
  25 marc('942','d',
  26         rec('942','d')
  27 );
  28 marc('942','e',
  29         rec('942','e')
  30 );
  31 marc('942','f',
  32         rec('942','f')
  33 );
  34 marc('942','g',
  35         rec('942','g')
  36 );
  37 marc('942','h',
  38         rec('942','h')
  39 );
  40 marc('942','i',
  41         rec('942','i')
  42 );
  43 marc('942','j',
  44         rec('942','j')
  45 );
  46 marc('942','k',
  47         rec('942','k')
  48 );
  49 marc('942','l',
  50         rec('942','l')
  51 );
  52 marc('942','m',
  53         rec('942','m')
  54 );
  55 marc('942','n',
  56         rec('942','n')
  57 );
  58
  59 if ( rec('773','x') ) {
  60         marc_repeatable_subfield('942','r',
  61                 lookup(
  62                         sub{
  63                                 join_with(' ; ',
  64                                         rec('baza'),
  65                                         rec('coverage_policy'),
  66                                         rec('coverage_status'),
  67                                         join_with('-',
  68                                                 rec('coverage_start'),
  69                                                 rec('coverage_stop'),
  70                                         ),
  71                                 );
  72                         },
  73                         'rbaze','rbaze',
  74                         sub{ rec('isn') },
  75                         sub{ rec('773','x') }
  76                 )
  77         );
  78 }
  79
  80 if ( rec('773','x') ) {
  81         marc_repeatable_subfield('942','r',
  82                 lookup(
  83                         sub{
  84                                 join_with(' ; ',
  85                                         rec('baza'),
  86                                         rec('coverage_policy'),
  87                                         rec('coverage_status'),
  88                                         join_with('-',
  89                                                 rec('coverage_start'),
  90                                                 rec('coverage_stop'),
  91                                         ),
  92                                 );
  93                         },
  94                         'rbaze','rbaze',
  95                         sub{ rec('isn') },
  96                         sub{ rec('773','x') }
  97                 )
  98         );
  99 }
 100
 101 marc('942','s',
 102         rec('942','s')
 103 );
 104 marc('942','t',
 105         rec('942','t')
 106 );
 107 marc('942','u',
 108         rec('942','u')
 109 );
 110 marc('942','v',
 111         rec('942','v')
 112 );
 113 marc('942','x',
 114         rec('942','x')
 115 );
 116 marc('942','y',
 117         rec('942','y')
 118 );
 119 marc('942','z',
 120         rec('942','z')
 121 );
 122
 123 }