#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1079658681', 'name' => 'global/useful-links.html.tmpl', }, BLOCK => sub { my $context = shift || die "template sub called without context\n"; my $stash = $context->stash; my $output = ''; my $error; eval { BLOCK: { $output .= "\n"; $output .= "\n\n"; $output .= "\n\n"; $output .= "\n\n
\n \n \n \n \n \n\n \n "; if ($stash->get(['user', 0, 'login', 0])) { $output .= " \n\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 "; } $output .= "\n \n \n \n "; } else { $output .= " \n \n "; } $output .= "\n \n
\n Actions:\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 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 Preset Queries:\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 Home |\n \n Log In\n
\n
\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });