#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1022141638', 'name' => 'account/prefs/account.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 \n \n \n \n \n \n \n\n \n \n \n \n\n \n \n \n \n\n \n \n \n \n"; if ($stash->get(['Param', [ 'allowemailchange' ]])) { if ($stash->get('login_change_date')) { if ($stash->get('new_login_name')) { $output .= "\n \n \n \n \n \n \n \n "; } else { $output .= "\n \n \n \n \n \n \n "; } } else { $output .= "\n \n \n \n "; } } $output .= "\n \n
\n Please enter your existing password to confirm account changes.\n
Password:\n filter('html') || $context->throw($context->error); $output .= $stash->get('login'); &$filter($output); }; $output .= "\">\n \n

New password:\n \n
Re-enter new password:\n \n
Your real name (optional, but encouraged):\n filter('html') || $context->throw($context->error); $output .= $stash->get('realname'); &$filter($output); }; $output .= "\">\n
Pending email address:"; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('new_login_name'); &$filter($output); }; $output .= "
Change request expires:"; $output .= $stash->get('login_change_date'); $output .= "
Confirmed email address:"; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('login'); &$filter($output); }; $output .= "\n
Completion date:"; $output .= $stash->get('login_change_date'); $output .= "
New email address:\n \n
\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });