25 lines
423 B
Plaintext
25 lines
423 B
Plaintext
<html>
|
|
<body>
|
|
% (my @tab) = @{$_[0]->{'table'}};
|
|
|
|
<table border=7>
|
|
<tr><td>id</td><td>isbn</td><td>tytul</td><td>autor</td><td>wlasiciciel</td><td>jest?</td><td>mozna brac?</td></tr>
|
|
<tr>
|
|
|
|
% for (my $i=0;$i<$#tab;$i++)
|
|
% {
|
|
% for (my $ii=0;$ii<7;$ii++) #Jest 7 pol w kazdym rekordzie
|
|
% {
|
|
|
|
<td> <%= $tab[$i][$ii] %> </td>
|
|
% }
|
|
%= "\n"
|
|
</tr>
|
|
<tr>
|
|
% }
|
|
|
|
</table>
|
|
|
|
</body>
|
|
</html>
|