<perl>
get "Freigabe ne Ja", "Abstimmung";
if ($Freigabe ne Ja)
{
mod "Freigabe==Ja",["S1",++$S1],"Abstimmung";
} else
{

</perl>

<loop db=Abstimmung sort=- code=perl>
out "<h3>$Name</h3>";
out "<table><tr><th>Antwort</th><th>Stimmen</th><th>Prozent</th><th>Grafik</th></tr>";

$Summe=$S1+$S2+$S3+$S4+$S5;
$G1=substr((($S1/$Summe)*100),0,4);
$G2=substr((($S2/$Summe)*100),0,4);
$G3=substr((($S3/$Summe)*100),0,4);
$G4=substr((($S4/$Summe)*100),0,4);
$G5=substr((($S5/$Summe)*100),0,4);
} 

{

out "<tr><td>$A2</td><td>$S2</td><td>$G2</td><td><img src='http://www.agapi.de/images/rot.gif' width=",$G2*3," height=12></td>";
out "<tr><td>$A3</td><td>$S3</td><td>$G3</td><td><img src='http://www.agapi.de/images/rot.gif' width=",$G3*3," height=12></td>";
out "<tr><td>$A4</td><td>$S4</td><td>$G4</td><td><img src='http://www.agapi.de/images/rot.gif' width=",$G4*3," height=12></td>";
out "<tr><td>$A5</td><td>$S5</td><td>$G5</td><td><img src='http://www.agapi.de/images/rot.gif' width=",$G5*3," height=12></td></tr></td></table>";
out "<br>";
out "<table><tr><td>Gesamt    </td><td>$Summe  Stimmen</td></table>";
out "<br>Umfragebeginn $Startdatum";

else
{

out "<hr><br>";

</body></html>