conf/dipl/tables-cropsy.pl


my @c1 = rec_array ('C1');
my @rp = rec_array ('RP');
foreach my $au ( rec_array('AU') ) {
        row( 'cropsy', 
                ut => rec('UT'),
                au => $au,
                c1 => shift @c1,
                rp => shift @rp,
                tc => rec('TC'),
                py => rec('PY')
        )
}

1
2	my @c1 = rec_array ('C1');
3	my @rp = rec_array ('RP');
4	foreach my $au ( rec_array('AU') ) {
5	row( 'cropsy',
6	ut => rec('UT'),
7	au => $au,
8	c1 => shift @c1,
9	rp => shift @rp,
10	tc => rec('TC'),
11	py => rec('PY')
12	)
13	}
14