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	mglavica	1270
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