summaryrefslogtreecommitdiffstats
path: root/views/a.tt
blob: 6b45faca88e67e9d504d8e9004fc1ad12a6e9fd0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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>