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

   1
   2 marc_indicators('777', 0, ' ');
   3
   4 marc('777','w',
   5         lookup(
   6                 sub { 'ffkk/peri/' . rec('000') },
   7                 'ffkk','peri',
   8                 sub { rec('11') }
   9         ) ||
  10         lookup(
  11                 sub { 'ffkk/peri/' . rec('000') },
  12                 'ffkk','peri',
  13                 sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
  14         ) ||
  15
  16         lookup(
  17                 sub { "ffkk/peri/" . rec('000') },
  18                 'ffkk','peri',
  19                 sub { rec(200,'a') },
  20 #               sub { rec(900,'x') },
  21         )
  22
  23 );
  24