git.rot13.org Git - webpac2/blob - conf/lookup/ffkk-arti.pl

   1
   2 marc('777','v',
   3         lookup(
   4                 sub { 'ffkk/perl' . rec('000') },
   5                 'ffkk','peri',
   6                 sub { rec('11') }
   7         ) ||
   8         lookup(
   9                 sub { 'ffkk/perl' . rec('000') },
  10                 'ffkk','peri',
  11                 sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
  12         ) ||
  13         lookup(
  14                 sub { "ffkk/perl" . rec('000') },
  15                 'ffkk','peri',
  16                 sub { rec(200,'a') },
  17                 sub { rec(900,'x') },
  18         )
  19 );
  20
  21 marc('900','x',
  22         lookup(
  23                 sub { first(rec('200','a')) . ' ' . first(rec('200','b')) },
  24                 'ffps','libri',
  25                 sub { rec('245','a') },
  26         )
  27 );