% % foreach (@$columns) { % } % % % unless (@$documents) { % } % foreach my $document (@$documents) { % % next unless ref($document); % my $document_access = $user->section_accesses($user, $document->section); % % % for my $col (@$columns) { % if ($col->{attr} eq '_sort_') { % % % } #- for @columns % % } #- foreach @documents

	\ % if ( $_->{inline} && $_->{type} eq 'checkbox' ) { \ % } <% $_->{shortname} \|\| $_->{rusname} %>
Документы не найдены
\ % if ($document_access == 2) { % $delete_status = 1; % } else { % }	<% $document->{sorder} %> \ % % } elsif ($col->{attr} eq 'dtime') { %	<& "/contenido/components/show_dtime.msn", dtime=>$document->{dtime} &>\ % % if ($document->{ctime} ne $document->{mtime}) { % my $colortime = '#c66'; % <& "/contenido/components/show_dtime.msn", dtime=>$document->{mtime} &> \ % % } % % } elsif ($col->{attr} eq 'name') { %	contenido_status_style ? ' style="' . $document->contenido_status_style . '"' : '' %> class="<% $document->status ? '':'hiddensect' %>">\ % % my $name=$document->name ? $document->name : 'Безымянный документ N'.$document->id; % if ($document_access == 2) { % contenido_status_style ? ' style="' . $document->contenido_status_style . '"' : '' %> href="document.html?id=<% $document->id %>&class=<% $document->class %><% $params_unclassed ? '&'.$params_unclassed : '' %>"><% $name \| h %> \ % % } else { % <% $name \| h %>\ % % } % \ % % } elsif ($col->{attr} eq 'id') { %	\ % if ($document_access == 2) { <% $document->id %> \ % } else { <% $document->id %> \ % } \ % % } elsif ( exists $col->{inline} && $col->{inline} ) { % $inline_status = 1; % my $attr = $col->{attr}; % if ( $col->{type} =~ /^(string\|integer\|float)$/ && $col->{inline} ) { % my $style = $col->{inline_style} ? $col->{inline_style} : ($col->{type} =~ /^(integer\|float)$/ ? 'text-align:right; ' : '' ); % $style .= $col->{inline_width} ? ' width:'.$col->{inline_width}.'px; ' : ' width:65px; ';	% } elsif ($col->{type} eq 'text') { % my $style = $col->{inline_style} ? $col->{inline_style} : ''; % $style .= $col->{inline_width} ? ' width:'.$col->{inline_width}.'px; ' : ' width:100px; '; % $style .= $col->{inline_height} ? ' width:'.$col->{inline_height}.'px; ' : ' height:70px; '; % my $value = $document->$attr; % for ( $value ) { % s//>/sgi; % }	<% $value %> % } elsif ($col->{type} eq 'checkbox') { % my $checked = $document->$attr ? ' checked' : '';	> % } elsif ($col->{type} eq 'select') { % my $options = {}; % if ($toopi && (ref($toopi) eq 'HASH') && (exists($toopi->{$document->class}))) { % %{ $options } = %{ $toopi->{$document->class} }; % } % my $values = $options->{$col->{attr}};	% } elsif ($col->{type} eq 'status') { % my $cases = $col->{cases}; % if ( ref $cases eq 'ARRAY' ) {	% } % } elsif ($col->{type} eq 'pickup' \|\| $col->{type} eq 'autocomplete') { % my %opts = %{ $col->{lookup_opts} }; % my $doc; % if ( $document->$attr ) { % $doc = $keeper->get_document_by_id( $document->$attr, %opts ); % }	% } elsif ($col->{type} eq 'lookup') { % my %opts = %{ $col->{lookup_opts} }; % delete $opts{search_by} if exists $opts{search_by}; % my $docs; % if ( exists $lookup_elements{$col->{attr}} ) { % $docs = $lookup_elements{$col->{attr}}; % } else { % $docs = $keeper->get_documents( %opts, return_mode => 'array_ref', names => 1 ); % $lookup_elements{$col->{attr}} = $docs; % } % if ( ref $docs eq 'ARRAY' && @$docs ) {	% } else {	<% $document->$attr %>\ % } % } else {	% } % % } elsif ($col->{attr} eq 'class') { %	<% $document->class_name %> (<% $document->class %>)\ % % } elsif ($col->{type} eq 'datetime') { %	<& "/contenido/components/show_dtime.msn", dtime=>$document->{$col->{attr}} &>\ % % } elsif ($col->{attr} eq '_act_') { %	\ % if ($document_access == 2) { % \ \ \ % if ( $document->status != 0 ) { \ % } % if ( $document->status != 1 ) { \ % } \ % % } else { \ % } % if ( $inline_status ) { % } % if ( $delete_status ) { % } % % } else { % my $attr = $col->{attr}; % if ($col->{type} eq 'date') { % my $date=$document->{$col->{attr}}; % $date=~/(\d{4}-\d{2}-\d{2})/;	<% $1 \|\| ' ' %>\ % } elsif ($col->{type} eq 'datetime') {	<% $document->{$col->{attr}} \|\| ' ' %>\ % } elsif ($col->{type} eq 'integer') {	<% $document->{$col->{attr}} %> \ % } elsif ($col->{type} eq 'lookup' \|\| $col->{type} eq 'pickup' \|\| $col->{type} eq 'autocomplete') {	\ % my $id = $document->{$col->{attr}}; % if ($id) { % my ($doc)=$keeper->get_documents( ( ref($col->{lookup_opts}) ? %{$col->{lookup_opts}} : () ), id=>$id); % if ($doc) { <% $doc->name \|\| $doc->id %> \ % } else { <% $document->{$col->{attr}} %>???\ % } % } else { NULL\ % } % } elsif ($col->{type} eq 'checkbox') {	<% $document->$attr ? '' : ' ' %>\ % } elsif ($col->{type} eq 'status') { % my $status_map = ref $col->{cases} eq 'ARRAY' ? $col->{cases} : $keeper->default_status(); % my ($doc_status) = grep { $_->[0] eq $document->{$col->{attr}} } @$status_map; % $doc_status \|\|= [$document->{$col->{attr}}, 'Неизвестный'];	<% $doc_status->[1].'('.$doc_status->[0].')' %>\ % } else {	<% defined($document->$attr) ? $document->$attr : ' ' %>\ % } % }

% if ( ref $filter eq 'HASH' ) { % while ( my ($key, $value) = each %$filter ) { % next if $key eq 's'; % } % } % if ( $inline_status || $delete_status ) {

% if ( $inline_status ) { % } % if ( $delete_status ) { % }

% } % if ( $section->default_document_class || $section->default_table_class ) {

<& /contenido/components/inputs/parent.msn, name => 'tree', check => $section->id &>

% }

<%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 @inline_pickups = grep { exists $_->{inline} && ($_->{type} eq 'pickup' || $_->{type} eq 'autocomplete') } @$columns;