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	mglavica	1321	my $upisani;
2	mglavica	1278
3	mglavica	1321	$upisani =
4	mglavica	1278	lookup(
5			sub{ rec('D') },
6			'kohacas','upisani',
7			sub{ rec('D') },
8			sub{ rec('999','c') },
9			);
10
11	mglavica	1321	#if ( $upisani ) {
12	mglavica	1278
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	mglavica	1321	issn =>
22			join_with(' ; ',
23			rec('020','a'),
24			),
25			sig852j =>
26			join_with(' ; ',
27			rec('852','j'),
28			),
29	mglavica	1278	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	mglavica	1321	#}