conf/dipl/tables.pl

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

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

row( 'citing',
        ut => rec('UT'),
        pt => rec('PT'),
        au => join_with(' ; ',
                rec('AU')
        ),
        ti => rec('TI'),
        so => rec('SO'),
        la => rec('LA'),
        dt => rec('DT'),
        de => rec('DE'),
        id => rec('ID'),
        de => join_with(' ; ',
                rec('DE'),
        ),
        id => join_with(' ; ',
                rec('ID'),
        ),
        rp => uc ( rec('RP') ),
        nr => rec('NR'),
        tc => rec('TC'),
        pi => rec('PI'),
        py => rec('PY'),
        di => rec('DI'),
        sc => rec('SC')
);

if ( rec('RP') ) {
        row( 'rpco',
                ut => rec('UT'),
                rp => rec('RP'),
                rpco =>         
                        regex('s/.*,(.*)/$1/',
                                regex('s/\.$//',
                                        rec('RP')
                                )
                        ),
        );
}

my @af = rec_array ('AF');
foreach my $au ( rec_array ('AU') ) {
        foreach my $cr ( rec_array('CR') ) {
                row( 'cited', 
                        ut => rec('UT'),
                        ca => config('input name'),
                        cr_auth => $cr->{author}, 
                        au => regex('s/,//',
                                uc ( $au )
                        ),
                        cr_full => $cr->{full},
                        cr_year => $cr->{year},
                        cr_ref => $cr->{reference}
                );
        }
        row( 'authors',
                ut => rec('UT'),
                ca => config('input name'),
                au => regex('s/,//',
                        uc ( $au )
                ),
                af => shift @af,
        )
}

row( 'utca',
        ut => rec('UT'),
        ca => config('input name')
);


1	mglavica	1270	# warn dump(rec('AU'));
2			# warn dump(rec_array('AU'));
3
4			#di => split( /;/, rec(
5
6			row( 'citing',
7			ut => rec('UT'),
8			pt => rec('PT'),
9	mglavica	1320	au => join_with(' ; ',
10			rec('AU')
11	mglavica	1270	),
12			ti => rec('TI'),
13			so => rec('SO'),
14			la => rec('LA'),
15			dt => rec('DT'),
16	mglavica	1320	de => rec('DE'),
17			id => rec('ID'),
18			de => join_with(' ; ',
19			rec('DE'),
20			),
21			id => join_with(' ; ',
22			rec('ID'),
23			),
24	mglavica	1270	rp => uc ( rec('RP') ),
25			nr => rec('NR'),
26			tc => rec('TC'),
27			pi => rec('PI'),
28			py => rec('PY'),
29			di => rec('DI'),
30			sc => rec('SC')
31			);
32
33			if ( rec('RP') ) {
34			row( 'rpco',
35			ut => rec('UT'),
36			rp => rec('RP'),
37			rpco =>
38			regex('s/.,(.)/$1/',
39			regex('s/\.$//',
40			rec('RP')
41			)
42			),
43			);
44			}
45
46			my @af = rec_array ('AF');
47			foreach my $au ( rec_array ('AU') ) {
48			foreach my $cr ( rec_array('CR') ) {
49			row( 'cited',
50			ut => rec('UT'),
51			ca => config('input name'),
52			cr_auth => $cr->{author},
53			au => regex('s/,//',
54			uc ( $au )
55			),
56			cr_full => $cr->{full},
57			cr_year => $cr->{year},
58			cr_ref => $cr->{reference}
59			);
60			}
61			row( 'authors',
62			ut => rec('UT'),
63			ca => config('input name'),
64			au => regex('s/,//',
65			uc ( $au )
66			),
67			af => shift @af,
68			)
69			}
70
71			row( 'utca',
72			ut => rec('UT'),
73			ca => config('input name')
74			);
75
76