2013-03-19 18:52:26 +00:00
|
|
|
<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>
|
|
|
|
|
2013-03-19 21:38:07 +00:00
|
|
|
% for (my $i=0;$i<$#tab+1;$i++)
|
2013-03-19 18:52:26 +00:00
|
|
|
% {
|
|
|
|
% for (my $ii=0;$ii<7;$ii++) #Jest 7 pol w kazdym rekordzie
|
|
|
|
% {
|
|
|
|
|
2013-03-19 21:38:07 +00:00
|
|
|
% if ($ii==5 || $ii==6)
|
|
|
|
% {
|
|
|
|
% if ($tab[$i][$ii]==1)
|
|
|
|
% {
|
|
|
|
% $tab[$i][$ii] = 'Tak';
|
|
|
|
% }
|
|
|
|
% else
|
|
|
|
% {
|
|
|
|
% $tab[$i][$ii] = 'Nie';
|
|
|
|
% }
|
|
|
|
% }
|
2013-03-19 18:52:26 +00:00
|
|
|
<td> <%= $tab[$i][$ii] %> </td>
|
|
|
|
% }
|
|
|
|
%= "\n"
|
|
|
|
</tr>
|
|
|
|
<tr>
|
|
|
|
% }
|
|
|
|
|
|
|
|
</table>
|
|
|
|
|
|
|
|
</body>
|
|
|
|
</html>
|