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