conf/lookup/ffkk-arti.pl


marc_indicators('777', 0, ' ');

marc('777','w',
        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') },
        )

);

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