Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 6 → Rev 7

/trunk/actu/formulaires/formulaires/inc-menu_lang_ecrire.php3
New file
0,0 → 1,63
<?php
 
if (!defined("_ECRIRE_INC_VERSION")) return; #securite
 
// Ce "menu_lang" collecte dans le contexte permet de forcer la langue
// par defaut proposee dans le menu ; mais a quoi ca sert concretement ?
global $balise_MENU_LANG_ECRIRE_collecte;
$balise_MENU_LANG_ECRIRE_collecte = array('menu_lang');
 
// s'il n'y a qu'une langue proposee eviter definitivement la balise ?php
function balise_MENU_LANG_ECRIRE_stat ($args, $filtres) {
global $all_langs;
include_ecrire('inc_lang.php3');
if (!strpos($all_langs,',')) return '';
return $args;
}
 
 
// normalement $opt sera toujours non vide suite au test ci-dessus
function balise_MENU_LANG_ECRIRE_dyn($default) {
return menu_lang_pour_tous('var_lang_ecrire', $opt);
}
 
function menu_lang_pour_tous($nom, $opt) {
include_ecrire("inc_lang.php3");
 
// Voir s'il y a une langue demandee par _request,
// ou une langue par defaut dans le contexte {menu_lang=xx}
$default = _request('lang');
lang_select($default);
if ($GLOBALS['spip_lang'] <> $default) {
$default = $menu_lang;
lang_select($default); # et remplace
if ($GLOBALS['spip_lang'] <> $default)
unset ($default); # annule tout choix par defaut
lang_dselect(); #annule la selection
}
lang_dselect();
 
$opt = liste_options_langues($nom, $default);
if (!$opt)
return '';
 
$site = lire_meta("adresse_site");
$post = ($site ? $site : '..') . "/spip_cookie.php3";
$cible = new Link();
$cible->delVar('lang');
$cible = $cible->getUrl();
$postcomplet = new Link($post);
$postcomplet->addvar('url', $cible);
 
return array('formulaire_menu_lang',
3600,
array('nom' => $nom,
'url' => $post,
'cible' => $cible,
'retour' => $postcomplet->getUrl(),
'langues' => $opt
)
);
}
 
?>