my ($self) = @_;
my $title = UCW::CGI::html_escape($self->get('Title'));
my $hextras = $self->extras('WebHeadExtras');
- my $textras = $self->extras('WebTopExtras');
my $theme_hextras = $self->theme_head_extras;
print <<EOF ;
Content-Type: text/html
<html><head>
$hextras$theme_hextras<title>$title</title>
</head><body>
-$textras
EOF
+
$UCW::CGI::ErrorHandler::error_hook = \&error;
+
+ # WebTopExtras are evaluated separately, since they can override the error hook
+ print $self->extras('WebTopExtras');
}
sub html_bot($) {