Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
---|
% % # ���� ������ �� ���� �������� % if ($link eq ''){ % <% $object %>\ % % # ���� ������ ����� �������� ������� (URI) % }elsif($ENV{REQUEST_URI} eq $link || $ENV{REQUEST_URI} eq $link.'index.html'){ % <% $object %>\ % % }else{ % <a href="<% $link %>"<% $param ? ' '.$param : '' %>><% $object %></a>\ % % } % <%args> $link => undef $object => undef $param => undef </%args>