% unless(defined($session{'username'})) { Voting Error!

Sorry, you've got to be logged in!

% return; % } % unless(defined($definition)) { Voting Error!

Sorry, you've got to tell me what you want to vote for!

% return; % } <%method title> Recording Vote Voting...

Any previous vote will be silently removed.

<%perl> my $resultref = $dbh->selectall_arrayref("SELECT valsiid, langid FROM definitions WHERE definitionid=?", { }, $definition); $dbh->do("DELETE FROM definitionvotes WHERE valsiid=? and langid=? and userid=?", undef, @{$resultref->[0]}, @{$resultref->[1]}, $session{'userid'}); my $size = $dbh->selectrow_array( "SELECT votesize FROM users WHERE userid=?", undef, $session{'userid'} ); if( $downvote ) { $size = -$size; } $dbh->do("INSERT INTO definitionvotes (valsiid, langid, definitionid, value, userid, time) VALUES (?, ?, ?, ?, ?, ?)", undef, @{$resultref->[0]}, @{$resultref->[1]}, $definition, $size, $session{'userid'}, time()); my $errstr = $dbh->errstr; if( ! $errstr ) { # Update valsibestguesses my $jbovlastedir = $m->base_comp->attr('jbovlaste_dir'); #print "
$jbovlastedir/bin/updatevbg $jbovlastedir ${$resultref->[0]}[1] ${$resultref->[0]}[0] $session{'userid'} $definition \&
\n"; system( "$jbovlastedir/bin/updatevbg $jbovlastedir ${$resultref->[0]}[1] ${$resultref->[0]}[0] $session{'userid'} $definition \&" ); }

Your vote should've been recorded.

% my @wordvotedfor = $dbh->selectrow_array("SELECT word FROM convenientdefinitions WHERE definitionid=?", { }, $definition);

You may go back to where you were.

<%init> our(%session,$dbh); <%args> $definition => undef $downvote => undef