% if ( $profile->top100 ) {
% } % % ### Верстка головы % ######################################################### % if ( $m->comp_exists ("/comps/$prj/block_header.msn") ) { <& "/comps/$prj/block_header.msn" &> % } else { <& /comps/block_header.msn &> % } % ### /Верстка головы % ### Главное меню % ################################################################### %#
% } % % ### Верстка головы % ######################################################### % 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 ? ('','') : ('','');
% if ( $i++ ) {
% }
% }
% }
% ### /Главное меню
<%args>
$alias => undef
<%init>
my $prj = $request->{project};
my $profile = $request->{project_profile};
my $menus = $profile->get_image('menus');
my $favicon = $profile->get_image('favicon');