--- trunk/lib/Frey/Run.pm 2008/12/24 21:42:00 893 +++ trunk/lib/Frey/Run.pm 2009/01/06 00:22:56 934 @@ -75,6 +75,10 @@ my ( $self ) = @_; my ($html,$body,$data); + + my $current_status; + $current_status->{$_}++ foreach $self->status; + eval { my $class = $self->class; $self->load_class( $class ); @@ -118,6 +122,9 @@ $body .= '' . join('', @{$data->{NAME}} ) . ''; $body .= '' . join('', @$_ ) . '' foreach @{ $data->{rows} }; $body .= ''; + + delete( $data->{rows} ); # too much dumplication + $body .= Frey::View::Dumper->new( data => $data )->as_markup if $data; } } elsif ( $self->run =~ m{(as_data|sql)} ) { my $run = $self->run; @@ -143,6 +150,15 @@ $self->content_type( $o->content_type ); confess "no html output for $class ", $o->dump unless defined $html; + + if ( $o->can('status') ) { + foreach ( $o->status ) { + next if $current_status->{$_}++; + $self->add_status( $_ ); + warn "# run add_status: ", $self->dump( $_ ); + } + } + }; };