Hi Joshua,
It looks like you will need to add some paramaters and support functions to get
practical use from this sub:
Sub opentbl {
my ($rows, $cols) = @_
my $currentRow, $currentCol;
Print "<table rows=$rows cols=$cols>";
for (currentRow = 1; $currentRow <= $rows; $currentRow++) {
for ($currentCol = 0; currentCol <= $cols; $currentCol++) {
print "<td> ";
FillData($currentRow, $currentCol);
print " </td> \n";
}
}
Print "</table>";
};
Here $rows and $cols are parameters you pass in to the function, and FillData would be
the function you call to fill in the cells themselves.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
