Repository List / Contenido / utf8 / samples / promosuite / comps / comps / block_mainmenu.msn @ r296

% ### Главное меню
% ###################################################################
%#<pre><% Dumper($menus) %></pre>
% if ( ref $menus eq 'ARRAY' && scalar @$menus ) {
%	my $i = 0;
<div class="head_menus">
%	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 ? ('<a href="'.$href.'"'.$target.'>','</a>') : ('','');
%		if ( $i++ ) {

%		}
<div class="m-top-<% $alias && $menu->{alias} eq $alias ? '2' : '1' %>"><% $a1.$menu->{name}.$a2 %></div>
%	}
</div>
% }
% ### /Главное меню
<%args>

	$alias	=> undef

</%args>
<%init>

  my $prj = $request->{project};
  my $profile = $request->{project_profile};
  my $menus = $profile->get_image('menus');
  return	unless ref $menus eq 'ARRAY' && @$menus;

</%init>