function admin_art_edit($id)
{
$msg = sql('msg', 'qdm', 'v', 'id=' . $id);
$ath = data_val('msg', $id, 'authlevel');
if ($ath > $_SESSION['auth']) {
return popup('article ' . $id, nms(55));
}
//$msg=str_replace('['.ses('qb').'/','['.host().'/users/'.ses('qb').'/',$msg);
//$msg=str_replace('['.ses('qb'),'['.host().'/img/'.ses('qb'),$msg);
$j = 'popup_editbrut_edit' . $id . '_x_' . $id;
if (auth(5)) {
$ret = btn('', btd('bts', lj('popsav', $j, 'save'))) . ' ';
}
$ret .= lj('txtbox', 'pop_editbrut___' . $id, 'connectors') . ' ';
$ret .= lj('txtbox', 'edit' . $id . '_delconn__4_' . $id, 'text') . ' ';
$ret .= lj('txtbox', 'edit' . $id . '_conn2__4_' . $id, 'html') . ' ';
$ret .= hlpbt('conn_pub') . br();
$ret .= txarea('edit' . $id, $msg, 64, 20, 'console');
return popup('article ' . $id, $ret);
}
function flux_xml($main, $preview)
{
$http = host();
foreach ($main as $k => $v) {
if ($v[1] != "user" && $v[7] != "") {
$url = $http . htacc('read') . $k;
if ($preview) {
$msg = sql('msg', 'qdm', 'v', 'id="' . $k . '"');
$msg = correct_txt($msg, 'b i h c l /2 /3', 'corrfast');
if ($preview != "full") {
$msg = substr($msg, 0, kmax_nb(400, $msg));
}
$msg = format_txt($msg, "nlc", $k);
$msg = parse_msg_xml($msg);
}
$gmi = $http . '/imgc/' . $v[3];
if ($gmi && $preview) {
$gmo = '<img src="' . $gmi . '" style="margin:0 10px 4px 0;" />' . "\n";
$gmo = parse_msg_xml($gmo);
} else {
$gmi = "";
$gmo = "";
}
$lang = data_val('msg', $k, 'lang');
$xml .= "<item>\n";
$v[2] = str_replace(" ", ' ', $v[2]);
$xml .= bal('title', parse_msg_xml($v[2])) . "\n";
$xml .= bal('link', $url) . "\n";
$xml .= bal('category', parse_msg_xml($v[1])) . "\n";
$xml .= balb('guid', ' isPermaLink="true"', $url) . "\n";
$xml .= bal('pubDate', date("r", $v[0])) . "\n";
$xml .= bal('description', $gmo . $msg) . "\n";
$xml .= bal('author', $author) . "\n";
$xml .= bal('language', $lang ? $lang : $_SESSION['prmb'][25]) . "\n";
$xml .= "</item>" . "\n\n";
}
}
return $xml;
}
function lang_arts_auto($id, $va)
{
req('spe');
$artlang = data_val('msg', $id, 'lang');
if (!$artlang) {
$artlang = prmb(25);
}
$r = sql('ib', 'qdd', 'k', 'val="lang' . $artlang . '" AND msg="' . $id . '"');
if ($r) {
foreach ($r as $k => $v) {
$artref = data_val('msg', $k, 'lang');
if (!$artref && $va == prmb(25)) {
$ret = $k;
}
if ($artref == $va) {
$ret = $k;
}
}
}
if (!$ret && $k) {
$ret = data_val('msg', $k, 'lang' . $va);
}
return $ret;
}
