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 => regex('s/,//',
                uc ( frec('AU') )
        ),
        ti => rec('TI'),
        so => rec('SO'),
        la => rec('LA'),
        dt => rec('DT'),
        c1 => frec('C1'),
        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	# 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	au => regex('s/,//',
10	uc ( frec('AU') )
11	),
12	ti => rec('TI'),
13	so => rec('SO'),
14	la => rec('LA'),
15	dt => rec('DT'),
16	c1 => frec('C1'),
17	rp => uc ( rec('RP') ),
18	nr => rec('NR'),
19	tc => rec('TC'),
20	pi => rec('PI'),
21	py => rec('PY'),
22	di => rec('DI'),
23	sc => rec('SC')
24	);
25
26	if ( rec('RP') ) {
27	row( 'rpco',
28	ut => rec('UT'),
29	rp => rec('RP'),
30	rpco =>
31	regex('s/.,(.)/$1/',
32	regex('s/\.$//',
33	rec('RP')
34	)
35	),
36	);
37	}
38
39	my @af = rec_array ('AF');
40	foreach my $au ( rec_array ('AU') ) {
41	foreach my $cr ( rec_array('CR') ) {
42	row( 'cited',
43	ut => rec('UT'),
44	ca => config('input name'),
45	cr_auth => $cr->{author},
46	au => regex('s/,//',
47	uc ( $au )
48	),
49	cr_full => $cr->{full},
50	cr_year => $cr->{year},
51	cr_ref => $cr->{reference}
52	);
53	}
54	row( 'authors',
55	ut => rec('UT'),
56	ca => config('input name'),
57	au => regex('s/,//',
58	uc ( $au )
59	),
60	af => shift @af,
61	)
62	}
63
64	row( 'utca',
65	ut => rec('UT'),
66	ca => config('input name')
67	);
68
69