Changeset 190

Timestamp:

04/13/09 04:08:15 (15 years ago)

Author:

nanardon

Message:

• check dates coherencies in poll settings

Location:

trunk

Files:

• lib/Vote/Controller/Admin.pm (modified) (1 diff)
• lib/Vote/Controller/Root.pm (modified) (1 diff)
• lib/Vote/DB/common.pm (modified) (1 diff)
• root/templates/admin/includes/poll_settings.tt (modified) (1 diff)

trunk/lib/Vote/Controller/Admin.pm

@@ -57 +57 @@
                     $c->req->param('dend') . ' ' . ($c->req->param('hend') || '')
                 );
+            }
+            if ($c->req->param('end') && $c->req->param('start')) {
+                if ($vote->check_date_max($c->req->param('start'))) {
+                    if (! $vote->check_date_max($c->req->param('end'), $c->req->param('start'))) {
+                        $c->stash->{dateerror} = "Le vote se termine avant de commencer";
+                        next;
+                    }
+                } else {
+                    $c->stash->{dateerror} = "Le debut du vote doit être dans le futur";
+                    next;
+                }
+            } elsif ($c->req->param('end') || $c->req->param('start')) {
+                $c->stash->{dateerror} = "Vous devez définir un debut et une fin";
+                next;
             }
             $vote->vote_param(

trunk/lib/Vote/Controller/Root.pm

@@ -34 +34 @@
 sub default : Private {
     my ( $self, $c ) = @_;
-
     $c->stash->{page}{title} = 'Epoll ' . $Vote::VERSION;
 }

trunk/lib/Vote/DB/common.pm

@@ -77 +77 @@
 }
 
+sub valid_date {
+    my ($self, $date) = @_;
+    my $res = $self->db->do(
+        sprintf(
+            q{ select %s::timestamp },
+            $self->db->quote($date),
+        )
+    );
+    $res or $self->db->rollback;
+}
+
+sub check_date_max {
+    my ($self, $maxdate, $mindate) = @_;
+    my $sth = $self->db->prepare(
+        sprintf(
+            q{ select %s::timestamp > %s::timestamp as res },
+            $self->db->quote($maxdate),
+            $mindate ? $self->db->quote($mindate) : 'now()',
+        )
+    );
+    $sth->execute or do {
+        $self->db->rollback;
+        return;
+    };
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{res}
+}
+
 sub gen_uid {
     unpack("H*", join("", map { chr(rand(256)) } (0..15)))

trunk/root/templates/admin/includes/poll_settings.tt

@@ -18 +18 @@
 <!-- http://www.mattkruse.com/javascript/calendarpopup/ -->
 <i>Les dates sont au format JJ/MM/AAAA HH:MM:SS</i><br>
+[% IF dateerror %]<p class="alert">[% dateerror | html %]</p>[% END %]
 
 <SCRIPT LANGUAGE="JavaScript" ID="js13">