--- trunk/lib/Frey/Web.pm 2009/04/27 18:43:18 1065 +++ branches/zimbardo/lib/Frey/Web.pm 2009/07/05 21:40:16 1172 @@ -1,7 +1,7 @@ package Frey::Web; use Moose::Role; -with 'Frey::Session'; +with 'Frey::Session', 'Frey::Class::Icon'; use Data::Dump qw/dump/; use Carp qw/confess cluck carp/; @@ -262,8 +262,6 @@ our @status; sub status { @status }; -our $icon_html; - sub html_page { my $self = shift; my $a = {@_}; @@ -314,7 +312,15 @@ my $revision = $svk->info->{Revision} || ''; $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; - $self->add_icon unless $icon_html; + $status_line = $ENV{FREY_DEV} ? qq| +