4 files changed, 18 insertions, 18 deletions

diff --git a/GroLUG/lib/GroLUG.pm b/GroLUG/lib/GroLUG.pm
index f7c7751..bfc7986 100644
--- a/GroLUG/lib/GroLUG.pm
+++ b/GroLUG/lib/GroLUG.pm
@@ -7,7 +7,7 @@ use Catalyst qw{
                 Session Session::Store::DBI Session::State::Cookie
                 Authentication Authentication::Store::Htpasswd Authentication::Credential::Password
                 Authorization::Roles
-                HTML::Widget
+                HTML::Widget Unicode
             };
 use Catalyst::Log::Log4perl;
 
@@ -28,4 +28,10 @@ sub index : Private {
     }
 }
 
+sub strdate {
+    my ($self,$date)=@_;
+
+    return (ref $date) ? $date->strftime('%F') : '';
+}
+
 1;
diff --git a/GroLUG/lib/GroLUG/C/Iscritto.pm b/GroLUG/lib/GroLUG/C/Iscritto.pm
index 20cb5c2..b2a9609 100644
--- a/GroLUG/lib/GroLUG/C/Iscritto.pm
+++ b/GroLUG/lib/GroLUG/C/Iscritto.pm
@@ -52,9 +52,9 @@ sub widget_for_iscr {
 
     $widget->filter('TrimEdges','nome','email','note');
 
-    $widget->constraint('All','nome','email');
-    $widget->constraint('Email','email');
-    $widget->constraint('Printable','nome');
+    $widget->constraint('All','nome','email')->message('Campo obbligatorio');
+    $widget->constraint('Email','email')->message('Indirizzo malformato');
+    $widget->constraint('Printable','nome')->message('Caratteri non validi nel nome');
 
     $widget->indicator('email');
 
@@ -121,12 +121,6 @@ sub attiva :Local {
     $c->res->redirect($c->uri_for('scheda',$id));
 }
 
-sub strdate {
-    my ($date)=@_;
-
-    return (defined $date ? $date->strftime('%F') : '');
-}
-
 sub widget_for_pag {
     my ($self,$c,$pag,$iscr_id)=@_;
 
@@ -138,9 +132,9 @@ sub widget_for_pag {
 
     my $widget=$c->widget('pagamento');
     $widget->method('post');
-    $widget->element('Textfield','data_pagamento')->label('Data del pagamento')->value(strdate($pagamento->data_pagamento));
-    $widget->element('Textfield','data_iscrizione')->label('Data di iscrizione')->value(strdate($pagamento->data_iscrizione));
-    $widget->element('Textfield','data_scadenza')->label('Data di scadenza')->value(strdate($pagamento->data_scadenza));
+    $widget->element('Textfield','data_pagamento')->label('Data del pagamento')->value($self->strdate($pagamento->data_pagamento));
+    $widget->element('Textfield','data_iscrizione')->label('Data di iscrizione')->value($self->strdate($pagamento->data_iscrizione));
+    $widget->element('Textfield','data_scadenza')->label('Data di scadenza')->value($self->strdate($pagamento->data_scadenza));
     $widget->element('Textfield','prezzo')->label('Importo pagato')->value($pagamento->prezzo);
     $widget->element('Hidden','iscr_id')->value($iscr_id || (defined $pag ? $pagamento->iscritto->id : ''));
 
@@ -148,9 +142,9 @@ sub widget_for_pag {
 
     $widget->filter('TrimEdges','data_scadenza','data_pagamento','data_iscrizione','prezzo');
 
-    $widget->constraint('All','data_scadenza','data_pagamento','data_iscrizione','prezzo');
-    $widget->constraint('ISODate','data_scadenza','data_pagamento','data_iscrizione');
-    $widget->constraint('EuroAmount','prezzo');
+    $widget->constraint('All','data_scadenza','data_pagamento','data_iscrizione','prezzo')->messagge('Campo obbligatorio');
+    $widget->constraint('ISODate','data_scadenza','data_pagamento','data_iscrizione')->message('Data non valida');
+    $widget->constraint('EuroAmount','prezzo')->message('Prezzo non valido');
 
     $widget->indicator('iscr_id');
 
diff --git a/GroLUG/lib/GroLUG/M/DB.pm b/GroLUG/lib/GroLUG/M/DB.pm
index 2622de2..42d6d15 100644
--- a/GroLUG/lib/GroLUG/M/DB.pm
+++ b/GroLUG/lib/GroLUG/M/DB.pm
@@ -7,7 +7,7 @@ my @conn_info = (
     'dbi:Pg:dbname=iscritti',
     'grolug',
     '',
-    { RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, TraceLevel => 0 }
+    { RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, TraceLevel => 0, pg_enable_utf8 => 1 }
 );
 
 __PACKAGE__->load_classes();
diff --git a/GroLUG/lib/GroLUG/M/DB/Iscritto.pm b/GroLUG/lib/GroLUG/M/DB/Iscritto.pm
index 1cea0ac..b4a091d 100644
--- a/GroLUG/lib/GroLUG/M/DB/Iscritto.pm
+++ b/GroLUG/lib/GroLUG/M/DB/Iscritto.pm
@@ -11,7 +11,7 @@ sub scadenza {
     my ($self)=@_;
 
     my $last_pag=$self->pagamenti()->next();
-    return ($last_pag ? $last_pag->data_scadenza() : undef);
+    return $last_pag ? $last_pag->data_scadenza() : undef;
 }
 
 1;