Changeset 32

Timestamp:

03/14/09 20:43:51 (15 years ago)

Author:

nanardon

Message:

• set some default values at poll creation

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (2 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -115 +115 @@
     my @online_f = qw(label start end owner password);
 
-    my $sth = $self->db->prepare_cached(
-        q{update poll set } .
-        join(',', map { qq("$_" = ?) } grep { exists $attr{$_} } @online_f) .
-        q{ where id = ?}
-    );
-    $sth->execute((map { $attr{$_} } grep { exists $attr{$_} } @online_f), $voteid)
-        or $self->db->rollback;
+    if (grep { exists($attr{$_}) } @online_f) {
+        my $sth = $self->db->prepare_cached(
+            q{update poll set } .
+            join(',', map { qq("$_" = ?) } grep { exists $attr{$_} } @online_f) .
+            q{ where id = ?}
+        );
+        $sth->execute((map { $attr{$_} } grep { exists $attr{$_} } @online_f), $voteid)
+            or do {
+            $self->db->rollback;
+            return;
+        };
+    }
 
     # vote settings in settings table
@@ -726 +731 @@
 
     $newpoll->execute($newpollid, $rinfo->{label}, $rinfo->{mail}, $encpasswd);
+    # set some default
+    $self->vote_param($newpollid,
+        free_choice => 0,
+        choice_count => 1,
+    );     
 
     my $delreq = $self->db->prepare_cached(