conf/lookup/ffkk-arti.pl


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