The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<&|/l&>No search to operate on.</&>
<%INIT>
$Query =~ s/^\s+|\s+$//g;
if (length($Query) and $SearchType =~ /^(?:Project|User|Ticket)$/) {
    my $List = $m->comp($SearchType, Query => $Query);
    if ($List) {
	return $m->comp('/Foundry/Trove/List', ARGS => \%ARGS, Begin => $Begin, List => $List)
	    if $SearchType eq 'Project';
	return $m->comp('/Foundry/Project/Tracker/List', List => $List, Begin => $Begin, URL => '/Foundry/Project/Tracker/Display.html', Hide => '!', ARGS => \%ARGS)
	    if $SearchType eq 'Ticket';
	return $m->comp('/Foundry/User/List', ARGS => \%ARGS, Begin => $Begin, List => $List)
	    if $SearchType eq 'User';
	return $m->print(loc("Under Construction."));
    }
    return if defined $List;
    return $m->print(loc("Cannot find any matching items."));
}
</%INIT>
<%ARGS>
$SearchType => 'Project'
$Query	    => ''
$Begin	    => 0
</%ARGS>