/[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 100 by dpavlin, Tue Nov 22 14:45:17 2005 UTC revision 222 by dpavlin, Mon Dec 5 19:15:01 2005 UTC
# Line 14  use Catalyst qw/-Debug Line 14  use Catalyst qw/-Debug
14          Prototype          Prototype
15          Config::YAML          Config::YAML
16          FillInForm          FillInForm
17            SubRequest
18  /;  /;
19  #       FormValidator  #       FormValidator
20    
21  our $VERSION = '0.01';  our $VERSION = '0.16-dev';
22    
23  #  #
24  # Configure the application  # Configure the application
# Line 64  sub default : Private { Line 65  sub default : Private {
65  sub end : Private {  sub end : Private {
66      my ( $self, $c ) = @_;      my ( $self, $c ) = @_;
67    
68        $c->stash->{webpacus_version} = $VERSION;
69    
70      # Forward to View unless response body is already defined      # Forward to View unless response body is already defined
71      $c->forward('View::TT') unless $c->response->body;      $c->forward('View::TT') unless $c->response->body;
72    
73      $c->fillform; # defaults to $c->req->parameters      $c->fillform; # defaults to $c->req->parameters
74    
75        $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new Ajax.Suggest(#gs;
76  #    $c->log->debug( $c->response->body );  #    $c->log->debug( $c->response->body );
77    
78  }  }
# Line 77  sub end : Private { Line 81  sub end : Private {
81    
82  =head1 AUTHOR  =head1 AUTHOR
83    
84  Dobrica Pavlinusic,,,  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
85    
86  =head1 LICENSE  =head1 LICENSE
87    
Legend:
Removed from v.100  
changed lines
  Added in v.222
  ViewVC Help
Powered by ViewVC 1.1.26