--- Webpacus/lib/Webpacus.pm	2005/11/21 17:46:27	83
+++ Webpacus/lib/Webpacus.pm	2005/12/17 23:41:10	283
@@ -9,14 +9,24 @@
 #         -Debug: activates the debug mode for very useful log messages
 # Static::Simple: will serve static files from the applications root directory
 #
-use Catalyst qw/-Debug Static::Simple Prototype Unicode::Encoding/;
+use Catalyst qw/-Debug
+	Prototype
+	Config::YAML
+	FillInForm
+	SubRequest
+	Static::Simple
+/;
+#	FormValidator
 
-our $VERSION = '0.01';
+our $VERSION = '0.23-dev';
 
 #
 # Configure the application
 #
-__PACKAGE__->config( name => 'Webpacus', encoding => 'ISO-8859-2' );
+__PACKAGE__->config(
+	name => 'Webpacus',
+	config_file => 'config.yml',
+);
 
 #
 # Start the application
@@ -55,15 +65,29 @@
 sub end : Private {
     my ( $self, $c ) = @_;
 
-    # Forward to View unless response body is already defined
-    $c->forward('View::TT') unless $c->response->body;
+    $c->stash->{webpacus_version} = $VERSION;
+
+    if ($c->response->body) {
+    	$c->log->debug("at end body exists, we won't touch it!");
+    } else {
+		$c->fillform( $c->req->params );
+
+		# Forward to View unless response body is already defined
+		$c->forward('View::TT');
+
+		$c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new WebPAC.Suggest(#gs;
+		$c->response->{body} =~ s#\Qnew Ajax.Updater(\E#new WebPAC.Updater(#gs;
+
+#		$c->log->debug( $c->response->body );
+    }
+
 }
 
 =back
 
 =head1 AUTHOR
 
-Dobrica Pavlinusic,,,
+Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
 
 =head1 LICENSE