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	mglavica	1268	# 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			);