--- Webpacus/lib/Webpacus.pm 2005/11/22 14:45:17 100 +++ Webpacus/lib/Webpacus.pm 2005/12/15 02:03:25 250 @@ -10,14 +10,15 @@ # Static::Simple: will serve static files from the applications root directory # use Catalyst qw/-Debug - Static::Simple Prototype Config::YAML FillInForm + SubRequest + Static::Simple /; # FormValidator -our $VERSION = '0.01'; +our $VERSION = '0.19-dev'; # # Configure the application @@ -64,12 +65,19 @@ sub end : Private { my ( $self, $c ) = @_; - # Forward to View unless response body is already defined - $c->forward('View::TT') unless $c->response->body; - - $c->fillform; # defaults to $c->req->parameters + $c->stash->{webpacus_version} = $VERSION; -# $c->log->debug( $c->response->body ); + if ($c->response->body) { + $c->log->debug("at end body exists, we won't touch it!"); + } else { + $c->fillform( $c->req->parameters ); + + # Forward to View unless response body is already defined + $c->forward('View::TT'); + + $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new Ajax.Suggest(#gs; +# $c->log->debug( $c->response->body ); + } } @@ -77,7 +85,7 @@ =head1 AUTHOR -Dobrica Pavlinusic,,, +Dobrica Pavlinusic, C<< >> =head1 LICENSE