Previous Next
Odešel velký vypravěč (Jaroslav Med 19. 4. 1932 – 14. 2. 2018) PETR ŠÁMAL Jaroslav Med byl nepřehlédnutelnou postavou české literární vědy. Ať vstoupil kamkoli, všude ho bylo vidět...
Literárněvědná bohemistika 2018 – anketa S odstupem dvou let oslovila redakce časopisu Česká literatura odborníky z řad literárních vědců i příbuzných...
Prameny k životu Jaroslava Vrchlického MARTIN HRDINA Pětapadesátým svazkem edice Varia jsou vzpomínkové texty související s osobou Jaroslava Vrchlického,...

<?php
setlocale(LC_ALL,"cs_CZ.UTF-8");
$dir = 'sqlite:http://ucl.cas.cz/uzivaci/mozek/db/.ht.m0z3k.db';
$db = new PDO($dir);

# Číselník místností
$query = "SELECT * FROM mistnost";
$mistnostId_nazev = array();
$mistnostId_klapka = array();

foreach ( $db->query($query) as $row ) {
$mistnostId_nazev[$row[0]] = $row[1];
$mistnostId_klapka[$row[0]] = $row[2];
}

# Člověk > místnost | klapka
$query = "SELECT * FROM clovek_mistnost";
$clovekMistnost = array();
$clovekKlapka = array();

foreach ( $db->query($query) as $row ) {

# Brno
if ( $mistnostId_nazev[$row[2]] == "Brno" ) {
$clovekMistnost[$row[1]] = "Brno";

if ( empty ( $row[3] ) ) {
$clovekKlapka[$row[1]] = $mistnostId_klapka[$row[2]];
}
else {
$clovekKlapka[$row[1]] = $row[3];
}
}
else if ( $clovekMistnost[$row[1]] != "Brno" ){

# Člověk > místnost(i)
if ( empty ( $clovekMistnost[$row[1]] ) ) {
$clovekMistnost[$row[1]] = $mistnostId_nazev[$row[2]];
}
else {
$clovekMistnost[$row[1]] .= "|" . $mistnostId_nazev[$row[2]];
}

# Vlastní klapka ?
if ( empty ( $row[3] ) ) {
$klapka = $mistnostId_klapka[$row[2]];
}
else {
$klapka = $row[3];
}

# Člověk > klapka(y)
if ( empty ( $clovekKlapka[$row[1]] ) ) {
$clovekKlapka[$row[1]] = $klapka;
}
else {
$clovekKlapka[$row[1]] .= "/" . $klapka;
}
}
}

$query = "SELECT * FROM clovek";
$print = array();

foreach ( $db->query($query) as $row ) {

if ( $row[10] == 1) {

# Příjmení, jméno
$fullName = "$row[3], $row[2]";
$fullName = trim($fullName);

# Identifikátor (příjmení-jméno-id)
$identifier = "$row[3]-$row[4]-$row[0]";

# Webový profil
$profil = $row[6];

# Telefon s předvolbou
if (!empty($clovekKlapka[$row[0]])){

if ( $clovekMistnost[$row[0]] == 'Brno' ) {
$telefon = "543 422 " . $clovekKlapka[$row[0]];
}
else {
$telefon = "222 828 " . $clovekKlapka[$row[0]];
}
}
else
{
$telefon = "";
}

# Email
if (!empty($row[5])){
$email = "$row[5] [at] ucl.cas.cz";
}
else
{
$email = "";
}

# Uložit řetězec
$print[$identifier] = "<tr><td><a href='$profil'>$fullName</a></td><td>" . $clovekMistnost[$row[0]] . "</td><td>$telefon</td><td>$email</td></tr>";
}
}

echo "<table style='border-collapse:collapse'>";
echo "<tr><td><b>jméno</b></td><td><b>místnost</b></td><td><b>telefon</b></td><td><b>email</b></td>";

ksort($print, SORT_LOCALE_STRING);
#uksort($print, 'strcoll');

foreach ($print as $key => $val) {
echo "$val";
}

echo "</table>";

?>