--- trunk/lib/Frey/Web.pm 2008/11/20 15:23:13 482 +++ trunk/lib/Frey/Web.pm 2008/11/25 14:14:21 516 @@ -12,6 +12,7 @@ use Frey::Bookmarklet; use Frey::ClassBrowser; +use Frey::SVK; has 'head' => ( is => 'rw', @@ -221,6 +222,10 @@ |; + my $info = Frey::SVK->info; + my $revision = Frey::SVK->info->{Revision} || ''; + $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; + my $html = join("\n", qq||, $self->_head_html, @@ -231,7 +236,7 @@ $body

- Frey $Frey::VERSION + Frey $Frey::VERSION $revision $status_line $right

@@ -296,4 +301,10 @@ ; } +sub add_status { + my ( $self, $data ) = @_; + push @{ $self->status }, $data; + warn "## current status ", $#{ $self->status }, " elements"; +} + 1;