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
Cranix 2013-03-21 16:40:56 -04:00
parent 73fe8279e6
commit 9c6d1c5ba1
3 changed files with 39 additions and 0 deletions

4
TODO Normal file
View File

@ -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

35
views/main_page.tt Normal file
View File

@ -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>