--- trunk/lib/Frey/Run.pm 2009/01/07 19:41:37 960 +++ trunk/lib/Frey/Run.pm 2009/01/07 19:41:48 961 @@ -84,7 +84,7 @@ $self->load_class( $class ); if ( my $form = $self->params_form ) { - $html = $self->page( body => $form ); + $html = $self->html_page( body => $form ); warn "got required params form for $class ", $self->run, " format: ", $self->format; } else { @@ -110,7 +110,7 @@ $o->depends if $o->can('depends'); if ( $self->run =~ m{as_markup} ) { - $html = $o->page( run => $self->run ); + $html = $o->html_page( run => $self->run ); } elsif ( $self->run =~ m{(.*as_sponge)} ) { $data = $o->$1; confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; @@ -146,7 +146,7 @@ $o->title( $class ); - $html = $o->page( body => $body ) if $body && !$html; + $html = $o->html_page( body => $body ) if $body && !$html; $self->content_type( $o->content_type ); confess "no html output for $class ", $o->dump unless defined $html; @@ -170,7 +170,7 @@ my $o = Frey->new; $o->{request_url} = $self->request_url; # sigh, this is dynamic languge, right? Frey::Web->meta->apply( $o ); - $html = $o->page( body => $self->error( $error, undef ) ); + $html = $o->html_page( body => $self->error( $error, undef ) ); } warn $self->class, " produced ", length($html), " bytes of ", $self->content_type;