Line # Revision Author
1 8 ahitrov@rambler.ru %
2 % # если ссылка не была передана
3 % if ($link eq ''){
4 %
5 <% $object %>\
6 %
7 % # если ссылка равна текущему запросу (URI)
8 % }elsif($ENV{REQUEST_URI} eq $link || $ENV{REQUEST_URI} eq $link.'index.html'){
9 %
10 <% $object %>\
11 %
12 % }else{
13 %
14 <a href="<% $link %>"<% $param ? ' '.$param : '' %>><% $object %></a>\
15 %
16 % }
17 %
18 <%args>
19 $link => undef
20 $object => undef
21 $param => undef
22 </%args>