GroLUG/lib/GroLUG/C/Iscritti.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

package GroLUG::C::Iscritti; 
 
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 {
    my ( $self, $c ) = @_;
 
    $c->stash->{iscritti}=GroLUG::M::DB->resultset('Iscritto')->search({attivo=>1});
    $c->stash->{template}='lista-iscritti.tt2';
}
 
sub iscritto :Global {
    my ($self,$c,$id)=@_;
 
    $c->log->info($c->user->id,"scheda iscritto $id");
 
    $c->stash->{iscritto}=GroLUG::M::DB->resultset('Iscritto')->find($id);
 
    $c->stash->{template}='scheda-iscritto.tt2';
}
 
1;