/[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 686 by dpavlin, Sun Sep 24 17:25:04 2006 UTC revision 751 by dpavlin, Sun Oct 8 13:25:11 2006 UTC
# Line 1  Line 1 
1    
2  marc('777','v',  marc_indicators('777', 1, ' ');
3    
4    marc('777','w',
5          lookup(          lookup(
6                  sub { 'ffkk/perl' . rec('000') },                  sub { 'ffkk/peri/mfn' . rec('000') },
7                  'ffkk','peri',                  'ffkk','peri',
8                  sub { rec('11') }                  sub { rec('11') }
9          ) ||          ) ||
10          lookup(          lookup(
11                  sub { 'ffkk/perl' . rec('000') },                  sub { 'ffkk/peri/mfn' . rec('000') },
12                  'ffkk','peri',                  'ffkk','peri',
13                  sub { rec(200,'a') . rec('200','e') },                  sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
14          ) ||          ) ||
15    
16          lookup(          lookup(
17                  sub { "ffkk/perl" . rec('000') },                  sub { "ffkk/peri/mfn" . rec('000') },
18                  'ffkk','peri',                  'ffkk','peri',
19                  sub { rec(200,'a') },                  sub { rec(200,'a') },
20                  sub { rec(900,'x') },  #               sub { rec(900,'x') },
21          )          )
 );  
22    
 marc('900','x',  
         lookup(  
                 sub { rec('200','a') . ' ' . rec('200','b') },  
                 'ffps','libri',  
                 sub { rec('245','a') },  
         )  
23  );  );
24    
Legend:
Removed from v.686  
changed lines
  Added in v.751
  ViewVC Help
Powered by ViewVC 1.1.26