Index: document_links_list.msn =================================================================== --- document_links_list.msn (revision 23) +++ document_links_list.msn (revision 24) @@ -4,6 +4,11 @@ Удалить Документ +% if ( @props ) { +% foreach my $prop ( @props ) { +<% $prop->{shortname} || $prop->{rusname} %> +% } +% } Связь % my $i = 0; @@ -12,12 +17,18 @@ % if ( ref $doc ) { % my $style = $link->status ? '' : ' color:#606060;'; - + <% $doc->name %> % } else { -<% ref $doc ? $doc->name : '!!!висячая связь!!!' %> +!!!висячая связь!!! % } +% if ( @props ) { +% foreach my $prop ( @props ) { +% my $field = $prop->{attr}; +<% $link->$field %> +% } +% } редактировать % } @@ -49,5 +60,7 @@ return unless ref $links eq 'ARRAY' && @$links; my $document = $destination || $source; + my @props = $links->[0]->structure; + @props = sort { $a->{column} <=> $b->{column} } grep { $_->{attr} ne 'class' && $_->{type} =~ /string|integer/ } grep { $_->{column} } @props; \ No newline at end of file