% if ($state->development) { % }
% if ( $profile->top100 ) { Rambler's Top100
% } % % ### Верстка головы % ######################################################### % if ( $m->comp_exists ("/comps/$prj/block_header.msn") ) { <& "/comps/$prj/block_header.msn" &> % } else { <& /comps/block_header.msn &> % } % ### /Верстка головы % ### Главное меню % ################################################################### %#
<% Dumper($menus) %>
% if ( ref $menus eq 'ARRAY' && scalar @$menus ) { % my $i = 0;
% foreach my $menu ( @$menus ) { % my $href = $menu->{url}; % my $target; % if ( $href && $href =~ /^http:/ ) { % $href = 'http://www.rambler.ru/click?from=market_'.$prj.'&_URL='.$href; % $target = ' target="_blank"'; % } % my ($a1, $a2) = $href ? ('','') : ('',''); % }
<% $a1.$menu->{name}.$a2 %>
% } % ### /Главное меню
<%init> my $prj = $request->{project}; my $profile = $request->{project_profile}; my $menus = $profile->get_image('menus');