Parent Directory | Revision Log
r9104@llin: dpavlin | 2005-11-24 17:32:00 +0100 first try at re-implementing editor in Prototype and script.aculo.us and mir.aculo.us, it's not as easy as it seems.
1 | package Webpacus::Controller::Editor; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use base 'Catalyst::Controller'; |
6 | |
7 | =head1 NAME |
8 | |
9 | Webpacus::Controller::Editor - Catalyst Controller |
10 | |
11 | =head1 SYNOPSIS |
12 | |
13 | See L<Webpacus> |
14 | |
15 | =head1 DESCRIPTION |
16 | |
17 | Catalyst Controller. |
18 | |
19 | =head1 METHODS |
20 | |
21 | =over 4 |
22 | |
23 | =item default |
24 | |
25 | =cut |
26 | |
27 | sub default : Private { |
28 | my ( $self, $c ) = @_; |
29 | |
30 | my $webpac = $c->comp('Model::WebPAC'); |
31 | my $params = $c->req->params; |
32 | my $log = $c->log; |
33 | |
34 | $c->stash->{template} = 'editor.tt'; |
35 | } |
36 | |
37 | sub template : Local { |
38 | my ( $self, $c ) = @_; |
39 | |
40 | $c->stash->{template} = 'editor/template.tt'; |
41 | } |
42 | |
43 | sub css : Local { |
44 | my ( $self, $c ) = @_; |
45 | |
46 | $c->stash->{template} = 'editor/css.tt'; |
47 | } |
48 | |
49 | =back |
50 | |
51 | |
52 | =head1 AUTHOR |
53 | |
54 | Dobrica Pavlinusic,,, |
55 | |
56 | =head1 LICENSE |
57 | |
58 | This library is free software, you can redistribute it and/or modify |
59 | it under the same terms as Perl itself. |
60 | |
61 | =cut |
62 | |
63 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |