Line # Revision Author
1 296 ahitrov % if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
2 <& "/comps/$prj/header.msn" &>
3 % } else {
4 <& "/comps/header.msn" &>
5 % }
6
7
8 % ### контент
9
10 <table cellspacing="0" cellpadding="0" width="100%" border="0">
11 <tr><td width="4%"><div style="width: 10px; height: 1px"><spacer height="1" width="10" type="block"></div></td>
12 <td width="92%" valign="top" style="padding-top:11px;">
13 <div style="padding:14px 15px; width:890px;" class="hdr"><% $section->name %></div>
14
15
16 % if ( ref $desc && $desc->abstr ) {
17 <div class="about" ><% $desc->abstr %></div>
18 % }
19
20
21 <table width="100%" border="0" cellspacing="0" cellpadding="0">
22 <tr valign="top">
23 <td width="98%">
24 % my ($wday, $wcount) = (0,0);
25 % foreach my $event (@$documents) {
26 % my $date = Contenido::DateTime->new( postgres => $event->start );
27 % my $dw = $date->wday;
28 % if ($dw != $wday) {
29 % if ( $wcount && !($wcount % 4) && 1==0 ) {
30 </td>
31 <td width="2%"><spacer type="block" style="width: 2%;"></td>
32 <td width="49%">
33 % }
34 % $wcount++;
35 % $wday = $dw;
36 <div style="background:#333333;padding:10px 15px;" class="hdr"><% $date->day.' '.Encode::encode('utf-8', $date->month_name) %>, <% $wdays{$dw} %></div>
37 % }
38 <div class="plan"><b><% $date->hour %>.<% sprintf("%02d",$date->min) %></b> <span><% $event->name %></span> <% $event->abstr %></div>
39 % }
40
41 <div style="background:#333333;padding:10px 15px;" class="hdr">Показы дизайнеров RFW вне основного расписания:</div>
42
43 % if ( ref $desc && $desc->body ) {
44 <div class="about"><% $desc->body %></div>
45 % }
46
47 </td>
48 </tr>
49 </table>
50
51
52 </td>
53 <td width="4%"><div style="width: 10px; height: 1px"><spacer height="1" width="10" type="block"></div></td>
54 </tr>
55 </table>
56
57 % ### Футер
58 % ##############################################
59 % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
60 <& "/comps/$prj/footer.msn" &>
61 % } else {
62 <& "/comps/footer.msn" &>
63 % }
64 % ### /Футер
65 <%once>
66
67 my %wdays = (
68 1 => 'понедельник',
69 2 => 'вторник',
70 3 => 'среда',
71 4 => 'четверг',
72 5 => 'пятница',
73 6 => 'суббота',
74 7 => 'воскресенье',
75 );
76
77 </%once>
78 <%args>
79
80 $p => 1
81 $id => undef
82
83 </%args>
84 <%init>
85
86 my $prj = $request->{project};
87 my $profile = $request->{project_profile};
88 my $root = $request->{project_section};
89 &abort404 if $id && $id !~ /^\d+$/;
90
91 my $documents;
92 my ($section) = $keeper->get_sections (
93 s => $root->id,
94 class => 'promosuite::EventSection',
95 limit => 1,
96 status => 1,
97 );
98 my $desc;
99 if ( ref $section ) {
100 $documents = $keeper->get_documents (
101 s => $section->id,
102 class => 'promosuite::Event',
103 status => 1,
104 order_by => 'start',
105 return_mode => 'array_ref',
106 );
107 ($desc) = $keeper->get_documents (
108 s => $section->id,
109 class => 'promosuite::Article',
110 status => 'positive',
111 limit => 1,
112 );
113 }
114
115 </%init>