#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1022141639', 'name' => 'account/prefs/permissions.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\n \n \n \n
"; if ($stash->get(['has_bits', 0, 'size', 0])) { $output .= "\n You have the following permission bits set on your account:\n
    "; # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get('has_bits'); 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->{'bit_description'} = $value; $output .= "\n
  • "; $output .= $stash->get('bit_description'); $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
"; } else { $output .= "\n There are no permission bits set on your account."; } $output .= "\n"; if ($stash->get(['set_bits', 0, 'size', 0])) { $output .= "\n And you can turn on or off the following bits for\n other users:\n

\n

    "; # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get('set_bits'); 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->{'bit_description'} = $value; $output .= "\n
  • "; $output .= $stash->get('bit_description'); $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

"; } $output .= "\n
\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });