><% $object->id %> |
><% $object->name %> |
<%doc>
% if ( exists $props{status} ) {
% my $prop = $props{status};
% my $status_map = exists $prop->{cases} && ref $prop->{cases} eq 'ARRAY' ? $prop->{cases} : $keeper->default_status();
% my %cases = map { $_->[0] => $_->[1] } @$status_map;
<% exists $cases{$object->status} ? $cases{$object->status}.' ('.$object->status.')' : 'н/с ('.$object->status.')' %> |
% }
%doc>
% }
% }
<%args>
$tag => undef
%args>
<%init>
return unless ref $tag;
my %objects;
my $found = 0;
foreach my $class ( @{$state->{tag}->tag_destinations} ) {
my $objects = $tag->get_objects( class => $class );
if ( ref $objects eq 'ARRAY' && @$objects ) {
$objects{$class} = $objects;
$found = 1;
}
}
%init>