"; Exit();
endif;
// nacteni seznamu uzivatelu(autoru) do pole "autori"
$idotaz2=mysql_query("select ida,jmeno,email from ".$rspredpona."dperso order by ida",$dbspojeni);
$ipocet2=mysql_num_rows($idotaz2);
for ($o=0;$o<$ipocet2;$o++):
$autori[mysql_Result($idotaz2,$o,"ida")][0]="".mysql_Result($idotaz2,$o,"jmeno");
$autori[mysql_Result($idotaz2,$o,"ida")][1]="mailto:".mysql_Result($idotaz2,$o,"email");
endfor;
// clanku
$url_txt=trim($cisloclanku, "/");
if (is_numeric($cisloclanku)):
$cisloclanku=$cisloclanku;
else:
$cisloclanku=0;
endif;
$vdotaz=mysql_query("select link,idc,titulek,url_txt,uvod,text,tema,date_format(datum,'%d. %m. %Y') as vyslden,autor,kom,visit,zdroj,idalbum,idsoutez from ".$rspredpona."clanky where (idc='$cisloclanku' or url_txt ='".$url_txt."') and visible=1 ",$dbspojeni);
// test na pritomnost clanku
if (mysql_num_rows($vdotaz)==0):
$errorclanke=33; // clanek neexistuje
else:
$errorclanke=0; // vse je v poradku
list($cllink,$clidc,$cltitulek,$clurl_txt,$cluvod,$cltext,$cltema,$cldatum,$clautor,$clkom,$clvisit,$clzdroj,$albumida,$soutezida)=mysql_fetch_row($vdotaz);
// kompilace autora
if ($autori[$clautor][0]!=""):
$vyslautor=$autori[$clautor][0];
$vyslmail=$autori[$clautor][1];
else:
$vyslautor="Redakce";
$vyslmail="mailto:".$redakceadr;
endif;
// kompilace tematu
if ($cltema!=""):
$vysltema=$cltema;
endif;
endif;
//----------------------------------------------------------------------------------
function ShowSoutez()
{ global $dbspojeni,$txtinfo,$rspredpona,$intreg,$cfgskupina,$soutezida,$config,$casvys;
// test na pritomnost ročníku
if (!IsSet($rok)):
$rok = Date("Y");
endif;
echo "
";
// Displays thumbs if the query returns a result.
if($pocet > 0)
{
while($row = mysql_fetch_array($rs))
{
echo "";
echo "![](\"http://gallery.strazov.cz/albums/".$row["filepath"]."".$row["filename"]."\")
";
echo "";
}
}
echo "
";
}
/// ---------------------------------------------------
function ShowAlbum2()
{ global $txtinfo,$rspredpona,$intreg,$cfgskupina,$albumida,$config;
$rs = mysql_query("SELECT * from $config[TABLE_PICTURES] WHERE skupina=".$cfgskupina." and ida='$albumida' and visible=1 ORDER BY idf ");
$pocet = mysql_num_rows($rs);
$row = mysql_fetch_array($rs);
$rs2 = mysql_query("SELECT * from $config[TABLE_ALBUMS] where ida='$albumida' and visible=1 and odkaz=0 ");
$row2 = mysql_fetch_array($rs2);
$picturename = "$config[albumdir]$row[filepath]"."bi_"."$row[filename]";
//------------
echo "";
echo "
";
$dotaz=mysql_query("select * from ".$rspredpona."dperso where ida='$intreg'",$dbspojeni);
$pocet=mysql_num_rows($dotaz);
if ($pocet==0):
$email=$email;
$jmeno=$jmeno;
else:
$jmeno=mysql_Result($dotaz,0,"jmeno");
$email=mysql_Result($dotaz,0,"email");
EndIf;
$dbkod='';
$nahcislo=rand(1, 10);
if ($intreg<>0):
$dotaz=mysql_query("select * from ".$rspredpona."kod where idkod='$nahcislo'",$dbspojeni);
$dbkod=mysql_Result($dotaz,0,"kod");
echo "
\n";
EndIf;
?>
";
echo "
";
}
///--------------------------------------------------------------
// zobrazeni hlavniho bloku, $a = pocet zobrazenych cl. na hl.strane
function HlavniBlok2($a)
{ global $dbspojeni,$rspredpona,$redakceadr,$rsrdialog2,$cfgskupina,$strana,$intAdmClanky,$akce,$albumdir,$slovnik;
if (!$dbspojeni): $dbspojeni=dbcon(); endif; // aktivace spojeni
// nacteni seznamu uzivatelu(autoru) do pole "autori"
$idotaz2=mysql_query("select ida,jmeno,email from ".$rspredpona."dperso order by ida",$dbspojeni);
$ipocet2=mysql_num_rows($idotaz2);
for ($o=0;$o<$ipocet2;$o++):
$autori[mysql_Result($idotaz2,$o,"ida")][0]="".mysql_Result($idotaz2,$o,"jmeno");
$autori[mysql_Result($idotaz2,$o,"ida")][1]="mailto:".mysql_Result($idotaz2,$o,"email");
endfor;
// nacteni seznamu temat do pole "rubriky"
$idotaz3=mysql_query("select idt,nazev from ".$rspredpona."tema where zaradit<>0 and skupina=".$cfgskupina." order by zaradit",$dbspojeni);
$ipocet3=mysql_num_rows($idotaz3);
$dnesnidatum=Date("Y-m-d H:i:s");
for ($o=0;$o<$ipocet3;$o++):
$nazev=mysql_Result($idotaz3,$o,"nazev");
$idt=mysql_Result($idotaz3,$o,"idt");
// rs_clanky: idc,link,titulek,uvod,text,tema,datum,autor,kom,visit,t_slova,visible,zdroj,priority
$idotaz4=mysql_query("select idc,link,titulek,jetext,uvod,tema,date_format(datum,'%d. %m. %Y') as vyslden,autor,kom,visit,obrlink from ".$rspredpona."clanky where datum<'$dnesnidatum' and datumend>'$dnesnidatum' and visible=1 and skupina=".$cfgskupina." and isclanek=1 and adm_clanek<=$intAdmClanky and tema=$idt order by priority desc,datum desc limit 0,5",$dbspojeni);
$ipocet4=mysql_num_rows($idotaz4);
echo "
";
echo "
".$nazev."
";
for ($m=0;$m<$ipocet4;$m++):
// kompilace autora
if ($autori[mysql_Result($idotaz4,$m,"autor")][0]!=""):
$vyslautor=$autori[mysql_Result($idotaz4,$m,"autor")][0];
$vyslmail=$autori[mysql_Result($idotaz4,$m,"autor")][1];
else:
$vyslautor="Redakce";
$vyslmail="mailto:".$redakceadr;
endif;
// kompilace tematu
if (mysql_Result($idotaz4,$m,"tema")!=""):
$vysltema=mysql_Result($idotaz4,$m,"tema");
endif;
//$koment=mysql_query("SELECT idk FROM ".$rspredpona."komentare WHERE clanek='".mysql_Result($idotaz4,$m,"idc")."'",$dbspojeni);
//$pocetkom=mysql_num_rows($koment);
$pocetkom=0;
// $blink,$btitulek,$buvod,$btema,$bdatum,$bautor,$bautoradr,$bkom,$bvisit
MainBlok2(mysql_Result($idotaz4,$m,"idc"),mysql_Result($idotaz4,$m,"titulek"),mysql_Result($idotaz4,$m,"uvod"),$vysltema,mysql_Result($idotaz4,$m,"vyslden"),$vyslautor,$vyslmail,mysql_Result($idotaz4,$m,"kom"),mysql_Result($idotaz4,$m,"visit"),$pocetkom,mysql_Result($idotaz4,$m,"obrlink"),mysql_Result($idotaz4,$m,"jetext"));
endfor;
echo "
Archiv tématu
";
echo "
";
endfor;
}
//------------------------------------------------//------------------------------------------------
function NovyPridejKom()
{global $dbspojeni,$kod,$kidc,$kidi,$ktext,$txtinfo,$intreg,$cfgskupina,$rspredpona,$kkod,$kkodid,$clidc,$peruroven;
if ($intreg==0): $intreg=1; EndIf;
if (!IsSet($dbspojeni)): $dbspojeni=dbcon(); endif; // aktivace spojeni
echo "
";
// Vyhledani kodu
$dotaz=mysql_query("select * from ".$rspredpona."kod where idkod='$kkodid'",$dbspojeni);
$dbkod=mysql_Result($dotaz,0,"kod");
// Test textu
$ktext=chetext($ktext);
$kod =chetext($kod);
$kodmail=chetext($kodmail);
$skup= $cfgskupina;
$datum =Date("Y-m-d H:i:s", time());
if ($kkod==$dbkod):
if ($ktext!=""):
// pridani komentare
// @$koment=mysql_query("INSERT INTO ".$rspredpona."komentar (kdy, kdo, popis, idc, autor, komu,skupina) VALUES ('".$datum."',\"".$kod."\",\"".$ktext."\",\"".AddSlashes($clidc)."\",\"".$intreg."\",\"".AddSlashes($kidi)."\",\"".$cfgskupina."\")");
@$koment=mysql_query("INSERT INTO ".$rspredpona."komentar (kdy,kdo, popis, idc, autor, komu, skupina) VALUES ('".$datum."','".$kod."','".trim($ktext)."',".AddSlashes($clidc).",".AddSlashes($intreg).",".AddSlashes($kidi).",".AddSlashes($cfgskupina).")");
if (!$koment):
$txtinfo="WEB_Komentar:Komentář nebyl přidán !";
else:
$txtinfo="WEB_Komentar:Komentář byl přidán !";
endif;
else:
$txtinfo="WEB_Komentar:Pro předání je třeba vyplnit potřebné údaje";
endif;
else:
$txtinfo="WEB_Komentar: Pro předání je třeba vyplnit kontrolní kód. Děkuji ..:-)";
endif;
echo "
";
}
//-----------------------------------------------------------------------------------
function ShowKomentar()
{global $dbspojeni,$txtinfo,$rspredpona,$intreg,$cfgskupina,$clidc,$config,$cllink,$intAdmDiskuze,$slovnik,$hlas,$kom;
if (!IsSet($dbspojeni)): $dbspojeni=dbcon(); endif; // aktivace spojeni
$idotaz5=mysql_query("select hodnota from ".$rspredpona."config where promenna='pocet_kom' and skupina=".$cfgskupina." ",$dbspojeni);
$pocetkom=mysql_Result($idotaz5,0,"hodnota");
if ($intreg<>0 and $kom<>0 and ($hlas==1 or $hlas==2 or $hlas==3)):
$aedotaz11=mysql_query("select id from web_kom_stat where idk=".$kom." and autor=".$intreg."",$dbspojeni);
list($teidstat)=mysql_fetch_row($aedotaz11);
if ($teidstat<>""):
{ @$error=mysql_query("update web_kom_stat set stat=$hlas where id='$teidstat' ",$dbspojeni);
if (!$error):
$txtinfo= "WEB_stat:Akce neproběhla úspěšně! Stat nemohu opravit.";
else:
$txtinfo= "WEB_stat:Akce proběhla úspěšně! Stat byl opraven.";
endif;
}
else:
{ @$error=mysql_query("insert into ".$rspredpona."kom_stat ( idk, stat, autor)
values('$kom','$hlas','$intreg')",$dbspojeni);
if (!$error):
$txtinfo= "WEB_stat:Akce neproběhla úspěšně! Stat nemohu přidat.";
else:
$txtinfo= "WEB_stat:Akce proběhla úspěšně! Stat byl přidán.";
endif;
}
endif;
endif;
echo "
";
echo "
";
// kompilace slovniku
if ($slovnik[5][0]!=""):echo $slovnik[5][0];
else: echo "empty";
endif;
echo "
";
$rs = mysql_query("SELECT A.idc,date_format(A.kdy,'%d. %m. %Y') as kdyd,A.popis,A.idk,A.idc,A.idf,A.idd,A.komu,A.autor,A.kdo,B.obrazek,B.datum,B.jmeno from ".$rspredpona."komentar A,".$rspredpona."dperso B
where A.idc=".$clidc." and A.autor=B.ida and A.archiv=0 and (A.komu=0 or A.komu=".$intreg." or A.autor=".$intreg.") and A.skupina=".$cfgskupina."
order by A.kdy DESC LIMIT 0,$pocetkom",$dbspojeni);
while ($row = mysql_fetch_array($rs)){
$strobr=$row["obrazek"];
$strtitle=$row["jmeno"];
if ($intAdmDiskuze<>0):
$strtitle=$strtitle.", ".$row["datum"];
EndIf;
echo "
![](\"".$config[albumdir]."userpics/ucet/".$strobr."\" "\\"\".$strtitle.\"\\"")
";
if ( $row["idd"]<>0):
echo "
".$row["kdyd"]."";
EndIf;
if ( $row["idf"]<>0):
echo "
".$row["kdyd"]."";
EndIf;
if ( $row["idc"]<>0):
echo "
".$row["kdyd"]."";
EndIf;
if ($row["idd"]==0 and $row["idf"]==0 and $row["idc"]==0):
echo "
".$row["kdyd"]."";
EndIf;
if ( $intreg==$row["autor"] or $intAdmDiskuze<>0 ):
echo " | Opravit | ";
echo " Smazat ";
endif;
echo "
";
echo "
".$row["popis"];
echo "
";
if ($intreg<>0):
$strpalec1="Líbí se ";
$rs1 = mysql_query("select B.jmeno as jmeno from web_kom_stat A, web_dperso B where A.idk=".$row["idk"]." and A.autor=B.ida and A.stat=1",$dbspojeni);
while ($row1 = mysql_fetch_array($rs1)){$strpalec1=$strpalec1.$row1["jmeno"].", "; }
$strpalec2="Nelíbí se ";
$rs1 = mysql_query("select B.jmeno as jmeno from web_kom_stat A, web_dperso B where A.idk=".$row["idk"]." and A.autor=B.ida and A.stat=2",$dbspojeni);
while ($row1 = mysql_fetch_array($rs1)){$strpalec2=$strpalec2.$row1["jmeno"].", "; }
$strpalec3="Nevhodné pro ";
$rs1 = mysql_query("select B.jmeno as jmeno from web_kom_stat A, web_dperso B where A.idk=".$row["idk"]." and A.autor=B.ida and A.stat=3",$dbspojeni);
while ($row1 = mysql_fetch_array($rs1)){$strpalec3=$strpalec3.$row1["jmeno"].", "; }
echo "";
echo "![](\"./img/16x16/comment_accept.png\" "\\"\".$strpalec1.\"\\"")
";
echo "";
echo "![](\"./img/16x16/comment_delete.png\" "\\"\".$strpalec2.\"\\"")
";
echo "";
echo "![](\"./img/16x16/comment_exclamation.png\" "\\"\".$strpalec3.\"\\"")
";
EndIf;
echo "".$row["kdo"];
echo "";
if ( $row["idd"]<>0):
echo " Více zde: >> .. v tématu";
EndIf;
if ( $row["idf"]<>0):
echo "Více zde: >> .. u fotky ";
EndIf;
if ( $row["idc"]<>0):
echo "Více zde: >> .. u článku";
EndIf;
//echo "
".SQLDate2CZDate($row["kdy"])."";
//if ( $intreg==$row["autor"] or $intAdmDiskuze<>0 ):
// echo "| Opravit ";
// echo "| Smazat ";
//EndIf;
//echo ""."".$row["popis"]."
".$row["kdo"]."
";}
//
//echo "
";
echo "
";
echo "
";
}
echo "
";
}
//--------------------------------------------------------------------------------------------
function ShowClanky()
{
global $dbspojeni,$rspredpona,$redakceadr,$rsrdialog2,$cfgskupina,$strana,$intAdmClanky,$akce,$albumdir,$cltema,$slovnik;
if (!IsSet($dbspojeni)): $dbspojeni=dbcon(); endif; // aktivace spojeni
$pocetkom=0;
echo "
";
echo "
";
// kompilace slovniku
if ($slovnik[8][0]!=""):echo $slovnik[8][0];
else: echo "empty";
endif;
echo "
";
// nacteni seznamu uzivatelu(autoru) do pole "autori"
$idotaz2=mysql_query("select ida,jmeno,email from ".$rspredpona."dperso order by ida",$dbspojeni);
$ipocet2=mysql_num_rows($idotaz2);
for ($o=0;$o<$ipocet2;$o++):
$autori[mysql_Result($idotaz2,$o,"ida")][0]="".mysql_Result($idotaz2,$o,"jmeno");
$autori[mysql_Result($idotaz2,$o,"ida")][1]="mailto:".mysql_Result($idotaz2,$o,"email");
endfor;
// nacteni seznamu temat do pole "rubriky"
$idotaz3=mysql_query("select idt,nazev from ".$rspredpona."tema where skupina=".$cfgskupina." and idt=".$cltema." order by zaradit",$dbspojeni);
$ipocet3=mysql_num_rows($idotaz3);
$dnesnidatum=Date("Y-m-d H:i:s");
for ($o=0;$o<$ipocet3;$o++):
$nazev=mysql_Result($idotaz3,$o,"nazev");
$idt=mysql_Result($idotaz3,$o,"idt");
// rs_clanky: idc,link,titulek,uvod,text,tema,datum,autor,kom,visit,t_slova,visible,zdroj,priority,url_txt
$idotaz4=mysql_query("select idc,link,titulek,jetext,uvod,tema,date_format(datum,'%d. %m. %Y') as vyslden,autor,kom,visit,obrlink,url_txt from ".$rspredpona."clanky where datum<'$dnesnidatum' and datumend>'$dnesnidatum' and visible=1 and skupina=".$cfgskupina." and isclanek=1 and adm_clanek<=$intAdmClanky and tema=$idt order by priority desc,datum desc limit 0,20",$dbspojeni);
$ipocet4=mysql_num_rows($idotaz4);
echo "
".$nazev."
";
for ($m=0;$m<$ipocet4;$m++):
// kompilace autora
if ($autori[mysql_Result($idotaz4,$m,"autor")][0]!=""):
$vyslautor=$autori[mysql_Result($idotaz4,$m,"autor")][0];
$vyslmail=$autori[mysql_Result($idotaz4,$m,"autor")][1];
else:
$vyslautor="Redakce";
$vyslmail="mailto:".$redakceadr;
endif;
// kompilace tematu
if (mysql_Result($idotaz4,$m,"tema")!=""):
$vysltema=mysql_Result($idotaz4,$m,"tema");
endif;
$pocetkom=$pocetkom+1;
echo "- ".mysql_Result($idotaz4,$m,"titulek")." ";
//echo " (".mysql_Result($idotaz4,$m,"vyslden").") ";
echo "
";
endfor;
echo "
";
echo "
";
// kompilace slovniku
if ($slovnik[9][0]!=""):echo $slovnik[9][0];
else: echo "empty";
endif;
echo "
";
endfor;
echo "
";
}
//--------------------------------------------------------
?>
";
echo "
";
infomsg2($txtinfo);
//------------------------
if ($errorclanke!=33):
$clvisit=$clvisit+1;
?>
";
echo "
";
echo "
";
echo "
";
ShowClanky();
echo "
";
echo "
";
if ($intreg<>0):
echo "
";
echo "
";
ShowKomentar();
echo "
";
echo "
";
EndIf;
echo "
";
echo "
";
ShowSoutez();
echo "
";
echo "
";
//-----------------------------------------------------
echo "
";
//-----------------------------------------------------
// navyseni pocitadla pristupu u zobrazeneho clanku
mysql_query("update ".$rspredpona."clanky set visit=(visit+1) where (idc='$cisloclanku' or url_txt ='".$url_txt."') ",$dbspojeni);
echo "
";
else:
// chybova hlaska
MainBlok("","Chyba! Číslo článku je neplatné","Zadané číslo nepředstavuje žádný článek a tudíž je chybné.","image/error.gif",Date("d. m. Y"),"Admin","mailto:".$infoadr,0,0,0,0,0);
endif;
//------------------------
?>
![](\"./img/16x16/movie_track_next.png\"/)
";
// echo "![](\"./image/kamera.gif\")
";
endfor;
};
Endif;
echo "";
//----------------------- Media
echo "