uncommited changes

[webpac2] / 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')
        )
}