| $polltxt{'16'}: |
$pollquestion $endedtext
|
| |
~;
$nums = 0;
my $Key;
my $Total;
foreach $Key (@votes) {
$Total += $Key;
}
$totalvotes = $Total;
pop (@options);
foreach (@options) {
# Censor the options.
foreach (@censored) {
($tmpa,$tmpb) = @{$_};
$options[$nums] =~ s~\Q$tmpa\E~$tmpb~gi;
}
$yymain .= qq~
| $options[$nums] |
~;
unless ($votes[$nums] eq 0) {
$votepercent = ( $votes[$nums] / $totalvotes );
$pollbarpercent = ($votepercent * 100);
$votepercent = ($votepercent * 100);
# Now lets calculate how many devisions by the total number of votes are needed to make the bar graphs stay nicely sized in the browser window:
if ($totalvotes <= "10000" && $totalvotes => "5001") {
$pollbar = ($pollbarpercent / 1000);
}
if ($totalvotes <= "5000" && $totalvotes => "1001") {
$pollbar = ($pollbarpercent / 100);
}
if ($totalvotes <= "1000" && $totalvotes => "501") {
$pollbar = ($pollbarpercent / 50);
}
if ($totalvotes <= "500" && $totalvotes => "101") {
$pollbar = ($pollbarpercent / 15);
}
if ($totalvotes <= "100" && $totalvotes => "51") {
$pollbar = ($pollbarpercent / 8);
}
if ($totalvotes <= "50" && $totalvotes => "11") {
$pollbar = ($pollbarpercent *2);
}
if ($totalvotes <= "10" && $totalvotes => "1" && $votes[$nums] => "1") {
$pollbar = ($pollbarpercent *4);
}
}
else { $pollbar = 0; }
unless ($totalvotes eq 0) {
$pollpercent = ( $votes[$nums] * 100 / $totalvotes);
}
my($roundedpercent) = shift;
$pollpercent = int($pollpercent + .5);
$yymain .= qq~    $votes[$nums] ($pollpercent%) |
~;
$nums++;
}
$yymain .= qq~
$polltxt{'17'}: $totalvotes $lockpoll
|
|
$mbname
~;
$polltxt{'1'}~;
$img{'pollicon'} = qq~
~;
$img{'polliconclosed'} = qq~
~;