#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1029221823', 'name' => 'account/prefs/prefs.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"; # CAPTURE $stash->set('filtered_login', do { my $output = ''; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('login'); &$filter($output); }; $output; }); $output .= $context->process('global/header.html.tmpl', { 'title' => 'User Preferences', 'h2' => $stash->get('filtered_login'), 'style' => 'td.selected_tab { border-width: 2px 2px 0px; border-style: solid; } td.unselected_tab, td.spacer { border-width: 0px 0px 2px 0px; border-style: solid; }' }); $output .= "\n"; $stash->set('tabs', [ { 'name' => 'account', 'description' => 'Account settings', 'saveable' => '1' }, { 'name' => 'email', 'description' => 'Email settings', 'saveable' => '1' }, { 'name' => 'footer', 'description' => 'Page footer', 'saveable' => '1' }, { 'name' => 'permissions', 'description' => 'Permissions', 'saveable' => '0' } ]); $output .= "\n\n
\n "; # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get('tabs'); 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->{'tab'} = $value; if ($stash->get(['tab', 0, 'name', 0]) eq $stash->get('current_tab_name')) { $stash->set('current_tab', $stash->get('tab')); $output .= "\n | "; $output .= $stash->get(['tab', 0, 'description', 0]); $output .= "\n | "; } else { $output .= "\n\n get(['tab', 0, 'name', 0]); $output .= "\">"; $output .= $stash->get(['tab', 0, 'description', 0]); $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\n |
\n \n The changes to your "; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('lower') || $context->throw($context->error); $output .= $stash->get(['current_tab', 0, 'description', 0]); &$filter($output); }; $output .= " have been saved.\n \n
"; if ($stash->get('changes_saved') ne 1) { $output .= "\n"; $output .= $stash->get('changes_saved'); $output .= "\n
"; } } $output .= "\n\n