upravené z 255b
// systemovy blok: ankety
function Anketa()
{
// zjisteni aktivni ankety
$dotazaktivni=mysql_query("select hodnota from ".$GLOBALS["rspredpona"]."config where promenna='aktivni_anketa'",$GLOBALS["dbspojeni"]);
$zjistanketa=mysql_Result($dotazaktivni,0,"hodnota");
// podminka zobrazeni; nalezeni aktivni ankety; false = anketa neexistuje
if ($zjistanketa!="false"):
$dotazotazka=mysql_query("select otazka from ".$GLOBALS["rspredpona"]."ankety where ida='".$zjistanketa."'",$GLOBALS["dbspojeni"]);
$ankotazka=mysql_Result($dotazotazka,0,"otazka"); // anketni otazka
$dotazcelkem=mysql_query("select sum(pocitadlo) as celkem from ".$GLOBALS["rspredpona"]."odpovedi where anketa='".$zjistanketa."'",$GLOBALS["dbspojeni"]);
$celkemhlasu=mysql_Result($dotazcelkem,0,"celkem"); // celkem hlasu
$dotazodp=mysql_query("select ido,odpoved,pocitadlo from ".$GLOBALS["rspredpona"]."odpovedi where anketa='".$zjistanketa."' order by ido",$GLOBALS["dbspojeni"]);
$pocetodp=mysql_num_rows($dotazodp); // nacteni prehledu moznych odpovedi
$txt_anketa="<div class=\"anketasysz\">".$ankotazka."</div>";
$txt_anketa.="<div class=\"anketasysodp\">";
for ($pom=0;$pom<$pocetodp;$pom++):
if ($celkemhlasu==0): $jednoproc=0; else: $jednoproc=100/$celkemhlasu; endif; // zjisteni poctu dilku na jeden hlas
$procento=$jednoproc*mysql_Result($dotazodp,$pom,"pocitadlo");
$txt_anketa.="<a href=\"ankety.php?akcia=hlasuj&hlas=".mysql_Result($dotazodp,$pom,"ido")."&ciel=".$GLOBALS["anketacilstr"]."&anketa=".$zjistanketa."\">".mysql_Result($dotazodp,$pom,"odpoved")."</a><br />";
$txt_anketa.="<img src=\"pictures.php?rvel=".ceil(1.1*$procento)."&barva="
.($pom+1)."\" height=\"8\" width=\"".ceil(1.1*$procento)."\" alt=\""
.mysql_Result($dotazodp,$pom,"pocitadlo")."\" /> "
.number_format($procento,1,".",",")." %<br />";
endfor;
$txt_anketa.="</div>";
$txt_anketa.="<p align=\"center\" class=\"anketasysz\">".RS_ANCELKHL.": ".$celkemhlasu."</p>";
// zobrazeni menu
switch ($GLOBALS["vzhledwebu"]->AktBlokTyp()):
case 1: Blok1($GLOBALS["vzhledwebu"]->AktBlokNazev(),$txt_anketa); break;
case 2: Blok2($GLOBALS["vzhledwebu"]->AktBlokNazev(),$txt_anketa); break;
case 3: Blok3($GLOBALS["vzhledwebu"]->AktBlokNazev(),$txt_anketa); break;
default: Blok1($GLOBALS["vzhledwebu"]->AktBlokNazev(),$txt_anketa); break;
endswitch;
endif;
}
tento kód je použitý na [
http://www.trident.sk/]
snáď to niekomu pomôže, kód som upravoval dávnejšie, tak neviem presne aké boli všetky zmeny... na uvedenej stránke je toho upaveného viac, napr. zobrazovanie grafu ako výsledku po hlasovaní (v hlavnom bloku), sú zjednotené farby grafu atď...
Celkem upraveno 3×. Poslední úprava pa3k v 05.04.2005 09:45.