\n \n Actions:\n | \n \n \n New | \n Query |\n \n bug # \n | \n \n Reports \n ";
if ($stash->get(['user', 0, 'login', 0]) && $stash->get(['Param', [ 'usevotes' ]])) {
$output .= "\n | My Votes";
}
$output .= " \n | \n\n | \n ";
if ($stash->get(['user', 0, 'login', 0])) {
$output .= " \n\n \n Home |\n Edit prefs";
if ($stash->get(['user', 0, 'groups', 0, 'tweakparams', 0])) {
$output .= ', parameters';
}
if ($stash->get(['user', 0, 'groups', 0, 'editusers', 0]) || ($stash->get(['user', 0, 'blessgroupset', 0]) > 0)) {
$output .= ', users';
}
if ($stash->get(['user', 0, 'groups', 0, 'editcomponents', 0])) {
$output .= ', products';
}
if ($stash->get(['user', 0, 'groups', 0, 'editcomponents', 0])) {
$output .= ', attachment statuses';
}
if ($stash->get(['user', 0, 'groups', 0, 'creategroups', 0])) {
$output .= ', groups';
}
if ($stash->get(['user', 0, 'groups', 0, 'editkeywords', 0])) {
$output .= ', keywords';
}
if ($stash->get(['user', 0, 'groups', 0, 'tweakparams', 0])) {
$output .= ' | Sanity check';
}
$output .= "\n\n | Log out ";
$output .= $stash->get(['user', 0, 'login', 0]);
$output .= "\n | \n
\n\n ";
$output .= "\n ";
$stash->set('preset_queries', $stash->get(['user', 0, 'showmybugslink', 0]));
# FOREACH
do {
my ($value, $error, $oldloop);
my $list = $stash->get(['user', 0, 'queries', 0]);
unless (UNIVERSAL::isa($list, 'Template::Iterator')) {
$list = Template::Config->iterator($list)
|| die $Template::Config::ERROR, "\n";
}
($value, $error) = $list->get_first();
eval { $oldloop = $stash->get('loop') };
$stash->set('loop', $list);
eval {
LOOP: while (! $error) {
$stash->{'q'} = $value;
# CAPTURE
$stash->set('preset_queries', do {
my $output = '';
if ($stash->get(['q', 0, 'linkinfooter', 0])) {
$output .= 1;
}
$output;
});
;
($value, $error) = $list->get_next();
}
};
$stash->set('loop', $oldloop);
die $@ if $@;
$error = 0 if $error && $error eq Template::Constants::STATUS_DONE;
die $error if $error;
};
$output .= "\n \n ";
if ($stash->get('preset_queries')) {
$output .= "\n \n Preset Queries:\n | ";
}
$output .= "\n \n ";
if ($stash->get(['user', 0, 'showmybugslink', 0])) {
# CAPTURE
$stash->set('filtered_username', do {
my $output = '';
# FILTER
$output .= do {
my $output = '';
my $filter = $context->filter('url_quote')
|| $context->throw($context->error);
$output .= $stash->get(['user', 0, 'login', 0]);
&$filter($output);
};
$output;
});
$output .= "\n get(['Param', [ 'mybugstemplate' ], 'replace', [ '%userid%', $stash->get('filtered_username') ]]);
$output .= "\">My Bugs";
$stash->set('print_pipe', 1);
}
$output .= "\n";
# FOREACH
do {
my ($value, $error, $oldloop);
my $list = $stash->get(['user', 0, 'queries', 0]);
unless (UNIVERSAL::isa($list, 'Template::Iterator')) {
$list = Template::Config->iterator($list)
|| die $Template::Config::ERROR, "\n";
}
($value, $error) = $list->get_first();
eval { $oldloop = $stash->get('loop') };
$stash->set('loop', $list);
eval {
LOOP: while (! $error) {
$stash->{'q'} = $value;
if ($stash->get(['q', 0, 'linkinfooter', 0])) {
if ($stash->get('print_pipe')) {
$output .= ' | ';
}
$output .= "\n filter('url_quote')
|| $context->throw($context->error);
$output .= $stash->get(['q', 0, 'name', 0]);
&$filter($output);
};
$output .= "\">";
# FILTER
$output .= do {
my $output = '';
my $filter = $context->filter('html')
|| $context->throw($context->error);
$output .= $stash->get(['q', 0, 'name', 0]);
&$filter($output);
};
$output .= "";
$stash->set('print_pipe', 1);
}
$output .= " ";;
($value, $error) = $list->get_next();
}
};
$stash->set('loop', $oldloop);
die $@ if $@;
$error = 0 if $error && $error eq Template::Constants::STATUS_DONE;
die $error if $error;
};
$output .= "\n | \n
\n ";
}
else {
$output .= " \n