diff options
Diffstat (limited to 'GroLUG/lib/GroLUG')
-rw-r--r-- | GroLUG/lib/GroLUG/C/Iscritto.pm | 25 | ||||
-rw-r--r-- | GroLUG/lib/GroLUG/C/Login.pm | 26 |
2 files changed, 29 insertions, 22 deletions
diff --git a/GroLUG/lib/GroLUG/C/Iscritto.pm b/GroLUG/lib/GroLUG/C/Iscritto.pm index 513e6ac..85f48cf 100644 --- a/GroLUG/lib/GroLUG/C/Iscritto.pm +++ b/GroLUG/lib/GroLUG/C/Iscritto.pm @@ -1,36 +1,17 @@ -package GroLUG::C::Iscritti; +package GroLUG::C::Iscritto; use strict; use warnings; use base 'Catalyst::Controller'; -sub login :Global { - my ( $self, $c ) = @_; - - if ($c->login) { - $c->res->redirect($c->uri_for('/iscritti')); - } - else { - $c->stash->{template}='login.tt2'; - } -} - -sub logout :Global { - my ( $self, $c ) = @_; - - $c->logout(); - - $c->res->redirect($c->uri_for('/')); -} - -sub index :Private { +sub iscritti :Global { my ( $self, $c ) = @_; $c->stash->{iscritti}=GroLUG::M::DB->resultset('Iscritto')->search({attivo=>1}); $c->stash->{template}='lista-iscritti.tt2'; } -sub iscritto :Global { +sub scheda :Local { my ($self,$c,$id)=@_; $c->log->info($c->user->id,"scheda iscritto $id"); diff --git a/GroLUG/lib/GroLUG/C/Login.pm b/GroLUG/lib/GroLUG/C/Login.pm new file mode 100644 index 0000000..f22fdb5 --- /dev/null +++ b/GroLUG/lib/GroLUG/C/Login.pm @@ -0,0 +1,26 @@ +package GroLUG::C::Login; + +use strict; +use warnings; +use base 'Catalyst::Controller'; + +sub login :Global { + my ( $self, $c ) = @_; + + if ($c->login) { + $c->res->redirect($c->uri_for('/iscritti')); + } + else { + $c->stash->{template}='login.tt2'; + } +} + +sub logout :Global { + my ( $self, $c ) = @_; + + $c->logout(); + + $c->res->redirect($c->uri_for('/')); +} + +1; |