git.rot13.org Git - webpac2/blob - conf/normalize/marc-cufts.pl

   1 marc('022','a',
   2         rec('022','a')
   3 );
   4
   5 marc('022','y',
   6         rec('022','y')
   7 );
   8
   9
  10 marc_indicators('245', 0, 0);
  11
  12 marc('245','a',
  13         rec('245','a')
  14 );
  15
  16 marc('245','b',
  17         rec('245','b')
  18 );
  19
  20 marc('245','h',
  21         '[ Elektronièka graða ]'
  22 );
  23
  24 marc_indicators('246', 0, 0);
  25
  26 marc('246','a',
  27         rec('246','a')
  28 );
  29
  30 marc('500','a',
  31         rec('500','a')
  32 );
  33
  34 marc('500','a',
  35         lookup(
  36                 sub { 'Licenciran' },
  37                 'wiley','licenced',
  38                 sub {
  39                         lc( rec('A') )
  40                 },
  41                 sub {
  42                         regex('s/\s*(\.|:)\s*$//g',
  43                                 lc( rec('245','a') )
  44                         );
  45                 },
  46         )
  47 );
  48
  49 marc_indicators('650', ' ', 2);
  50
  51 marc('650','a',
  52         rec('650','a')
  53 );
  54
  55 marc('650','v',
  56         rec('650','v')
  57 );
  58
  59 marc('650','z',
  60         rec('650','z')
  61 );
  62
  63 marc('856','u',
  64         rec('856','u')
  65 );
  66
  67