% if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
<& "/comps/$prj/header.msn" &>
% } else {
<& "/comps/header.msn" &>
% }


% ### контент

<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tr><td width="4%"><div style="width: 10px; height: 1px"><spacer height="1" width="10" type="block"></div></td>
<td width="92%" valign="top" style="padding-top:11px;">
<div style="padding:14px 15px; width:890px;"  class="hdr"><% $section->name %></div>


% if ( ref $desc && $desc->abstr ) {
<div class="about" ><% $desc->abstr %></div>
% }


<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="98%">
% my ($wday, $wcount) = (0,0);
% foreach my $event (@$documents) {
%	my $date = Contenido::DateTime->new( postgres => $event->start );
%	my $dw = $date->wday;
%	if ($dw != $wday) {
%		if ( $wcount && !($wcount % 4) && 1==0 ) {
</td>
<td width="2%"><spacer type="block" style="width: 2%;"></td>
<td width="49%">
%		}
%		$wcount++;
%		$wday = $dw;
<div style="background:#333333;padding:10px 15px;" class="hdr"><% $date->day.' '.Encode::encode('utf-8', $date->month_name) %>, <% $wdays{$dw} %></div>
%	}
<div class="plan"><b><% $date->hour %>.<% sprintf("%02d",$date->min) %></b> <span><% $event->name %></span> <% $event->abstr %></div>
% }

<div style="background:#333333;padding:10px 15px;" class="hdr">Показы дизайнеров RFW вне основного расписания:</div>

% if ( ref $desc && $desc->body ) {
<div class="about"><% $desc->body %></div>
% }

</td>
</tr>
</table>


</td>
<td width="4%"><div style="width: 10px; height: 1px"><spacer height="1" width="10" type="block"></div></td>
</tr>
</table>

% ### Футер
% ##############################################
% if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
<& "/comps/$prj/footer.msn" &>
% } else {
<& "/comps/footer.msn" &>
% }
% ### /Футер
<%once>

	my %wdays = (
		1	=> 'понедельник',
		2	=> 'вторник',
		3	=> 'среда',
		4	=> 'четверг',
		5	=> 'пятница',
		6	=> 'суббота',
		7	=> 'воскресенье',
	);

</%once>
<%args>

        $p      => 1
        $id     => undef

</%args>
<%init>

  my $prj = $request->{project};
  my $profile = $request->{project_profile};
  my $root = $request->{project_section};
  &abort404     if $id && $id !~ /^\d+$/;

  my $documents;
  my ($section) = $keeper->get_sections (
		s	=> $root->id,
		class	=> 'promosuite::EventSection',
		limit	=> 1,
		status	=> 1,
	);
  my $desc;
  if ( ref $section ) {
	$documents = $keeper->get_documents (
		s	=> $section->id,
		class	=> 'promosuite::Event',
		status	=> 1,
		order_by	=> 'start',
		return_mode	=> 'array_ref',
        );
	($desc) = $keeper->get_documents (
		s	=> $section->id,
		class	=> 'promosuite::Article',
		status	=> 'positive',
		limit	=> 1,
        );
  }

</%init>