/**
 * Liste les saisies ayant une definition SQL
 *
 * S'assurer de l'absence de clé, qui fait croire à saisies que le tableau est déjà à plat
 * alors que ce n'est pas forcément encore le cas (ie: il peut y avoir des fieldset à prendre
 * en compte).
 * 
 * @param Array $saisies liste de saisies
 * @return array Liste de ces saisies triees par nom ayant une option sql définie
 */
function champs_extras_saisies_lister_avec_sql($saisies)
{
    if (!function_exists('saisies_lister_avec_sql')) {
        include_spip('inc/saisies');
    }
    return saisies_lister_avec_sql(array_values($saisies));
}
/**
 * Vérifié une valeur comme devant être un nom de champ extra
 * 
 * Ce champ ne doit pas être utilisé par SPIP ou un plugin,
 * et ne doit pas être un mot clé de mysql.
 * 
 * Si c'est bon, doit aussi vérifier une expression régulière donnée
 * 
 * Options :
 * - modele : chaine représentant l'expression régulière tolérée
 *
 * @param string $valeur
 *   La valeur à vérifier.
 * @param array $options
 *   Contient une chaine représentant l'expression.
 * @return string
 *   Retourne une chaine vide si c'est valide, sinon une chaine expliquant l'erreur.
 */
function verifier_nom_champ_extra_dist($valeur, $options = array())
{
    include_spip('base/objets');
    include_spip('inc/iextras');
    include_spip('inc/saisies');
    $erreur = '';
    $table = $options['table'];
    $valeur = strtolower($valeur);
    // Champs extras (interface) / Saisies gérent déjà l'unicité des champs extras
    // déclarés dans une table : on ne peut créer 2 champs extras de même nom.
    // Ici on vérifie en plus que ce champ n'existe pas hors de champs extras.
    $tables_spip = lister_tables_objets_sql($table);
    $champs_declares = array_keys($tables_spip['field']);
    $champs_declares = array_filter($champs_declares, 'strtolower');
    // precaution
    $champs_iextras = iextras_champs_extras_definis($table);
    $champs_iextras = array_keys(saisies_lister_avec_sql($champs_iextras));
    $champs_iextras = array_filter($champs_iextras, 'strtolower');
    // precaution
    // les champs utilisés en dehors de champs extras, sont la différence
    $champs_utilises = array_diff($champs_declares, $champs_iextras);
    if (in_array($valeur, $champs_utilises)) {
        $erreur = _T('iextras:erreur_nom_champ_utilise');
    }
    // vérifier que le champ n'est pas un mot clé sql
    if (!$erreur) {
        if (in_array(strtoupper($valeur), iextras_sql_reserved_keywords())) {
            $erreur = _T('iextras:erreur_nom_champ_mysql_keyword');
        }
    }
    // vérifier que le champ est bien formaté  (expression régulière)
    if (!$erreur) {
        $verifier = charger_fonction('verifier', 'inc');
        $options += array('modele' => '/^[\\w]+$/');
        $erreur = $verifier($valeur, 'regex', $options);
    }
    return $erreur;
}