<% spacer(h=>5) %>

% my $i = 0; % foreach my $link ( @$links ) { % my $doc = ref $destination ? $docs->{$link->source_id} : $docs->{$link->dest_id}; % if ( ref $doc ) { % my $style = $link->status ? '' : ' color:#606060;'; % } else { % } % }

Удалить	Документ	Связь
	<% $doc->name %>		<% ref $doc ? $doc->name : '!!!висячая связь!!!' %>	редактировать

% if ( @$links ) {

% if ( ref $destination ) { % } else { % }

% }

<%args> $links => undef $docs => undef $destination => undef $source => undef <%init> return if !ref $destination && !ref $source; return unless ref $docs; return unless ref $links eq 'ARRAY' && @$links; my $document = $destination || $source;