--- trunk/lib/Frey/Web.pm 2008/11/18 16:54:10 418 +++ trunk/lib/Frey/Web.pm 2008/11/19 01:37:49 439 @@ -25,7 +25,7 @@ lazy => 1, default => sub { [ { 'Bookmarklets' => Frey::Bookmarklet->new->markup }, - { 'ClassBrowser' => Frey::ClassBrowser->new->markup }, + { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->markup }, ] }, ); @@ -136,7 +136,11 @@ my $status_line = ''; foreach my $part ( @{ $self->status } ) { - confess "part not hash ",dump( $part ) unless ref($part) eq 'HASH'; + if ( ref($part) ne 'HASH' ) { + warn "part not hash ",dump( $part ) ; + #$self->status( $part ); + next; + } foreach my $name ( keys %$part ) { my $content = $part->{$name}; if ( ref($content) ) { @@ -151,6 +155,9 @@ } } + my $url = $self->request_url; + $url =~ s{\?reload=\d+}{}; + my $html = join("\n", qq||, $self->_head_html, @@ -162,7 +169,7 @@ qq|
Frey $Frey::VERSION - | . $self->request_url . qq| + $url $status_line