Changeset 24 for trunk/lib/Vote/Model/Vote.pm

Timestamp:

03/14/09 14:57:32 (15 years ago)

Author:

nanardon

Message:

• allow to have any variable per poll

File:

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

trunk/lib/Vote/Model/Vote.pm

@@ -99 +99 @@
 
     keys %attr or return;
+    my @online_f = qw(label start end owner password)
 
     my $sth = $self->db->prepare_cached(
         q{update poll set } .
-        join(',', map { qq("$_" = ?) } sort keys %attr) .
+        join(',', map { qq("$_" = ?) } grep { exists $attr{$_} } @online_f) .
         q{ where id = ?}
     );
-    $sth->execute((map { $attr{$_} } sort keys %attr), $voteid)
+    $sth->execute((map { $attr{$_} } grep { exists $attr{$_} } @online_f), $voteid)
         or $self->db->rollback;
+
+    # vote settings in settings table
+    foreach my $var (keys %attr) {
+        grep { $var eq $_ } @online_f and next;
+        $self->vote_set_settings($voteid, $var, $attr{$var});
+    }
+    1
 }
 
@@ -145 +153 @@
     my $res = $sth->fetchrow_hashref;
     $sth->finish;
+    if ($res) {
+        my $get = $self->db->prepare_cached(
+            q{select var, val from settings where poll = ?}
+        );
+        $get->execute($id);
+        while (my $set = $get->fetchrow_hashref) {
+            $res->{$set->{var}} = $set->{val};
+        }
+    }
     $res
+}
+
+sub vote_set_settings {
+    my ($self, $poll, $var, $val) = @_;
+
+    my $upd = $self->db->prepare_cached(
+        q{update settings set val = ? where poll = ? and var = ?}
+    );
+
+    warn "$val, $poll, $var";
+    if ($upd->execute($val, $poll, $var) == 0) {
+        my $add = $self->db->prepare_cached(
+            q{insert into settings (poll, var, val) values (?,?,?)}
+        );
+
+        $add->execute($poll, $var, $val);
+    }
 }