Line # Revision Author
1 8 ahitrov@rambler.ru
2 <table border="0" width="80%" class="tform">
3 <tr>
4 <td width="40%">Редактирование существующих профилей</td>
5 <td>
6 % for my $tab_id (keys(%{ $toopi }))
7 % {
8 % my $tab = $toopi->{$tab_id};
9 <a href="tabs.html?id=<% $tab->{id} %>"><% $tab->{name} %> (<% $tab->{id} %>)</a><br>
10 % }
11 </td>
12 </tr>
13
14 <tr><td height="20"></td></tr>
15
16 </table>
17 <%init>
18
19 use vars qw($keeper $request);
20 my $toopi = $project->tabs();
21
22 return undef if ( (! ref($toopi)) || (scalar(keys(%{ $toopi })) <= 0) );
23
24 </%init>