u komentaru lze tohoto stavu docilit i setrizenim podle id - lze totiz logicky predpokladat, ze nejnizsi id patri nejdrive vlozenemu komentari, atd. $vstupnipole[X][0] - id [1] - id predka [2] - pouzito 1/0, defaulne 0 (ne) */ // inic. vstupniho pole $trizeni=0; // false if (is_array($vstupnipole)): $pocetprvku=count($vstupnipole); // pocet prvku ve vstupnim poli if ($pocetprvku>0): $trizeni=1; // true endif; endif; $polehist[0]=0; // historie prohledavani $polex=0; // akt. pozice v historii $vysledekcislo=0; // pocitadlo vyslednych radku ve vysledkovem poli // start trizeni while ($trizeni==1): $nasel=0; $aktpom=0; for ($pom=0;$pom<$pocetprvku;$pom++): if ($vstupnipole[$pom][2]==0): // kdyz nebyl akt. radek jeste pouzit if ($vstupnipole[$pom][1]==$polehist[$polex]): // kdyz nalezi hledanemu predku $aktpom=$pom; $nasel=1; break; // vyskoceni z for cyklu endif; endif; endfor; if ($nasel==1): // vysledek hledani je kladny $vysledek[$vysledekcislo][0]=$aktpom; // pridani do pole vysledku $vysledek[$vysledekcislo][1]=$polex; // od 0 vyse $vysledekcislo++; // prechod na dalsi radek ve vysledkovem poli $vstupnipole[$aktpom][2]=1; // nastaveni prepinace na pouzito $polex++; // prechod na vyssi uroven v historii $polehist[$polex]=$vstupnipole[$aktpom][0]; // nastaveni akt. hodnoty v historii else: // vysledek hledani je zaporny if ($polehist[$polex]==0): // vysledek hledani na zakladni urovni je prazdny -> neexistuje zadna dalsi vetev $trizeni=0; else: $polex--; // prechod na nizsi uroven v historii endif; endif; endwhile; /* $vysledek[X][0] - X ve vstupnim poly [1] - cislo urovne */ return $vysledek; } // --[zakladni fce]----------------------------------------------------------------------------------- // zobrazeni vyberoveho prehledu vsech komentaru nalezicich k vybranemu clanku function ZobrazKom() { // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string(substr($GLOBALS["cisloclanku"],0,10)); $dotaz="select idk,datum,od,titulek,reakce_na,registrovany,reg_prezdivka from ".$GLOBALS["rspredpona"]."komentare where clanek='".$GLOBALS["cisloclanku"]."' order by idk"; $dotazkom=mysql_query($dotaz,$GLOBALS["dbspojeni"]); $pocetkom=mysql_num_rows($dotazkom); if ($pocetkom==0): // chyba - neni prirazen zadny komentar echo "

".RS_KO_NIC."

\n"; else: // prevod do pole for ($pom=0;$pom<$pocetkom;$pom++): // nacteni dat z DB $akt_pole_data=mysql_fetch_assoc($dotazkom); // pole informaci $data[$pom]['idk']=$akt_pole_data['idk']; // idk $data[$pom]['titulek']=$akt_pole_data['titulek']; // titulek $data[$pom]['od']=$akt_pole_data['od']; // autor $data[$pom]['datum']=$akt_pole_data['datum']; // datum $data[$pom]['registr']=$akt_pole_data['registrovany']; // registrovany ctenar $data[$pom]['reg_jmeno']=$akt_pole_data['reg_prezdivka']; // prezdivka registr. ctenare // pom. pole k setrideni $pomporadi[$pom][0]=$akt_pole_data['idk']; // id komentare $pomporadi[$pom][1]=$akt_pole_data['reakce_na']; // id predka komentare $pomporadi[$pom][2]=0; // nastaveni stavu radku endfor; // setrideni $poradi=SetridKomentare($pomporadi); // zobraz echo "
\n"; echo "\n"; echo "\n"; for($pom=0;$pom<$pocetkom;$pom++): $akt_komentar=$poradi[$pom][0]; // $poradi[$pom][0] -> obsahuje hodnotu poradi v poli $data // vypis radku echo ""; echo ""; // test na registraci ctenare if ($data[$akt_komentar]['registr']==1): echo ""; else: echo ""; endif; echo "\n"; endfor; echo "\n"; echo "
"; // generator mezery if ($poradi[$pom][1]>0): echo str_repeat('   ',$poradi[$pom][1]); endif; echo $data[$akt_komentar]['titulek']."[".$data[$akt_komentar]['reg_jmeno']."] - ".$data[$akt_komentar]['od']."".RS_KO_NEREG." - ".$data[$akt_komentar]['od']."".MyDatetimeToStd($data[$akt_komentar]['datum'])."
\n"; echo "
\n"; endif; // paticka echo "

