function draw_table($r, $murl, $adm = '')
{
//adm=saving
list($dr, $nd, $n) = murl_vars($murl);
foreach ($r as $k => $v) {
$ra = '';
$i++;
if (is_array($v)) {
foreach ($v as $ka => $va) {
$ra[] = msq_data(cutat($va), 1);
}
}
$css = $k == $_GET['def'] ? 'txtyl' : 'txtbox';
$jurl = ajx($murl) . '_' . ajx($k);
$edit = lka(sesm('url') . $murl . ':' . $k . gpage(), picto('editor'));
//ajx
if ($k == '_menus_' && $ra) {
foreach ($ra as $ka => $va) {
$ra[$ka] = lka(sesm('url') . $murl . '&sort=' . $ka, $ka . ':' . $va);
}
array_unshift($ra, lka(sesm('url') . $murl . '&sort=k', 'keys'));
if (auth(4)) {
array_unshift($ra, '');
}
} elseif (is_array($ra)) {
foreach ($ra as $ka => $va) {
$ra[$ka] = medit_shot_bt($va, $k, $ka, $dr, ajx($nd));
}
if (auth(4)) {
array_unshift($ra, lj($css, 'popup_editmsql___' . $jurl, $k));
}
if (auth(4)) {
array_unshift($ra, $edit);
} else {
array_unshift($ra, $k);
}
}
$datas[$k] = $ra;
}
return make_table_bypage($datas, 'popw', '');
}
function slct_r($d, $o, $vrf = '')
{
switch ($d) {
case 'parent':
$r = newartparent();
break;
case 'category':
$r = $_SESSION['line'];
if ($r) {
ksort($r);
}
break;
//$r=array(nms(9)=>1);
//$r=array(nms(9)=>1);
case 'tag':
$r = tags_list_nb($o, 30);
break;
//$r=array('tag'=>1);
//$r=array('tag'=>1);
case 'lang':
$r = array_flip(explode(' ', prmb(26)));
$cl = 1;
break;
case 'msql':
req('msql');
list($dr, $nd, $vn) = murl_vars($o);
$r = msql_read($dr, $nd, '', 1);
//echo $o.'-'.$vrf.':'.$dr.'/'.$nd.'='.$vn.br();
if ($r) {
ksort($r);
}
if ($r) {
$r = array_flip(array_keys($r));
}
break;
case 'msqlc':
req('msql');
list($dr, $nd, $vn) = murl_vars($o);
$ra = msql_read($dr, $nd, '', 'k', 1);
$vrf = $vn ? $vn : 0;
if ($ra) {
foreach ($ra as $k => $v) {
$v = parse($v[$vrf]);
$r[$v] = $v;
}
}
if ($r) {
ksort($r);
}
break;
case 'plug':
$r = msql_read('system', 'program_plugs');
if ($r) {
ksort($r);
}
break;
case 'func':
if ($o) {
$r = call_user_func($o);
}
$r = array_keys($r);
if ($r) {
ksort($r);
}
break;
case 'pfunc':
list($plg, $fnc, $prm) = explode('/', $o);
$r = plugin_func($plg, $fnc, $prm);
break;
case 'pfuncb':
list($plg, $fnc, $prm) = explode('/', $o);
$r = plugin_func($plg, $fnc, $prm);
break;
default:
if (strpos($d, '|')) {
$r = array_flip(explode('|', $d));
} else {
$r = array_flip(explode(' ', $d));
}
break;
}
if ($r && $cl) {
$r = array_unshift_b($r, '', 'x');
}
//if($r[0])unset($r[0]);
return $r;
}
