From ce0dd6514a8b77da30d03542500847b9bbec6962 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 9 Feb 2006 12:35:14 +0000
Subject: login e lista iscritti

git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@171 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 GroLUG/lib/GroLUG/C/Iscritti.pm    | 58 +++++++++++---------------------------
 GroLUG/lib/GroLUG/M/DB/Iscritto.pm |  6 ++++
 2 files changed, 23 insertions(+), 41 deletions(-)

(limited to 'GroLUG/lib/GroLUG')

diff --git a/GroLUG/lib/GroLUG/C/Iscritti.pm b/GroLUG/lib/GroLUG/C/Iscritti.pm
index d79aea6..3afc852 100644
--- a/GroLUG/lib/GroLUG/C/Iscritti.pm
+++ b/GroLUG/lib/GroLUG/C/Iscritti.pm
@@ -4,46 +4,22 @@ use strict;
 use warnings;
 use base 'Catalyst::Controller';
 
-=head1 NAME
-
-GroLUG::C::Iscritti - Catalyst Controller
-
-=head1 SYNOPSIS
-
-See L<GroLUG>
-
-=head1 DESCRIPTION
-
-Catalyst Controller.
-
-=head1 METHODS
-
-=cut
-
-#
-# Uncomment and modify this or add new actions to fit your needs
-#
-#=head2 default
-#
-#=cut
-#
-#sub default : Private {
-#    my ( $self, $c ) = @_;
-#
-#    # Hello World
-#    $c->response->body('GroLUG::C::Iscritti is on Catalyst!');
-#}
-
-
-=head1 AUTHOR
-
-A clever guy
-
-=head1 LICENSE
-
-This library is free software, you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
+sub login :Global {
+    my ( $self, $c ) = @_;
+
+    if ($c->login) {
+        $c->res->redirect($c->uri_for('/iscritti'));
+    }
+    else {
+        $c->stash->{template}='login.tt2';
+    }
+}
+
+sub index :Private {
+    my ( $self, $c ) = @_;
+
+    $c->stash->{iscritti}=GroLUG::M::DB->resultset('Iscritto')->search({attivo=>1});
+    $c->stash->{template}='lista-iscritti.tt2';
+}
 
 1;
diff --git a/GroLUG/lib/GroLUG/M/DB/Iscritto.pm b/GroLUG/lib/GroLUG/M/DB/Iscritto.pm
index 686b4b2..ca475ee 100644
--- a/GroLUG/lib/GroLUG/M/DB/Iscritto.pm
+++ b/GroLUG/lib/GroLUG/M/DB/Iscritto.pm
@@ -7,4 +7,10 @@ __PACKAGE__->add_columns(qw(id nome email attivo note));
 __PACKAGE__->set_primary_key('id');
 __PACKAGE__->has_many(pagamenti=>'GroLUG::M::DB::Pagamento','iscritto',{order_by => 'data_scadenza desc'});
 
+sub scadenza {
+    my ($self)=@_;
+
+    return $self->pagamenti()->next()->data_scadenza();
+}
+
 1;
-- 
cgit v1.2.3