".RS_KO_ZOBRAZ_VSE."    ".RS_KO_PRIDAT."

\n"; } // zobrazeni vsech komentaru pridanych k vybranemu clanku function ZobrazKoKom() { // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string($GLOBALS["cisloclanku"]); $dotaz="select idk,datum,obsah,od,od_mail,titulek,reakce_na,registrovany,reg_prezdivka from ".$GLOBALS["rspredpona"]."komentare where clanek='".$GLOBALS["cisloclanku"]."' order by idk"; $dotazkom=mysql_query($dotaz,$GLOBALS["dbspojeni"]); $pocetkom=mysql_num_rows($dotazkom); if ($pocetkom==0): // chyba - neni prirazen zadny komentar echo "

".RS_KO_NIC."

\n"; else: // pridavaci link echo "

".RS_KO_PRIDAT."

\n"; // prevod do pole for ($pom=0;$pom<$pocetkom;$pom++): // nacteni dat z DB $akt_pole_data=mysql_fetch_assoc($dotazkom); // pole informaci $data[$pom][0]=$akt_pole_data['idk']; // idk $data[$pom][1]=$akt_pole_data['titulek']; // titulek $data[$pom][2]=$akt_pole_data['od']; // autor $data[$pom][3]=$akt_pole_data['datum']; // datum $data[$pom][4]=$akt_pole_data['obsah']; // obsah komentare $data[$pom][5]=$akt_pole_data['od_mail']; // mail autora $data[$pom][6]=$akt_pole_data['registrovany']; // registrovany ctenar $data[$pom][7]=$akt_pole_data['reg_prezdivka']; // prezdivka registr. ctenare // pom. pole k setrideni $pomporadi[$pom][0]=$akt_pole_data['idk']; // id komentare $pomporadi[$pom][1]=$akt_pole_data['reakce_na']; // id predka komentare $pomporadi[$pom][2]=0; // nastaveni stavu radku endfor; // setrideni $poradi=SetridKomentare($pomporadi); // zjisteni maximalniho levelu $maxim_level=0; for($pom=0;$pom<$pocetkom;$pom++): if ($maxim_level<$poradi[$pom][1]): $maxim_level=$poradi[$pom][1]; endif; endfor; // preddefinovani zakladniho levelu if ($maxim_level>0): $vzhled_zakl_level=" colspan=\"".($maxim_level+1)."\""; else: $vzhled_zakl_level=""; endif; // zobrazeni komentaru echo "\n"; for($pom=0;$pom<$pocetkom;$pom++): $akt_komentar=$poradi[$pom][0]; // $poradi[$pom][0] -> obsahuje hodnotu poradi v poli $data // vypis radku echo "\n"; if ($poradi[$pom][1]==0): // zakladni level echo "',$poradi[$pom][1])."\n"; endif; echo "\n"; echo "\n"; endfor; echo "
\n"; else: // sublevel if ($poradi[$pom][1]>0): echo str_repeat('  \n"; endif; // hlavicka echo "
"; echo "".RS_KO_ZPR_ZE_DNE.": ".MyDatetimeToStd($data[$akt_komentar][3])."     "; echo "".RS_KO_ZPR_REG."
\n"; echo "".RS_KO_ZPR_AUT.": "; if ($data[$akt_komentar][6]==1): // test na registraci ctenare //echo "[".$data[$pom][7]."] - ".$data[$akt_komentar][2]; // zde byla chyba echo "[".$data[$akt_komentar][7]."] - ".$data[$akt_komentar][2]; else: echo RS_KO_NEREG." - ".$data[$akt_komentar][2]; endif; if ($data[$akt_komentar][5]!=''): // test na existenci e-mailu echo " (".$data[$akt_komentar][5].")"; endif; echo "
\n"; echo "".RS_KO_ZPR_TIT.": ".VycistiKoment($data[$akt_komentar][1]); echo "
\n"; // telo echo "
"; echo VycistiKoment($data[$akt_komentar][4]); echo "

