"; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('title'); &$filter($output); }; $output .= "

#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1113888108', 'name' => 'global/header.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('h1', $stash->get('title'), 1); $stash->set('h2', '', 1); $stash->set('bgcolor', '#CCCC99', 1); $stash->set('onload', '', 1); $stash->set('style', 'A:link, A:visited, A:active { color: #663333 } BODY, TD { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px }', 1); $output .= "\n\n\n \n "; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('title'); &$filter($output); }; $output .= "\n \n"; $output .= "\n"; $output .= $stash->get('header_html'); $output .= "\n "; if ($stash->get('javascript')) { $output .= "\n "; } $output .= "\n "; if ($stash->get('style')) { $output .= "\n "; } $output .= "\n "; if ($stash->get('style_urls')) { # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get('style_urls'); 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->{'style_url'} = $value; $output .= "\n get('style_url'); $output .= "\" rel=\"stylesheet\" type=\"text/css\">";; ($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"; $output .= "\n\n get('bgcolor'); $output .= "\" onload=\""; $output .= $stash->get('onload'); $output .= "\">\n\n"; $output .= "\n"; $output .= $context->include('global/banner.html.tmpl'); $output .= "\n"; if ($stash->get('h1') || $stash->get('h2')) { $output .= "\n \n \n \n \n \n \n

\n \n \n \n \n

\n "; $output .= $stash->get('h1'); $output .= "\n

"; $output .= $stash->get('h2'); $output .= "

"; } $output .= "\n"; if ($stash->get('message')) { $output .= "\n

\n "; $output .= $stash->get('message'); $output .= "\n

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