conf/lookup/ffkk-arti.pl


marc('777','v',
        lookup(
                sub { 'ffkk/perl' . rec('000') },
                'ffkk','peri',
                sub { rec('11') }
        ) ||
        lookup(
                sub { 'ffkk/perl' . rec('000') },
                'ffkk','peri',
                sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
        ) ||
        lookup(
                sub { "ffkk/perl" . rec('000') },
                'ffkk','peri',
                sub { rec(200,'a') },
                sub { rec(900,'x') },
        )
);

marc('900','x',
        lookup(
                sub { first(rec('200','a')) . ' ' . first(rec('200','b')) },
                'ffps','libri',
                sub { rec('245','a') },
        )
);
1
2	marc('777','v',
3	lookup(
4	sub { 'ffkk/perl' . rec('000') },
5	'ffkk','peri',
6	sub { rec('11') }
7	) \|\|
8	lookup(
9	sub { 'ffkk/perl' . rec('000') },
10	'ffkk','peri',
11	sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
12	) \|\|
13	lookup(
14	sub { "ffkk/perl" . rec('000') },
15	'ffkk','peri',
16	sub { rec(200,'a') },
17	sub { rec(900,'x') },
18	)
19	);
20
21	marc('900','x',
22	lookup(
23	sub { first(rec('200','a')) . ' ' . first(rec('200','b')) },
24	'ffps','libri',
25	sub { rec('245','a') },
26	)
27	);