cranix
/
Biblioteka
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Zmiana nazwy template'u na coś mówiącą, usunięcie kilku śmieci w katalogu views.

master
Cranix 2013-03-19 18:09:23 -04:00
parent 63e588f388
commit 73fe8279e6
8 changed files with 1 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/app.pl
View File

@ -24,7 +24,7 @@ get '/' => sub
# |kolejne rekordy|kolejne pola rekordow
#return ${$result[2]}[4];
template 'a.tt',
template 'main_page.tt',
{
'table' => \@result
}

35
views/a.tt
View File

@ -1,35 +0,0 @@
<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>

25
views/a.tt.backup
View File

@ -1,25 +0,0 @@
<html>
<body>
% (my @tab) = @{$_[0]->{'table'}};
% my $max_index = $#tab;
% my @pool_names = ('id','isbn', 'tytul', 'autor', 'wlasciciel', 'jest?', 'mozna brac?');
<table border=7>
<tr>id<td>isbn<td>tytul<td>autor<td>wlasiciciel<td>jest?<td>mozna brac?
<tr>
% for (my $i=0;$i<$max_index;$i++)
% {
% for (my $ii=0;$ii<7;$ii++) #Jest 7 pol w kazdym rekordzie
% {
%# = $pool_names[$ii].':'.$tab[$i][$ii]
%# <tr> <%= $pool_names[$ii] %> <td> <%= $tab[$i][$ii] %>
<td> <%= $tab[$i][$ii] %>
% }
%= "\n"
<tr>
% }
</table>
</body>
</html>

12
views/a.tt.backup1
View File

@ -1,12 +0,0 @@
<html>
<body>
% my ($x) = @_;
% my @tab = $x->{'table'};
%# my $max_index = $#tab;
%# for (my $i=0;$i<$max_index;$i++)
%# {
%= $tab[0][1][3]
%# }
</body>
</html>

10
views/b.tt
View File

@ -1,10 +0,0 @@
<html>
<body>
<table>
<table border=7>
<tr>
<td> <%=5*5%> </td>
</tr>
</table>
</body>
</html>

6
views/c.tt
View File

@ -1,6 +0,0 @@
<html>
<body>
%my ($x) = @_;
%= $x->{'number'};
</body>
</html>

0
views/ksiazki.db
View File

7
views/q.tt
View File

@ -1,7 +0,0 @@
<html>
<body>
% my ($x) = @_;
% my @tab = $x->{'tablica'};
%= ${$tab[0]}[0]
</body>
</html>