/**
 * Compile la balise `#SECTEUR_DOM` qui retourne le secteur associé à l'URL du site
 *
 * Peut transmettre une langue en premier paramètre
 * `#SECTEUR_LANG{en}`
 *
 * @balise
 *
 * @param Champ $p
 *     Pile au niveau de la balise
 * @return Champ
 *     Pile complétée par le code à générer
 */
function balise_SECTEUR_DOM_dist($p) {
	$lang = interprete_argument_balise(1, $p);
	$p->code = "domlang_get_secteur($lang)";
	$p->code = "spip_htmlspecialchars(" . $p->code . ")";
	$p->interdire_scripts = false;
	return $p;	
}


/**
 * Définit le secteur associé au domaine depuis lequel on arrive.
 *
 * Si on ne trouve pas de langu on conssidére la langue du domaine principal.
 *
 */
function domlang_get_secteur($lang = null) {
	if (!$lang) {
		$lang = $GLOBALS['spip_lang'];
	}
    $id_rubrique = sql_getfetsel('id_rubrique','spip_rubriques', array('id_parent =0','lang ='.sql_quote($lang)));
    return $id_rubrique;
}