\n"; echo "
\n"; endif; // paticka echo "

".RS_KO_PRIDAT."

\n"; } // zobrazeni jen pozadovanych komentaru function ZobrazVyKom() { // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string($GLOBALS["cisloclanku"]); // zjisteni poctu vybranych komentaru + sestaveni omezujiciho pole if (isset($GLOBALS["kclanek"])): $pocetvybr=count($GLOBALS["kclanek"]); // sestaveni omezujiciho pole for ($pom=0;$pom<$pocetvybr;$pom++): $pole_pov_id_kom[addslashes($GLOBALS["kclanek"][$pom])]=1; endfor; else: $pocetvybr=0; echo "

".RS_KO_PRAZDNY_VYB."

\n"; endif; $dotaz="select idk,datum,obsah,od,od_mail,titulek,reakce_na,registrovany,reg_prezdivka from ".$GLOBALS["rspredpona"]."komentare where clanek='".$GLOBALS["cisloclanku"]."' order by idk"; $dotazkom=mysql_query($dotaz,$GLOBALS["dbspojeni"]); $pocetkom=mysql_num_rows($dotazkom); if ($pocetkom>0&&$pocetvybr>0): // pridavaci link echo "

".RS_KO_PRIDAT."

\n"; // prevod do pole for ($pom=0;$pom<$pocetkom;$pom++): // nacteni dat z DB $akt_pole_data=mysql_fetch_assoc($dotazkom); // pole informaci $data[$pom][0]=$akt_pole_data['idk']; // idk $data[$pom][1]=$akt_pole_data['titulek']; // titulek $data[$pom][2]=$akt_pole_data['od']; // autor $data[$pom][3]=$akt_pole_data['datum']; // datum $data[$pom][4]=$akt_pole_data['obsah']; // obsah komentare $data[$pom][5]=$akt_pole_data['od_mail']; // mail autora if (isset($pole_pov_id_kom[$akt_pole_data['idk']])): $data[$pom][6]=1; // zobrazit komentar - ANO else: $data[$pom][6]=0; // zobrazit komentar - NE endif; $data[$pom][7]=$akt_pole_data['registrovany']; // registrovany ctenar $data[$pom][8]=$akt_pole_data['reg_prezdivka']; // prezdivka registr. ctenare // pom. pole k setrideni $pomporadi[$pom][0]=$akt_pole_data['idk']; // id komentare $pomporadi[$pom][1]=$akt_pole_data['reakce_na']; // id predka komentare $pomporadi[$pom][2]=0; // nastaveni stavu radku endfor; // setrideni $poradi=SetridKomentare($pomporadi); // zjisteni maximalniho levelu $maxim_level=0; for($pom=0;$pom<$pocetkom;$pom++): if ($maxim_level<$poradi[$pom][1]): $maxim_level=$poradi[$pom][1]; endif; endfor; // preddefinovani zakladniho levelu if ($maxim_level>0): $vzhled_zakl_level=" colspan=\"".($maxim_level+1)."\""; else: $vzhled_zakl_level=""; endif; // zobrazeni komentaru echo "\n"; for($pom=0;$pom<$pocetkom;$pom++): $akt_komentar=$poradi[$pom][0]; // $poradi[$pom][0] -> obsahuje hodnotu poradi v poli $data // vypis radku if ($data[$akt_komentar][6]==1): // test na povoleni zobrazeni komentare echo "\n"; if ($poradi[$pom][1]==0): // zakladni level echo "',$poradi[$pom][1])."\n"; endif; echo "\n"; echo "\n"; endif; endfor; echo "
\n"; else: // sublevel if ($poradi[$pom][1]>0): echo str_repeat('  \n"; endif; // hlavicka echo "
"; echo "".RS_KO_ZPR_ZE_DNE.": ".MyDatetimeToStd($data[$akt_komentar][3])."     "; echo "".RS_KO_ZPR_REG."
\n"; echo "".RS_KO_ZPR_AUT.": "; if ($data[$akt_komentar][7]==1): // test na registraci ctenare // echo "[".$data[$pom][8]."] - ".$data[$akt_komentar][2]; // zde byla chyba echo "[".$data[$akt_komentar][8]."] - ".$data[$akt_komentar][2]; else: echo RS_KO_NEREG." - ".$data[$akt_komentar][2]; endif; if ($data[$akt_komentar][5]!=''): // test na existenci e-mailu echo " (".$data[$akt_komentar][5].")"; endif; echo "
\n"; echo "".RS_KO_ZPR_TIT.": ".VycistiKoment($data[$akt_komentar][1]); echo "
\n"; // telo echo "
"; echo VycistiKoment($data[$akt_komentar][4]); echo "

