--- trunk/lib/Frey/Web.pm 2009/01/09 14:52:58 968 +++ trunk/lib/Frey/Web.pm 2009/03/12 20:56:04 1045 @@ -203,7 +203,7 @@ my ( $package, $path, $line ) = caller(1); $content = "/$content" if $content !~ m{[\n\r]} && -e $content; - if ( $content =~ $re_html ) { + if ( $content =~ $re_html && $what ne 'js' ) { $head = qq| $content @@ -299,7 +299,7 @@ my $right = qq| - + reload $exit @@ -320,6 +320,12 @@ # $title =~ s{(\w)\w+::}{$1:}g; # XXX compress names of classes + $self->add_css(qq| + body { + padding-bottom: 3em; /* don't overlap status line */ + } + |); + my $html = join("\n", qq||, $self->_head_html,