conf/ffcasopisi/tables-kohacas.pl


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