Revision 296 (by ahitrov, 2013/03/26 17:59:01) Promosite (anthill) project source
 
% if ( $doc->html ) {
%	my $html = $doc->html;
%	$html =~ s/<%\ +\$prj\ +%>/$prj/gi;
<% $html %>
% }else{
%	### Некоторая стандартная верстка промоблока
%	############################################
%	my $img = $doc->get_image ('picture');
%	my $href = $doc->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>') : ('','');
<table border="0" cellspacing="0" cellpadding="0" width="100%" class="infoblock">
<tr>
<td class="cc" width="100%">
<h1><% $doc->name %></h1>
<div class="promocontent">
<% $a1 %>\
% if ( ref $img && exists $img->{filename} ) {
<center><img src="<% $img->{filename} %>" width="<% $img->{width} %>" height="<% $img->{height} %>" alt="<% $img->{alt} %>" border="0" class="imageBorder"><br></center>
% }
<& /inc/text_format.msn, doc => $doc, field => 'abstr' &>
<% $a2 %>
</div>
</td>
</tr>
</table>
%	### /Некоторая стандартная верстка промоблока
% }
<%args>

	$doc	=> undef

</%args>
<%init>

  return	unless ref $doc;
  my $prj = $request->{project};

</%init>