/[webpac2]/Webpacus/lib/Webpacus.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 /Webpacus/lib/Webpacus.pm

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

revision 97 by dpavlin, Tue Nov 22 12:57:35 2005 UTC revision 200 by dpavlin, Wed Nov 30 23:21:30 2005 UTC
# Line 12  use warnings; Line 12  use warnings;
12  use Catalyst qw/-Debug  use Catalyst qw/-Debug
13          Static::Simple          Static::Simple
14          Prototype          Prototype
         Unicode::Encoding  
15          Config::YAML          Config::YAML
16            FillInForm
17  /;  /;
18  #       FormValidator  #       FormValidator
 #       FillInForm  
19    
20  our $VERSION = '0.01';  our $VERSION = '0.11-dev';
21    
22  #  #
23  # Configure the application  # Configure the application
24  #  #
25  __PACKAGE__->config(  __PACKAGE__->config(
26          name => 'Webpacus',          name => 'Webpacus',
         encoding => 'ISO-8859-2',  
27          config_file => 'config.yml',          config_file => 'config.yml',
28  );  );
29    
# Line 66  sub default : Private { Line 64  sub default : Private {
64  sub end : Private {  sub end : Private {
65      my ( $self, $c ) = @_;      my ( $self, $c ) = @_;
66    
67        $c->stash->{webpacus_version} = $VERSION;
68    
69      # Forward to View unless response body is already defined      # Forward to View unless response body is already defined
70      $c->forward('View::TT') unless $c->response->body;      $c->forward('View::TT') unless $c->response->body;
71    
72      $c->log->debug( $c->response->body );      $c->fillform; # defaults to $c->req->parameters
73    
74    #    $c->log->debug( $c->response->body );
75    
 #    $c->fillform; # defaults to $c->req->parameters  
76  }  }
77    
78  =back  =back
Legend:
Removed from v.97  
changed lines
  Added in v.200
  ViewVC Help
Powered by ViewVC 1.1.26