% 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 %method> 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 \&" ); } %perl>
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); %init> <%args> $definition => undef $downvote => undef %args>