& /Elements/ListActions, actions => \@results &>
<&|/Widgets/TitleBox, title => loc('Saved '.$titles{$type}) &> % foreach my $Object (@Objects) { % $SavedSearches = RT::SavedSearches->new($session{CurrentUser}); % $SavedSearches->LimitToPrivacy(join('-',ref($Object),$Object->Id), $type); % my $title = $titles{$type}; % if (ref $Object eq 'RT::User' && $Object->Id == $session{CurrentUser}->Id) { % $title = loc("My saved ".lc($title)); % } else { % $title = loc("[_1]'s saved ".lc($title),$Object->Name); % } % $title = $m->interp->apply_escapes($title, 'h'); % % my $oid = join('-', ref($Object), $Object->Id, 'SavedSearch', '__id__'); % my $resultpath = $paths{$type}; % my @cols = ( % qq{__Name__/TITLE:$title}, % '__Query__', % qq{[Edit] } . % qq{[Delete]/TITLE:}, % ); % my $format = join(',', map { "'$_'" } @cols); <& /Elements/CollectionList, %ARGS, Class => 'RT::SavedSearch', Format => $format, Collection => $SavedSearches, PassArguments => [qw(Format Name id)], &> % } #foreach $Object &> | % } #foreach $type