conf/lookup/ffkk-arti.pl


marc('777','w',
        lookup(
                sub { 'ffkk/peri/mfn' . rec('000') },
                'ffkk','peri',
                sub { rec('11') }
        ) ||
        lookup(
                sub { 'ffkk/peri/mfn' . 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') },
        )

);

1
2	marc('777','w',
3	lookup(
4	sub { 'ffkk/peri/mfn' . rec('000') },
5	'ffkk','peri',
6	sub { rec('11') }
7	) \|\|
8	lookup(
9	sub { 'ffkk/peri/mfn' . rec('000') },
10	'ffkk','peri',
11	sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
12	) \|\|
13
14	lookup(
15	sub { "ffkk/peri" . rec('000') },
16	'ffkk','peri',
17	sub { rec(200,'a') },
18	# sub { rec(900,'x') },
19	)
20
21	);
22