54 lines
1.2 KiB
Plaintext
54 lines
1.2 KiB
Plaintext
<html>
|
|
<body>
|
|
<a href="/login">logowanie</a>
|
|
<a href="/logout">wyloguj sie</a>
|
|
|
|
% (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;
|
|
<table border=7 bgcolor="lightyellow">
|
|
<tr><td>id</td><td>isbn</td><td>tytul</td><td>autor</td><td>wlasiciciel</td><td>jest?</td><td>kto?</td><td>mozna brac?</td><td>zarezerwowana?</td><td>komentarz</td></tr>
|
|
<tr>
|
|
|
|
% 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';
|
|
% }
|
|
% }
|
|
<td> <%= $tab[$i][$ii] %> </td>
|
|
% }
|
|
%= "\n"
|
|
</tr>
|
|
<tr>
|
|
% }
|
|
|
|
</table>
|
|
|
|
<br>
|
|
Rezerwacja ksiazek. Podaj id ksiazki do zarezerwowania. <br>
|
|
<form action="http://i.am-a.cat:3000/res" method="post">
|
|
<input type="text" name="book_id">
|
|
<input type="submit" value="zarezerwuj">
|
|
</form>
|
|
</body>
|
|
</html>
|