% % foreach (@$columns) {
\ % if ( $_->{inline} && $_->{type} eq 'checkbox' ) {
\ % } <% $_->{shortname} || $_->{rusname} %>
% } %
% % unless (@$documents) {
Документы не найдены
% } % foreach my $document (@$documents) { % next unless ref($document); <& /contenido/components/section_browse_row.msn, document => $document, columns => $columns, section => $section, toopi => $toopi, inline_status => $inline_status, lookup_elemets => \%lookup_elements, filter => $filter, params_unsection => $params_unsection, params_unclassed => $params_unclassed &> % } #- foreach @documents
% if ( ref $filter eq 'HASH' ) { % while ( my ($key, $value) = each %$filter ) { % next if $key eq 's';
% } % } % if ( $section->default_document_class || $section->default_table_class ) {
<& /contenido/components/inputs/parent.msn, name => 'tree', check => $section->id, style => 'width:100%;' &>
% } % if ( $inline_status || $delete_status ) {
% if ( $inline_status ) {
\ % } % if ( $delete_status ) {
% }
% }
<%args> $section => undef $documents => undef $columns => undef $id => undef $filter => undef <%init> return unless ref $documents eq 'ARRAY'; return unless ref $columns eq 'ARRAY'; return unless ref $section; my $toopi = $project->documents(); my $inline_status = 0; my $delete_status = 0; my $params = ref $filter eq 'HASH' ? join ('&', map { $_.'='.$filter->{$_} } keys %$filter ) : ''; my $params_unclassed = ref $filter eq 'HASH' ? join ('&', map { $_.'='.$filter->{$_} } grep { $_ ne 'class' } keys %$filter ) : ''; my $params_unsection = ref $filter eq 'HASH' ? join ('&', map { $_.'='.$filter->{$_} } grep { $_ ne 's' } keys %$filter ) : ''; my %lookup_elements; my %document_classes; my @inline_pickups = grep { my $type = exists $_->{inline_type} ? $_->{inline_type} : $_->{type}; exists $_->{inline} && ($type eq 'pickup' || $type eq 'autocomplete') } @$columns; map { $_->{document_access} = $user->section_accesses($user, $_->section); if ( $_->{document_access} == 2 ) { $delete_status = 1; } $document_classes{$_->class} = 1; } @$documents; map { if ( exists $_->{inline} && $_->{inline} ) { $inline_status = 1; } } @$columns;