Pierwsze podejście do dodania informacji o wypożyczającym.
Niewiedzieć czemu, $sth->prepare("select * from ksiazki") w lini 17 przestało działać, Tak samo to samo zapytanie w części obsługującej wypożyczanie książek.master
parent
73fe8279e6
commit
9c6d1c5ba1
|
@ -0,0 +1,4 @@
|
|||
1)Dodać obsługę informacji o tym, kto wypożyczył daną książkę
|
||||
2)Dodać uwieżytelnianie
|
||||
3)Dodać możliwość łączenia się po https
|
||||
4)Zintegrować z LDAP'em
|
|
@ -0,0 +1,35 @@
|
|||
<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>
|
||||
|
||||
% 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';
|
||||
% }
|
||||
% }
|
||||
<td> <%= $tab[$i][$ii] %> </td>
|
||||
% }
|
||||
%= "\n"
|
||||
</tr>
|
||||
<tr>
|
||||
% }
|
||||
|
||||
</table>
|
||||
|
||||
</body>
|
||||
</html>
|
Loading…
Reference in New Issue