conf/ffcasopisi/tables-kohacas.pl

my $upisani;

$upisani =
        lookup(
                sub{ rec('D') },
                'kohacas','upisani',
                sub{ rec('D') },
                sub{ rec('999','c') },
        );

#if ( $upisani ) {

row( 'kohacas',
        biblionumber => rec('999','c'),
        naslov => 
                join_with(' ',
                        rec('245','a'),
                        rec('245','b'),
                        rec('245','c'),
                ),
        issn => 
                join_with(' ; ',
                        rec('020','a'),
                ),
        sig852j => 
                join_with(' ; ',
                        rec('852','j'),
                ),
        sig942d => rec('942','d'),
        itemtype => rec('942','c'),
        ldr => rec('ldr'),
        f008 => rec('008'),
        items =>
                join_with(' ; ', 
                        rec('952','9')
                )
);
#}
1	my $upisani;
2
3	$upisani =
4	lookup(
5	sub{ rec('D') },
6	'kohacas','upisani',
7	sub{ rec('D') },
8	sub{ rec('999','c') },
9	);
10
11	#if ( $upisani ) {
12
13	row( 'kohacas',
14	biblionumber => rec('999','c'),
15	naslov =>
16	join_with(' ',
17	rec('245','a'),
18	rec('245','b'),
19	rec('245','c'),
20	),
21	issn =>
22	join_with(' ; ',
23	rec('020','a'),
24	),
25	sig852j =>
26	join_with(' ; ',
27	rec('852','j'),
28	),
29	sig942d => rec('942','d'),
30	itemtype => rec('942','c'),
31	ldr => rec('ldr'),
32	f008 => rec('008'),
33	items =>
34	join_with(' ; ',
35	rec('952','9')
36	)
37	);
38	#}