--- trunk/lib/Frey/Web.pm 2008/11/28 23:34:26 611 +++ trunk/lib/Frey/Web.pm 2008/11/29 17:48:54 625 @@ -24,7 +24,8 @@ has 'request_url' => ( is => 'rw', isa => 'Uri', coerce => 1, - default => '/', + required => 1, +# default => '/', ); has 'title' => ( @@ -369,10 +370,11 @@ sub clean_status { my ($self) = shift; @head = ( 'static/frey.css' ); + my $params = { request_url => $self->request_url }; @status = ( - { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }, - { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }, - { 'INC' => Frey::INC->new->as_markup }, + { 'ClassBrowser' => Frey::ClassBrowser->new( %$params, usage_on_top => 0 )->as_markup }, + { 'Bookmarklets' => Frey::Bookmarklet->new( %$params )->as_markup }, + { 'INC' => Frey::INC->new( %$params )->as_markup }, ); $icon_html = ''; } @@ -532,8 +534,10 @@ $msg = qq|$msg|; } - $msg .= $spacer . - qq|+$line\n|; + #$msg .= $spacer . qq|$line\n|; + $msg = qq|$line$msg| + . ( $spacer ? $spacer : '' ) + . "\n"; # XXX
needs this $warnings[ $pos++ % $max ] = $msg; } @@ -544,7 +548,7 @@ my $size = -s $path; my $warnings = join("", - map { $warnings[ ( $pos + $_ ) % $max ] || '' } 1 .. $max + map { $warnings[ ( $pos + $_ ) % $max ] || '' } 0 .. ( $max - 1 ) ); my $s = length($warnings);