/[webpac2]/trunk/conf/lookup/ffkk-arti.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/conf/lookup/ffkk-arti.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 679 by dpavlin, Fri Sep 15 14:56:07 2006 UTC revision 680 by dpavlin, Wed Sep 20 12:04:28 2006 UTC
# Line 1  Line 1 
 use Data::Dump qw/dump/;  
   
 sub marc {};  
   
 sub lookup {  
         my ( $db, $input, $from, $op, $to, $closure ) = @_;  
   
         print dump(@_),$/;  
 }  
1    
2  marc('777','v',  marc('777','v',
   
3          lookup(          lookup(
4                  'ffkk','peri',  [ '11' ],               'eq',                  sub { 'ffkk/perl' . rec('000') },
5                                  [ '11' ],                  'ffkk','peri',
6                  sub {                  sub { rec('11') },
7                          'ffkk/perl' . lrec('000')                  sub { rec('11') },
8                  }          ) ||
9          ) || lookup(          lookup(
10                  'ffkk','peri',  [ qw/200 a 200 e/ ],    'eq',                  sub { 'ffkk/perl' . rec('000') },
11                                  [ qw/200 a 200 e/ ],                  'ffkk','peri',
12                  sub {                  sub { rec('200','a') . rec('200','e') },
13                          'ffkk/perl' . lrec('000')          ) ||
14                  }          lookup(
15          ) || lookup(                  sub { 'ffkk/perl' . rec('000') },
16                  'ffkk','peri',  [ qw/200 a/ ],          'eq',                  'ffkk','peri',
17                                  [ qw/200 a/ ],                  sub { rec('200','a') },
                 sub {  
                         'ffkk/perl' . lrec('000')  
                 }  
18          )          )
   
19  );  );
Legend:
Removed from v.679  
changed lines
  Added in v.680
  ViewVC Help
Powered by ViewVC 1.1.26