--- trunk/lib/Frey/Web.pm 2008/11/29 17:47:34 624 +++ 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 = ''; }