/[Frey]/trunk/lib/Frey/Run.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Run.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 893 by dpavlin, Wed Dec 24 21:42:00 2008 UTC revision 934 by dpavlin, Tue Jan 6 00:22:56 2009 UTC
# Line 75  sub html { Line 75  sub html {
75          my ( $self ) = @_;          my ( $self ) = @_;
76    
77          my ($html,$body,$data);          my ($html,$body,$data);
78    
79            my $current_status;
80            $current_status->{$_}++ foreach $self->status;
81    
82          eval {          eval {
83                  my $class = $self->class;                  my $class = $self->class;
84                  $self->load_class( $class );                  $self->load_class( $class );
# Line 118  sub html { Line 122  sub html {
122                                          $body .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>';                                          $body .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>';
123                                          $body .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} };                                          $body .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} };
124                                          $body .= '</table>';                                          $body .= '</table>';
125                                            
126                                            delete( $data->{rows} ); # too much dumplication
127                                            $body .= Frey::View::Dumper->new( data => $data )->as_markup if $data;
128                                  }                                  }
129                          } elsif ( $self->run =~ m{(as_data|sql)} ) {                          } elsif ( $self->run =~ m{(as_data|sql)} ) {
130                                  my $run = $self->run;                                  my $run = $self->run;
# Line 143  sub html { Line 150  sub html {
150                          $self->content_type( $o->content_type );                          $self->content_type( $o->content_type );
151    
152                          confess "no html output for $class ", $o->dump unless defined $html;                          confess "no html output for $class ", $o->dump unless defined $html;
153    
154                            if ( $o->can('status') ) {
155                                    foreach ( $o->status ) {
156                                            next if $current_status->{$_}++;
157                                            $self->add_status( $_ );
158                                            warn "# run add_status: ", $self->dump( $_ );
159                                    }
160                            }
161    
162                  };                  };
163    
164          };          };

Legend:
Removed from v.893  
changed lines
  Added in v.934

  ViewVC Help
Powered by ViewVC 1.1.26