% (my @tab) = @{$_[0]->{'table'}};
id | isbn | tytul | autor | wlasiciciel | jest? | mozna brac? |
% for (my $i=0;$i<$#tab+1;$i++)
% {
% for (my $ii=0;$ii<7;$ii++) #Jest 7 pol w kazdym rekordzie
% {
% if ($ii==5 || $ii==6)
% {
% if ($tab[$i][$ii]==1)
% {
% $tab[$i][$ii] = 'Tak';
% }
% else
% {
% $tab[$i][$ii] = 'Nie';
% }
% }
<%= $tab[$i][$ii] %> |
% }
%= "\n"
% }