function pet_read($r, $nba, $page)
{
$limit = ($page - 1) * $nba;
$nbr = pet_count_valid($r);
$ret = str_replace('_NB', $nbr, pet_hlp('actually')) . br() . br();
$head = $r['_menus_'];
unset($r['_menus_']);
krsort($r);
$id = $_SESSION['read'];
//$head=explode(',',pet_hlp('entries'));
$datas[] = array('date', $head[0], $head[3], $head[4]);
foreach ($r as $k => $v) {
if ($v[6] == 1) {
$i++;
if ($v[2]) {
$name = lkt('', $v[2], $v[0]);
} else {
$name = $v[0];
}
if ($i > $limit && $i <= $limit + $nba) {
$datas[] = array(mkday($k), $name, $v[3], $v[4]);
}
}
}
if ($nbr > $nba) {
$nbp = ceil($nbr / $nba);
if ($nbp > 1) {
for ($i = 1; $i <= $nbp; $i++) {
$aff[$i] = $i;
}
}
$pages = slctmenusj($aff, 'pet' . $id . '_plug___petition_pet*j_' . $nba . '|' . $id . '|', $page, ' ');
}
if ($_GET['read'] == $id && $id) {
$ret .= make_table($datas, 'popbt', '') . br() . $pages . br() . br();
}
return $ret;
}
function conn_view($d, $s)
{
$js = 'cnv_call___admin_conn*view_';
$r = msql_read('system', 'connectors_all', '', 1);
$r = msq_tri($r, 0, 'embed');
$cat = msq_cat($r, 2);
$ret .= slctmenusj($cat, $js, $d, ' ') . br() . br();
$cat = msq_tri($r, 2, $d);
//p($cat);
if ($d) {
$r = msq_tri($r, 2, $d);
if ($s) {
$ret .= divc('', nl2br(stripslashes(msql_read('lang', 'connectors_all', $s)))) . br();
$ins = '§' . $s . ':conn';
if ($_SESSION['cur_cl'] == 'template') {
$ins = '[value' . $ins . ']';
}
$ret .= input(1, 'cnvw', $ins, 'txtx');
$ret .= ljb('txtbox', 'jumpText_insert_b', 'cnvw\',\'txarea', 'insert') . br();
$ret .= btn('txtsmall2', 'use value§option if needed') . br() . br();
}
$ret .= slctmenusj($cat, $js . $d . '_', $s, br()) . br();
}
return $ret;
}
function suj_arts($suj, $id)
{
$r = sql('id', 'qda', 'k', 'nod="' . ses('qb') . '" and suj="' . $suj . '" and id!="' . $id . '"');
if ($r) {
return slctmenusj($r, 'popup_popart___', $read, ' ');
}
}
function exportation($pub, $node, $topic, $sub)
{
$USE = $_SESSION['USE'];
$go = 'popup_export__pop_';
if ($USE != "") {
if ($part != "" or $pub != "") {
if ($node != $USE) {
$ret .= lj("popw", $go . $pub, "export:");
} else {
$ret .= btn("popw", "import:");
}
if ($node) {
$ret .= lj("popbt", $go . $pub . '_' . $node, $node);
}
if ($topic) {
$ret .= lj("popbt", $go . $pub . '_' . $node . '_' . $topic, $topic) . ' :: ';
}
if (!$node) {
//menus:hubs && count($_SESSION['mn'])>1
$ret .= slctmenusj($_SESSION['mn'], $go . $pub . '_', $_SESSION['qb'], ' ');
}
}
$lineb = sql('frm', 'qda', 'k', "nod='{$node}' AND day>" . calc_date(360) . ' ORDER BY frm');
if (count($_SESSION['mn']) > 1 && $lineb) {
$ret .= slctmenusj($lineb, $go . $pub . '_' . $node . '_', '', ' ');
}
}
if ($topic != "" && !$sub) {
//topic
$lk = $go . $pub . '_' . $node . '_' . $topic . '_';
$ret .= lj("popdel", $lk . 'ok', 'save in: ' . $topic);
if ($_SESSION['dayb']) {
$sqlt = 'AND day>' . $_SESSION['dayb'] . '';
}
$req = sq('id,suj', 'qda', 'where nod="' . $node . '" AND frm="' . $topic . ' ' . $sqlt . ' ORDER BY id DESC LIMIT 100');
if ($req) {
while ($data = mysql_fetch_array($req)) {
$rte .= lj('', $lk . $data["id"], $data["suj"]) . br();
}
}
if ($rte) {
$ret .= ' ' . btn('txtx', 'or affiliate to:') . br() . divc('nbp', $rte);
}
}
if ($sub != "") {
$tosave = import($node, $pub, $USE, $topic, $_SESSION['qb'], $sub);
//sub
$ret = lkc("popw", '/?read=' . $tosave, 'saved in ' . $node . '/' . $topic . '/' . $tosave);
}
return $ret;
}
