% if ( $profile->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 ? ('') : ('','');
% if ( $i++ ) {
% }
<% $a1.$menu->{name}.$a2 %> |
% }
% }
% ### /Главное меню
<%init>
my $prj = $request->{project};
my $profile = $request->{project_profile};
my $menus = $profile->get_image('menus');
%init>