/[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 313 by dpavlin, Wed Dec 21 22:18:56 2005 UTC
# Line 10  use warnings; Line 10  use warnings;
10  # Static::Simple: will serve static files from the applications root directory  # Static::Simple: will serve static files from the applications root directory
11  #  #
12  use Catalyst qw/-Debug  use Catalyst qw/-Debug
         Static::Simple  
13          Prototype          Prototype
         Unicode::Encoding  
14          Config::YAML          Config::YAML
15            FillInForm
16            SubRequest
17            Static::Simple
18  /;  /;
19  #       FormValidator  #       FormValidator
 #       FillInForm  
20    
21  our $VERSION = '0.01';  our $VERSION = '0.25-dev';
22    
23  #  #
24  # Configure the application  # Configure the application
25  #  #
26  __PACKAGE__->config(  __PACKAGE__->config(
27          name => 'Webpacus',          name => 'Webpacus',
         encoding => 'ISO-8859-2',  
28          config_file => 'config.yml',          config_file => 'config.yml',
29  );  );
30    
# Line 66  sub default : Private { Line 65  sub default : Private {
65  sub end : Private {  sub end : Private {
66      my ( $self, $c ) = @_;      my ( $self, $c ) = @_;
67    
68      # Forward to View unless response body is already defined      $c->stash->{webpacus_version} = $VERSION;
69      $c->forward('View::TT') unless $c->response->body;  
70        if ($c->response->body) {
71            $c->log->debug("at end body exists, we won't touch it!");
72        } else {
73                    $c->fillform( $c->req->params );
74    
75                    # Forward to View unless response body is already defined
76                    $c->forward('View::TT');
77    
78                    $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new WebPAC.Suggest(#gs;
79                    $c->response->{body} =~ s#\Qnew Ajax.Updater(\E#new WebPAC.Updater(#gs;
80    
81      $c->log->debug( $c->response->body );  #               $c->log->debug( $c->response->body );
82        }
83    
 #    $c->fillform; # defaults to $c->req->parameters  
84  }  }
85    
86  =back  =back
87    
88  =head1 AUTHOR  =head1 AUTHOR
89    
90  Dobrica Pavlinusic,,,  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
91    
92  =head1 LICENSE  =head1 LICENSE
93    
Legend:
Removed from v.97  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.26