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	dpavlin	679
2	dpavlin	754	marc_indicators('777', 0, ' ');
3	dpavlin	751
4	dpavlin	722	marc('777','w',
5	dpavlin	679	lookup(
6	dpavlin	754	sub { 'ffkk/peri/' . rec('000') },
7	dpavlin	680	'ffkk','peri',
8	dpavlin	686	sub { rec('11') }
9	dpavlin	680	) \|\|
10			lookup(
11	dpavlin	754	sub { 'ffkk/peri/' . rec('000') },
12	dpavlin	680	'ffkk','peri',
13	dpavlin	709	sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
14	dpavlin	680	) \|\|
15	dpavlin	722
16	dpavlin	680	lookup(
17	dpavlin	754	sub { "ffkk/peri/" . rec('000') },
18	dpavlin	680	'ffkk','peri',
19	dpavlin	686	sub { rec(200,'a') },
20	dpavlin	722	# sub { rec(900,'x') },
21	dpavlin	679	)
22	dpavlin	722
23	dpavlin	679	);
24	dpavlin	686