#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1026930517', 'name' => 'account/prefs/email.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"; $stash->set('useqacontact', $stash->get(['Param', [ 'useqacontact' ]])); $output .= "\n \n"; if ($stash->get(['Param', [ 'supportwatchers' ]])) { $output .= "\n \n \n \n\n \n \n \n\n \n \n \n "; } $output .= "\n\n \n \n \n
\n
\n
\n If you want to help cover for someone when they're on vacation, or if\n you need to do the QA related to all of their bugs, you can tell \n Bugzilla to send mail related to their bugs to you also. List the \n email addresses of any users you wish to watch here, separated by\n commas.\n
Users to watch:\n get('watchedusers'); $output .= "\">\n
\n

\n If you don't like getting a notification for \"trivial\"\n changes to bugs, you can use the settings below to\n filter some (or even all) notifications.\n

\n
\n\n
\n\n\n \n \n \n\n \n \n \n \n
\n Global options:\n
\n Only email me reports of changes made by other people\n get('excludeself')) { $output .= ' checked'; } $output .= ">\n
\n
\n\n
\nField/recipient specific options:\n
\n
\n\n\n\n \n \n \n \n\n \n \n "; if ($stash->get('useqacontact')) { $output .= "\n "; } $output .= "\n \n \n \n"; # FOREACH do { my ($value, $error, $oldloop); my $list = [ { 'name' => 'Removeme', 'description' => 'I\'m added to or removed from this capacity' }, { 'name' => 'Comments', 'description' => 'New Comments are added' }, { 'name' => 'Attachments', 'description' => 'New Attachments are added' }, { 'name' => 'Status', 'description' => 'Priority, status, severity, and/or milestone changes' }, { 'name' => 'Resolved', 'description' => 'The bug is resolved or verified' }, { 'name' => 'Keywords', 'description' => 'Keywords field changes' }, { 'name' => 'CC', 'description' => 'CC field changes' }, { 'name' => 'Other', 'description' => 'Any field not mentioned above changes' } ]; 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->{'reason'} = $value; $output .= "\n "; # FOREACH do { my ($value, $error, $oldloop); my $list = [ 'Reporter', 'Owner', 'QAcontact', 'CClist', 'Voter' ]; 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->{'role'} = $value; if ($stash->get('role') eq 'QAcontact' && ! $stash->get('useqacontact')) { ($value, $error) = $list->get_next(); next LOOP; } $output .= "\n ";; ($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 ";; ($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
get('useqacontact') ? '5' : '4'; $output .= "\" align=\"center\" width=\"50%\">\n When my relationship to this bug is:\n \n I want to receive mail when:\n
\n Reporter\n \n Assignee\n \n QA Contact\n \n CC\n \n Voter\n
\n get('role'); $output .= $stash->get(['reason', 0, 'name', 0]); $output .= "\" value=\"on\""; if ($stash->get([$stash->get('role'), 0, $stash->get(['reason', 0, 'name', 0]), 0])) { $output .= ' checked'; } $output .= ">\n "; $output .= $stash->get(['reason', 0, 'description', 0]); $output .= "\n
\n\n
\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });