conf/ffcasopisi/tables-isis.pl

# warn dump(rec('AU'));
# warn dump(rec_array('AU'));

#di => split( /;/, rec(

my $sig = 
        lookup(
                sub { 1 },
                'casopisi','sig',
                sub { rec('A') . rec('B') },
                sub { config ('input collection') . rec('000') }
        );

row( 'isis',
        sig => $sig || 0,
        zbirka => config('input collection'),
        mfn => rec('000'),
        zemlja => rec('102') || 0,
        naslov => rec('200','a') || 0,
        issn => rec('020') || 0,
        f210d => rec('210','d') || 0,
        f207a => 
                join_with(' ; ',
                        rec('207','a')
                ) || 0,
        f326 => rec('326') || 0,
        f215a => rec('215','a') || 0,
        f991b => rec('991','b') || 0
);
1	# warn dump(rec('AU'));
2	# warn dump(rec_array('AU'));
3
4	#di => split( /;/, rec(
5
6	my $sig =
7	lookup(
8	sub { 1 },
9	'casopisi','sig',
10	sub { rec('A') . rec('B') },
11	sub { config ('input collection') . rec('000') }
12	);
13
14	row( 'isis',
15	sig => $sig \|\| 0,
16	zbirka => config('input collection'),
17	mfn => rec('000'),
18	zemlja => rec('102') \|\| 0,
19	naslov => rec('200','a') \|\| 0,
20	issn => rec('020') \|\| 0,
21	f210d => rec('210','d') \|\| 0,
22	f207a =>
23	join_with(' ; ',
24	rec('207','a')
25	) \|\| 0,
26	f326 => rec('326') \|\| 0,
27	f215a => rec('215','a') \|\| 0,
28	f991b => rec('991','b') \|\| 0
29	);