\n"; echo "
\n"; endif; // paticka echo "

".RS_KO_ZOBRAZ_VSE."    ".RS_KO_PRIDAT."

\n"; } function NovyFormKom() { // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string(substr($GLOBALS["cisloclanku"],0,10)); // test na existenci reg. ctenare if ($GLOBALS["prmyctenar"]->ctenarstav==1): $prctenar=$GLOBALS["prmyctenar"]->Ukaz("jmeno"); $prctenar_mail=$GLOBALS["prmyctenar"]->Ukaz("email"); else: $prctenar=''; $prctenar_mail='@'; endif; // formular pro pridani noveho komentare echo "

".RS_KO_ZPR_JME.": 
".RS_KO_ZPR_EMAIL.": 
".RS_KO_ZPR_TIT.": 

"; $pocitadlo = 0; $code = ""; $str1 = "ABCDEFGHJKLMNOPQRSTUVWXYZ0123456789"; $str2=strlen($str1)-1; while($pocitadlo++ < 5): $code.=substr($str1,mt_rand(0,$str2),1); endwhile; if($GLOBALS["captcha"]): echo "

".RS_CT_SORRY_OPISKOD."

\"code\" "; echo "
".RS_CT_OPISKOD." \n"; echo "

"; endif; echo"

    

".RS_KO_INFO."

".RS_KO_ZOBRAZ_KOM."

\n"; } function NovyReFormKom() { // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string($GLOBALS["cisloclanku"]); $GLOBALS["ck"]=mysql_escape_string($GLOBALS["ck"]); // nacteni puvodniho komentare $dotazkom=mysql_query("select datum,obsah,od,od_mail,titulek from ".$GLOBALS["rspredpona"]."komentare where idk='".$GLOBALS["ck"]."'",$GLOBALS["dbspojeni"]); list($prdatum,$probsah,$prod,$prodmail,$prtitulek)=mysql_fetch_row($dotazkom); // zobrazeni puvodni komentare echo "

\n"; echo "
"; echo "".RS_KO_ZPR_ZE_DNE.": ".MyDatetimeToStd($prdatum)."
\n"; echo "".RS_KO_ZPR_AUT.": ".$prod; if ($prodmail!=''): echo " (".$prodmail.")"; endif; echo "
\n"; echo "".RS_KO_ZPR_TIT.": ".$prtitulek; echo "
\n"; echo "
\n"; echo $probsah; echo "
\n"; echo "

