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