local

[webpac2] / conf / lookup / ffkk-arti.pl

diff --git a/conf/lookup/ffkk-arti.pl b/conf/lookup/ffkk-arti.pl
index 53fec27..fe525c1 100644 (file)
--- a/conf/lookup/ffkk-arti.pl
+++ b/conf/lookup/ffkk-arti.pl
@@ -1,33 +1,24 @@
-use Data::Dump qw/dump/;
 
-sub marc {};
+marc_indicators('777', 1, ' ');
 
-sub lookup {
-       my ( $db, $input, $from, $op, $to, $closure ) = @_;
-
-       print dump(@_),$/;
-}
-
-marc('777','v',
+marc('777','w',
+       lookup(
+               sub { 'ffkk/peri/mfn' . rec('000') },
+               'ffkk','peri',
+               sub { rec('11') }
+       ) ||
+       lookup(
+               sub { 'ffkk/peri/mfn' . rec('000') },
+               'ffkk','peri',
+               sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
+       ) ||
 
        lookup(
-               'ffkk','peri',  [ '11' ],               'eq',
-                               [ '11' ],
-               sub {
-                       'ffkk/perl' . lrec('000')
-               }
-       ) || lookup(
-               'ffkk','peri',  [ qw/200 a 200 e/ ],    'eq',
-                               [ qw/200 a 200 e/ ],
-               sub {
-                       'ffkk/perl' . lrec('000')
-               }
-       ) || lookup(
-               'ffkk','peri',  [ qw/200 a/ ],          'eq',
-                               [ qw/200 a/ ],
-               sub {
-                       'ffkk/perl' . lrec('000')
-               }
+               sub { "ffkk/peri/mfn" . rec('000') },
+               'ffkk','peri',
+               sub { rec(200,'a') },
+#              sub { rec(900,'x') },
        )
 
 );
+