\n"; // test na existenci reg. ctenare if ($GLOBALS["prmyctenar"]->ctenarstav==1): $prctenar=$GLOBALS["prmyctenar"]->Ukaz("jmeno"); $prctenar_mail=$GLOBALS["prmyctenar"]->Ukaz("email"); else: $prctenar=''; $prctenar_mail='@'; endif; // formular na vlozeni odpovedi na predesly komentar echo "

".RS_KO_RE_NA_KOM."
\"".$prtitulek."\"

".RS_KO_ZPR_JME.": 
".RS_KO_ZPR_EMAIL.": 
".RS_KO_ZPR_TIT.": 

"; $pocitadlo = 0; $code = ""; $str1 = "ABCDEFGHJKLMNOPQRSTUVWXYZ0123456789"; $str2=strlen($str1)-1; while($pocitadlo++ < 5): $code.=substr($str1,mt_rand(0,$str2),1); endwhile; if($GLOBALS["captcha"]): echo "

".RS_CT_SORRY_OPISKOD."

\"code\" "; echo "
".RS_CT_OPISKOD." \n"; echo "

"; endif; echo"

    

".RS_KO_INFO."

".RS_KO_ZOBRAZ_KOM."

\n"; } function NovyPridejKom() { // uprava vstupu $GLOBALS["cisloclanku"]=KorekceVstupu($GLOBALS["cisloclanku"]); $GLOBALS["cislokom"]=KorekceVstupu($GLOBALS["cislokom"]); $GLOBALS["kobsah"]=KorekceVstupu($GLOBALS["kobsah"]); $GLOBALS["kobsah"]=PrelozKomZnacky($GLOBALS["kobsah"]); // prelozeni kom. znacek $GLOBALS["kobsah"]=KorekceVelikosti($GLOBALS["kobsah"]); // omezeni velikosti $GLOBALS["kobsah"]=nl2br($GLOBALS["kobsah"]); $GLOBALS["ktitulek"]=KorekceVstupu($GLOBALS["ktitulek"]); $GLOBALS["ktitulek"]=KorekceVelikosti($GLOBALS["ktitulek"]); // omezeni velikosti $GLOBALS["kod"]=KorekceVstupu($GLOBALS["kod"]); $GLOBALS["kodmail"]=KorekceVstupu($GLOBALS["kodmail"]); // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string($GLOBALS["cisloclanku"]); $GLOBALS["cislokom"]=mysql_escape_string($GLOBALS["cislokom"]); $GLOBALS["kobsah"]=mysql_escape_string($GLOBALS["kobsah"]); $GLOBALS["ktitulek"]=mysql_escape_string($GLOBALS["ktitulek"]); $GLOBALS["kod"]=mysql_escape_string($GLOBALS["kod"]); $GLOBALS["kodmail"]=mysql_escape_string($GLOBALS["kodmail"]); // antispam simplex begin $odkazstr1="href";$odkazstr2="http://"; // definice nežádoucích tagů $pos1 = strpos($GLOBALS["kobsah"],$odkazstr1); // vyhledávání v obsahu $pos2 = strpos($GLOBALS["kobsah"],$odkazstr2); // vyhledávání v obsahu $pos3 = strpos($GLOBALS["ktitulek"],$odkazstr1); // vyhledávání v obsahu $pos4 = strpos($GLOBALS["ktitulek"],$odkazstr2); // vyhledávání v obsahu $pole_zak=array("Great","helpful","Usefull","information","[url]","[/url]"); // sem budeme přidávat ručně zatím $pos0=false; foreach ($pole_zak as $hodnota) { if((strpos($GLOBALS["kobsah"],$hodnota))!==false) {$pos0=true;} } $times=false; // inicializace proměnné $cas=time(); // aktuální čas if (isset($GLOBALS["times"])){ // pokud bylo odesláno if(($GLOBALS["times"]+10)>$cas){ // a pokud uplynulo méně nežli 10 sekund $times=false; // nepovolíme } else{ $times=true; // nebo povolíme } } // antispam simplex end // antispam class include_once("trantispam.php"); if ($myantispam->MySpamTest($GLOBALS["kobsah"])) {$pos0=true;} if ($myantispam->MySpamTest($GLOBALS["ktitulek"])) {$pos0=true;} // antispam class end $ip_adresa=$_SERVER["REMOTE_ADDR"]; // ip adresa ctenare $aktdatum=Date("Y-m-d H:i:s"); // kontrola kontrolního kódu if (((md5($GLOBALS["kodpole"]))!=$GLOBALS["kodhash"] || $GLOBALS["kodpole"]=='')&&($GLOBALS["captcha"])): // CHYBA: Spatny nebo nezadany kontrolni kod echo "

