Line # Revision Author
1 8 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 %>&nbsp;<% $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">&nbsp;</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>