/[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 753 by dpavlin, Sun Oct 8 13:25:11 2006 UTC revision 754 by dpavlin, Sun Oct 8 18:44:42 2006 UTC
# Line 1  Line 1 
1    
2  marc_indicators('777', 1, ' ');  marc_indicators('777', 0, ' ');
3    
4  marc('777','w',  marc('777','w',
5          lookup(          lookup(
6                  sub { 'ffkk/peri/mfn' . rec('000') },                  sub { 'ffkk/peri/' . rec('000') },
7                  'ffkk','peri',                  'ffkk','peri',
8                  sub { rec('11') }                  sub { rec('11') }
9          ) ||          ) ||
10          lookup(          lookup(
11                  sub { 'ffkk/peri/mfn' . rec('000') },                  sub { 'ffkk/peri/' . rec('000') },
12                  'ffkk','peri',                  'ffkk','peri',
13                  sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },                  sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
14          ) ||          ) ||
15    
16          lookup(          lookup(
17                  sub { "ffkk/peri/mfn" . rec('000') },                  sub { "ffkk/peri/" . 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') },
Legend:
Removed from v.753  
changed lines
  Added in v.754
  ViewVC Help
Powered by ViewVC 1.1.26