function mostrar_informacion()
{
global $d, $t, $pk, $pki, $con, $meta;
echo h3("Tabla {$t}");
echo h4("Clave primaria: {$pk} con index {$pki}");
echo h4("Claves forraneas:");
$fka = db_getFK($meta, $d, $t);
if ($fka[0]) {
foreach ($fka[1] as $fk) {
echo h5($fk[0] . " hace referencia a " . link_table($fk[1]) . "(" . $fk[2] . ")");
}
}
echo h4("Referencias a esta tabla:");
$rfka = db_getrFK($meta, $d, $t);
if ($rfka[0]) {
foreach ($rfka[1] as $rfk) {
echo h5(link_table($rfk[1]) . "(" . $rfk[2] . ") hace referencia a " . $rfk[0]);
}
}
}
// mira lo que hace extract(), todavía no lo uso aquí
param("ca", $ca);
// seria buena idea si son muchos parametros
param("vi", $vi);
// empezamos el query string para pasarlo a hacer_lista()
$qs = "{$yo}?";
$con = db_open($db_name);
echo "KEYS:", br();
foreach (["artistas", "albumes", "canciones", "videos"] as $t) {
echo "{$t} PK: ", db_getPK($db_name, $t), br();
$ka = db_getFK($db_name, $t);
if ($ka[0]) {
echo "{$t} FK: " . $ka[1][0][0] . " ref tabla " . $ka[1][0][1] . " col " . $ka[1][0][2] . br();
}
PC::db($ka, "{$t}");
$rfk = db_getrFK($db_name, $t);
if ($rfk[0]) {
echo "Referencias a {$t}: ", table($rfk[0], $rfk[1]);
}
}
// empezamos por las canciones de momento, luego veremos que hacer con los videos
if ($ca) {
// mostrar la cancion selecionada
$qs .= "vi={$vi}&";
$videos = db_query($con, "SELECT tipo_video, enlace FROM videos WHERE id_cancion={$ca} ORDER BY 1, 2")[1];
if ($videos) {
foreach ($videos as $v) {
echo br(), "{$v['0']}: {$v['1']}" . t("video", t("source", "", ["src" => $v[1]]), ["width" => 320, "height" => 240, "controls" => ""]);
}
} else {
echo "No encuentro videos";
param("ca", $ca);
// seria buena idea si son muchos parametros
param("vi", $vi);
// empezamos el query string para pasarlo a hacer_lista()
$qs = "{$yo}?";
$con = db_open($db_name);
$meta = db_open_meta();
echo "KEYS:", br();
foreach (["artistas", "albumes", "canciones", "videos"] as $t) {
echo "{$t} PK: ", db_getPK($meta, $db_name, $t), br();
$ka = db_getFK($meta, $db_name, $t);
if ($ka[0]) {
echo "{$t} FK: " . $ka[1][0][0] . " ref tabla " . $ka[1][0][1] . " col " . $ka[1][0][2] . br();
}
PC::db($ka, "{$t}");
$rfk = db_getrFK($meta, $db_name, $t);
if ($rfk[0]) {
echo "Referencias a {$t}: ", table($rfk[0], $rfk[1]);
}
}
// empezamos por las canciones de momento, luego veremos que hacer con los videos
if ($ca) {
// mostrar la cancion selecionada
$qs .= "vi={$vi}&";
$videos = db_query($con, "SELECT tipo_video, enlace FROM videos WHERE id_cancion={$ca} ORDER BY 1, 2")[1];
if ($videos) {
foreach ($videos as $v) {
echo br(), "{$v['0']}: {$v['1']}" . t("video", t("source", "", ["src" => $v[1]]), ["width" => 320, "height" => 240, "controls" => ""]);
}
} else {
echo "No encuentro videos";
