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 | dpavlin | 134 | 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 |