| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 3 | ahitrov@rambler.ru | <& "/contenido/components/header.msn" &> |
| 2 | <& "/contenido/components/naviline.msn", sect=>$sect_id &> | ||
| 3 | <font face="arial" size="-1"> | ||
| 4 | <blockquote> | ||
| 5 | <h4 style="margin-bottom:5px;">���������� ���������:</h4> | ||
| 6 | <blockquote style="margin-top:5px;"> | ||
| 7 | <table width="70%" border="1" cellpadding="3" cellspacing="0"> | ||
| 8 | <tr bgcolor="#efefef"> | ||
| 9 | <td><font size="-1" face="arial"><b>�������� ���������</b></font></td> | ||
| 10 | <td><font size="-1" face="arial"><b>��� ���������</b></font></td> | ||
| 11 | <td><font size="-1" face="arial"><b>��������</b></font></td> | ||
| 12 | </tr> | ||
| 13 | % if (@documents) | ||
| 14 | % { | ||
| 15 | % foreach my $document (@documents) | ||
| 16 | % { | ||
| 17 | % my $document_access = $user->section_accesses($user, $document->section); | ||
| 18 | <tr> | ||
| 19 | <td><font face="times" size="-1"><% (!$document->status ? '<span class="hiddensect">' : '') %><% $document_access == 2 ? '<a href="document.html?id=' . $document->id . '&class='. $document->class .'">' : '' %><% $document->name %> <% $document_access == 2 ? '</a>' : '' %><% (!$document->status() ? '</span>':'') %></font></td> | ||
| 20 | <td><font face="times" size="-1"><% $document->class_name() %></font></td> | ||
| 21 | <td><font face="times" size="-1"> </font></td> | ||
| 22 | </tr> | ||
| 23 | % } | ||
| 24 | % } | ||
| 25 | % else | ||
| 26 | % { | ||
| 27 | <td align="center" colspan="3"><font face="times" size="-1">���������� ���</font></td> | ||
| 28 | % } | ||
| 29 | </table> | ||
| 30 | </blockquote> | ||
| 31 | </blockquote> | ||
| 32 | </font> | ||
| 33 | </body> | ||
| 34 | </html> | ||
| 35 | <%ARGS> | ||
| 36 | $sect_id => 1 | ||
| 37 | </%ARGS> | ||
| 38 | <%INIT> | ||
| 39 | my $from = $ARGS{'from_year'}.'-'.sprintf("%02d", $ARGS{'from_month'}).'-'.sprintf("%02d",$ARGS{'from_day'}); | ||
| 40 | my $to = $ARGS{'to_year'}.'-'.sprintf("%02d", $ARGS{'to_month'}).'-'.sprintf("%02d",$ARGS{'to_day'}); | ||
| 41 | my $filter = $m->comp('/contenido/components/context.msn', name => 'filter'); | ||
| 42 | my %opts = | ||
| 43 | ( | ||
| 44 | s => $sect_id, | ||
| 45 | include_parent => 1, | ||
| 46 | date => [$from, $to], | ||
| 47 | ); | ||
| 48 | |||
| 49 | $opts{class} = $ARGS{class} if (length($ARGS{class}) > 0); | ||
| 50 | $opts{status} = $ARGS{status} if ($ARGS{status} != 9999); | ||
| 51 | $opts{dive} = 1 if ($ARGS{dive} > 0); | ||
| 52 | |||
| 53 | my @documents_ = $keeper->get_documents(%opts); | ||
| 54 | my @documents = (); | ||
| 55 | if ($filter > 0) | ||
| 56 | { | ||
| 57 | for my $doc (@documents_) | ||
| 58 | { | ||
| 59 | my $ok = 0; | ||
| 60 | map { if ($_ == $filter) { $ok = 1 } } ( $doc->sections() ); | ||
| 61 | if ($ok) | ||
| 62 | { | ||
| 63 | push (@documents, $doc); | ||
| 64 | } | ||
| 65 | } | ||
| 66 | } else { | ||
| 67 | @documents = @documents_; | ||
| 68 | } | ||
| 69 | </%INIT> |