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