Changeset 190 for trunk/lib/Vote/DB

Timestamp:

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

Author:

nanardon

Message:

• check dates coherencies in poll settings

File:

• trunk/lib/Vote/DB/common.pm (modified) (1 diff)

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)))