";
switch ($pol[7]){
case '#@#':
$ota.='Přeji pěkný den.
Libor Vejpustek';
break;
default:
if ($pol[8]) $ota.="
";
$ota.="$pol[7]";
if ($pol[8]) $ota.="";
}
$rad="
Odpověď č. ".$pol[5]." (".substr($pol[9],6,2).".".
substr($pol[9],4,2).".".substr($pol[9],0,4)." "
.substr($pol[9],8,2).":".substr($pol[9],10,2).")";
$ota.="
";
echo "$rad
\n$ota";
}
}
function vyp_pol($res, $typ) {
global $next, $stred, $akce, $opr, $neopr, $script;
$num = mysql_numrows($res);
if ($num > 0) {echo "Počet záznamů : $num.\n";}
else {echo "Nenalezen žádný záznam.\n";return;}
$maxrad=50;
$cnum=$num;
if ($next) {$first=$next;}else{$first=0;}
$next=0;
if ($num-$first > $maxrad) {$num=$maxrad+$first;$next=$num;}
echo "Vypisuji záznamy od ".($first+1)." do $num.\n";
switch ($typ) {
case 0:
for ($i=1; $i$odp, ";
}
$tex.="\n
";
}
$ota=$pol[1]."
";
switch ($pol[2]){
case '#@#':
$ota.='Přeji pěkný den.
Libor Vejpustek
';
break;
default:
if ($pol[3]) $ota.="
";
$ota.="$pol[2]";
if ($pol[3]) $ota.="";
}
$rad="
".$pol[0]."(".substr($pol[4],6,2).".".
substr($pol[4],4,2).".".substr($pol[4],0,4)."
"
.substr($pol[4],8,2).":".substr($pol[4],10,2).")";
$ota.="
";
$pol=array($pol[0], $rad, $ota, $tex);
}
detail($pol, $veta, $klic);
}
echo "\n";
if ($next>0) {
if (($cnum-$next)<$maxrad){$mmm=$cnum-$next;}else{$mmm=$maxrad;}
echo "
";}
else {echo "Konec výpisu.
";}
}
$script="poradna.phtml";
#pole($HTTP_POST_VARS);
#pole($HTTP_GET_VARS);
$datab="libor";
$trans="/home/vejpuste/trans/pora0001.dat";
#echo "$akce";
$akce=substr($akce,0,1);
if ($veta)
{
switch ($akce) {
case 'O':
naz_str("Odpovědět na dotaz č. $veta.");
echo "
";
break;
case 'u':
naz_str("Ukázka odpovedi");
echo $HTTP_POST_VARS['text'];
break;
case 'U':
naz_str("Zápis odpovědi.");
if (($text) and ($podpis)) {
echo "Díky za zadání.
";
list ($s, $i)=nacti("insert into por_od values(null, $veta, '$text',
'$podpis', '$email', null, '$REMOTE_ADDR')");
$cislo=mysql_insert_id();
if ($i==0) {
echo "Změny byly uloženy.";
echo "Vaše odpověď má číslo $cislo.
";
} else {echo "Nepovedlo se zapsat změny.";}
} else {eerr("Musíte vyplnit odpověď a podpis.
\n");}
break;
}
}
elseif ($odp) {
naz_str("Výpis odpovědi.");
list ($s, $i)=nacti("select kod_ot, text, podpis, email, cas from por_od where
kod=$odp");
echo "";
break;
case 'U':
naz_str("Zápis otázky.");
if ($text) {
echo "Díky za zadání.
";
list ($s, $i)=nacti("insert into por_ot values(null, '$text', '$podpis', '$email', $zobraz, null, '$REMOTE_ADDR')");
$cislo=mysql_insert_id();
if ($i==0) {
echo "Změny byly uloženy.";
echo "Váš dotaz má číslo $cislo.
";
mail( 'vejpuste@uvt.czu.cz', "Poradna.", "Byla zapsana nova otazka",
"Tento mail byl automaticky vygenerovan programem PORADNA.");
} else {echo "Nepovedlo se zapsat změny.";}
} else {eerr("Musíte alespoň něco napsat.
\n");}
break;
case 'H':
naz_str("Vyhledávání.");
echo 'Klepnutím na číslo ve sloupci "Odpovědi" '.
' se Vám zobrazí v dalším okně odpověď.';
if ($kod) {
echo "Hledám otázku číslo $kod.
\n";
list ($s, $i)=nacti("select kod, text, podpis, email, cas from por_ot where
kod=$kod ");
echo "
";
$bezradku="JO";
vyp_pol($s,1);}
else {
echo "Hledám otázku ve které je \"$text\".
\n";
list ($s, $i)=nacti("select kod, text, podpis, email, cas from por_ot where
text like '%$text%'");
echo "";
$bezradku="JO";
vyp_pol($s,1);}
break;
case 'Z':
naz_str("Výpis otázek.");
list ($s, $i)=nacti("select kod, text, podpis, email, cas from por_ot where
zobraz=1 order by kod desc");
echo 'Klepnutím na číslo ve sloupci "Odpovědi" '.
' se Vám zobrazí v dalším okně odpověď.';
echo "
";
$bezradku="JO";
vyp_pol($s,1);
break;
case 'S':
naz_str("Výpis otázek a odpovědí.");
echo 'Podmínky pro spoření i úvěry se průběžně mění, '.
'takže odpovědi jsou platné v době odpovídání.';
$dot="select ot.kod, ot.text, ot.podpis, ot.email, ot.cas,".
"od.kod, od.text, od.podpis, od.email, od.cas ".
"from por_ot ot, por_od od where od.kod_ot=ot.kod and zobraz=1 ".
"order by ot.kod desc, od.kod desc";
list ($s, $i)=nacti($dot);
# echo "$dot
".mysql_num_rows($s);
# echo "
";
$bezradku="JO";
vyp_pol_ot_od($s,1);
break;
case 'a':
naz_str("Výpis všech otázek.");
list ($s, $i)=nacti("select kod, text, podpis, email, cas from por_ot
order by kod desc");
echo "