diploma work - changing the name of conf directory

[webpac2] / conf / dipl / tables-cropsy.pl

diff --git a/conf/dipl/tables-cropsy.pl b/conf/dipl/tables-cropsy.pl
new file mode 100644 (file)
index 0000000..36bf518
--- /dev/null
+++ b/conf/dipl/tables-cropsy.pl
@@ -0,0 +1,14 @@
+
+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')
+       )
+}
+