function environ_build($id, $o)
{
req('spe,art');
//,mod,pop,tri
$ret = environ_art($id);
$ib = ib_of_id($id);
if ($ib) {
$ret .= divc('', divc('txtcadr', 'parent') . environ_art($ib));
}
$r = art_tags($id);
//pr($r);
if ($r) {
foreach ($r as $k => $v) {
foreach ($v as $ka => $va) {
$ret .= divc('txtcadr', $ka);
$rb = tag_arts($ka, $k, 7);
if ($rb) {
foreach ($rb as $kb => $vb) {
$ret .= environ_art($kb);
}
}
}
}
}
$r = art_opts($id);
//pr($r);
foreach ($r as $k => $v) {
if (is_numeric($v)) {
$t = divc('txtcadr', $k);
$d = environ_art($v);
$ret .= divc('', $t . $d);
}
}
return $ret;
}
function find_navigation($id)
{
$ib = ib_of_id($id);
if (is_numeric($ib) && $ib != $id && $ib) {
//$nav=pane_art($ib,'');
$nav = bal('h4', lka(urlread($ib), pictxt('topo', suj_of_id($ib))) . ' ' . popart($ib));
if ($ib != ses('read')) {
return find_navigation($ib) . $nav;
}
}
}
function taxo_arts($p)
{
if ($p == 1) {
$v = $_SESSION['frm'];
}
if (!$p) {
$p = ib_of_id(ses('read'));
}
if (!is_numeric($p)) {
$taxcat = $_SESSION['superline'][$p];
} elseif (is_numeric($p)) {
$hie = supertriad_c($_SESSION['dayb']);
$taxcat = $hie[$p];
}
return $taxcat;
}
function art_back($id, $ib, $frm)
{
if ($frm != $_SESSION['frm'] && $frm && rstr(43)) {
return lka(htac('section') . $frm . '#' . $id, $frm);
} else {
$t = picto('previous');
}
if ($_GET['read']) {
$ibb = ib_of_id($ib);
if ($id != $_SESSION['read']) {
if (!$ibb or $ibb == '/') {
$bl = htac('section') . $frm . '#' . $ib;
} else {
$bl = urlread($ibb) . '#' . $ib;
$t = $ibb;
}
} elseif ($ib > 0) {
$bl = urlread($ib) . '#' . $id;
$t = picto('left');
} elseif ($_SESSION['read']) {
$bl = htac('section') . $frm . '#' . $id;
$t = picto('previous');
} else {
$bl = htac('section') . $frm . '#' . $id;
}
return lka($bl, $t ? $t : $frm);
}
}
function find_navigation($id)
{
$ib = ib_of_id($id);
if (is_numeric($ib) && $ib != $id) {
list($idb, $suj) = ser("id,suj", $_SESSION['qda'] . ' WHERE id="' . $ib . '"');
if ($suj) {
$nav = bal('h4', lka(urlread($idb), pictxt('paste', $suj)) . ' ' . popart($idb));
}
if ($idb != ses('read')) {
return find_navigation($idb) . $nav;
}
}
}