".RS_CT_ERR_KOD."

\n"; else: if ($GLOBALS["kobsah"]==''): // chyba - prazdny komentar echo "

".RS_KO_ERR2."

\n"; elseif(($pos1===false)and($pos2===false)and($pos3===false)and($pos4===false)and($times)and($pos0===false)): // test na existenci reg. ctenare if ($GLOBALS['prmyctenar']->ctenarstav==1): $nast_registrovany=1; $nast_reg_prezdivka=$GLOBALS['prmyctenar']->Ukaz('username'); $nast_reg_id=$GLOBALS['prmyctenar']->Ukaz('id'); else: $nast_registrovany=0; $nast_reg_prezdivka=''; $nast_reg_id=0; endif; // sestaveni dotazu $dotaz="insert into ".$GLOBALS["rspredpona"]."komentare values "; $dotaz.="(null,'".$aktdatum."','".$GLOBALS["kobsah"]."','".$GLOBALS["cisloclanku"]."','".$GLOBALS["kod"]."','".$GLOBALS["kodmail"]."','".$ip_adresa."',"; $dotaz.="'".$GLOBALS["ktitulek"]."','".$GLOBALS["cislokom"]."','".$nast_registrovany."','".$nast_reg_prezdivka."','".$nast_reg_id."')"; // pridani komentare $posledni_id=""; @$error=mysql_query($dotaz,$GLOBALS["dbspojeni"]); if (!$error): // chyba - neuspesny sql prikaz echo "

".RS_KO_ERR1."

\n"; else: // odšleme info mail $posledni_id=mysql_insert_id(); Comment_info_mail($posledni_id,$GLOBALS["cisloclanku"],$GLOBALS["kobsah"]); // konec odeslání // vse je OK; pripocitani 1 komentare k celkovemu poctu @mysql_query("update ".$GLOBALS["rspredpona"]."clanky set kom=(kom+1) where link='".$GLOBALS["cisloclanku"]."'",$GLOBALS["dbspojeni"]); echo "

".RS_KO_VLOZEN_OK."

\n"; endif; endif; endif; // paticka echo "

".RS_KO_ZOBRAZ_KOM."

\n"; echo "

\n"; } // odeslání info mailu function Comment_info_mail($id="",$cisloclanku="",$obsahkomentare=""){ $dotaz="SELECT idc,titulek FROM ".$GLOBALS["rspredpona"]."clanky where link='".$cisloclanku."' order by idc"; $dotazclanek=mysql_query($dotaz,$GLOBALS["dbspojeni"]); $pocetclanek=mysql_num_rows($dotazclanek); //$obsah="Na stránky http://www.caslavsko.net byl přidán nový komentář \r\n\r\n"; $obsah="Nový komentář na http://www.caslavsko.net \r\n\r\n"; $obsah.="ke článku:".mysql_result($dotazclanek,0,"titulek").""; $obsah.="\r\n\r\n"; $obsah.="Link na komentář: "; $obsah.="http://www.caslavsko.net/comment.php?akce=fullview&cisloclanku=".$cisloclanku.""; $obsah.="\r\n\r\n"; $obsah.="Obsah komentáře:\r\n\r\n"; $obsah.=$obsahkomentare; $titulek="Nový komentář na čáslavsko.net"; $komu="kristian.vrhel@seznam.cz"; $valid_email="no.reply@caslavsko.net"; $valid_jmeno="Caslavsko.net - komentarovy subsystem"; include_once('admin/astdlib_mail.php'); // nacteni postovni tridy $odeslani_posty = new CPosta(); $odeslani_posty->Nastav("predmet",$titulek); $odeslani_posty->Nastav("obsah",$obsah); $odeslani_posty->Nastav("adresat",$komu); $odeslani_posty->Nastav("odesilatel_mail",$valid_email); $odeslani_posty->Nastav("odesilatel_txt",$valid_jmeno); $odeslani_posty->Odesilac()==1; } function Chyba($idchyba = 0) { switch ($idchyba): case 0: echo "

