--- 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( $_ );
+ }
+ }
+
};
};