logowanie
wyloguj sie
% (my @tab) = @{$_[0]->{'table'}};
% my $pool_id=0;
% my $pool_isbn=1;
% my $pool_title=2;
% my $pool_author=3;
% my $pool_owner=4;
% my $pool_state=5;
% my $pool_who=6;
% my $pool_can_borrow=7;
% my $pool_reserved=8;
% my $pool_comment=9;
| id | isbn | tytul | autor | wlasiciciel | jest? | kto? | mozna brac? | zarezerwowana? | komentarz |
% for (my $i=0;$i<$#tab+1;$i++)
% {
% for (my $ii=0;$ii<10;$ii++) #Jest 9 pol w kazdym rekordzie
% {
% if ($ii==$pool_state || $ii==$pool_can_borrow || $ii==$pool_reserved)
% {
% if ($tab[$i][$ii]==1)
% {
% $tab[$i][$ii] = 'Tak';
% }
% else
% {
% $tab[$i][$ii] = 'Nie';
% }
% }
| <%= $tab[$i][$ii] %> |
% }
%= "\n"
% }
Rezerwacja ksiazek. Podaj id ksiazki do zarezerwowania.