".RS_KO_ERR5."

\n"; break; // defaultni chyba case 1: echo "

".RS_KO_ERR3."

\n"; break; // chybi cislo (link) clanku case 2: echo "

".RS_KO_ERR4."

\n"; break; // chybi clanek (vstupni link neukazuje na zadny clanek) endswitch; } // overeni existence potrebnych promennych if (!isset($GLOBALS["cisloclanku"])): $GLOBALS["akce"]="chyba1"; endif; if (!isset($GLOBALS["akce"])): $GLOBALS["akce"]="view"; endif; // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string($GLOBALS["cisloclanku"]); // kontrola existence clanku $dotazclanek=mysql_query("select titulek,datum,autor from ".$GLOBALS["rspredpona"]."clanky where link='".$GLOBALS["cisloclanku"]."'",$GLOBALS["dbspojeni"]); if (mysql_num_rows($dotazclanek)==0): // clanek neexistuje $GLOBALS["akce"]="chyba2"; else: // ziskani dat o clanku list($clatitulek,$cladatum,$claautor)=mysql_fetch_row($dotazclanek); $cladatum=MyDatetimeToDate($cladatum); // vysledek dd.mm.rrrr // ziskani informaci o autorovi clanku $dotazautori=mysql_query("select idu,jmeno,email from ".$GLOBALS["rspredpona"]."user where idu=".$claautor,$GLOBALS["dbspojeni"]); if (mysql_num_rows($dotazautori)==1): $claautor_jm=mysql_Result($dotazautori,0,"jmeno"); $claautor_mail='mailto:'.mysql_Result($dotazautori,0,"email"); else: $claautor_jm=''; $claautor_mail=''; endif; endif; // Tvorba stranky $vzhledwebu->Generuj(); ObrTabulka(); // Vlozeni layout prvku if ($akce!="chyba1"||$akce!="chyba2"): // zobraz jen, kdyz je vse OK echo "

\" ".RS_KO_NADPIS."

"; echo "

\n"; echo "".RS_KO_NADPIS." ".RS_KO_KE_CLA.": ".$clatitulek."
"; // Komentar - ke clanku - X echo "(".RS_KO_ZE_DNE." ".$cladatum.", ".RS_KO_AUTOR_CLA.": ".$claautor_jm.")"; // ze dne - X - autor clanku - X echo "

\n"; endif; // rozhodnuti o obsahu stranky switch($akce): case "view": ZobrazKom(); break; case "fullview": ZobrazKoKom(); break; case "selectview": ZobrazVyKom(); break; case "new": NovyFormKom(); break; case "re": NovyReFormKom(); break; case "insert": NovyPridejKom(); break; case "chyba1": Chyba(1); break; case "chyba2": Chyba(2); break; endswitch; if ($GLOBALS["akce"]!="chyba1"||$GLOBALS["akce"]!="chyba2"): // zobraz jen, kdyz je vse OK echo "

".RS_KO_ZOBRAZ_CLA." ".$clatitulek."

\n"; endif; // Dokonceni tvorby stranky KonecObrTabulka(); // Vlozeni layout prvku $vzhledwebu->Generuj(); ?>