param) && (!$p->param[0][0]) && (count($p->param[0]) > $n)) {
return calculer_liste($p->param[0][$n],
$p->descr,
$p->boucles,
$p->id_boucle);
} else {
return null;
}
}
//
// Définition des balises
//
/**
* Compile la balise `#NOM_SITE_SPIP` retournant le nom du site
*
* @balise
* @link http://www.spip.net/4622
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_NOM_SITE_SPIP_dist($p) {
$p->code = "\$GLOBALS['meta']['nom_site']";
#$p->interdire_scripts = true;
return $p;
}
/**
* Compile la balise `#EMAIL_WEBMASTER` retournant l'adresse courriel
* du webmestre
*
* @balise
* @link http://www.spip.net/4586
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_EMAIL_WEBMASTER_dist($p) {
$p->code = "\$GLOBALS['meta']['email_webmaster']";
#$p->interdire_scripts = true;
return $p;
}
/**
* Compile la balise `#DESCRIPTIF_SITE_SPIP` qui retourne le descriptif
* du site !
*
* @balise
* @link http://www.spip.net/4338
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_DESCRIPTIF_SITE_SPIP_dist($p) {
$p->code = "\$GLOBALS['meta']['descriptif_site']";
#$p->interdire_scripts = true;
return $p;
}
/**
* Compile la balise `#CHARSET` qui retourne le nom du jeu de caractères
* utilisé par le site tel que `utf-8`
*
* @balise
* @link http://www.spip.net/4331
* @example
* ```
*
* ```
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_CHARSET_dist($p) {
$p->code = "\$GLOBALS['meta']['charset']";
#$p->interdire_scripts = true;
return $p;
}
/**
* Compile la balise `#LANG_LEFT` retournant 'left' si la langue s'écrit
* de gauche à droite, sinon 'right'
*
* @note
* Peut servir à l'écriture de code CSS dans un squelette, mais
* pour inclure un fichier css, il vaut mieux utiliser le filtre
* `direction_css` si on le souhaite sensible à la langue utilisé.
*
* @balise
* @link http://www.spip.net/4625
* @see lang_dir()
* @see balise_LANG_RIGHT_dist()
* @see balise_LANG_DIR_dist()
* @see direction_css()
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_LANG_LEFT_dist($p) {
$_lang = champ_sql('lang', $p);
$p->code = "lang_dir($_lang, 'left','right')";
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#LANG_RIGHT` retournant 'right' si la langue s'écrit
* de gauche à droite, sinon 'left'
*
* @balise
* @link http://www.spip.net/4625
* @see lang_dir()
* @see balise_LANG_LEFT_dist()
* @see balise_LANG_DIR_dist()
* @see direction_css()
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_LANG_RIGHT_dist($p) {
$_lang = champ_sql('lang', $p);
$p->code = "lang_dir($_lang, 'right','left')";
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#LANG_DIR` retournant 'ltr' si la langue s'écrit
* de gauche à droite, sinon 'rtl'
*
* @balise
* @link http://www.spip.net/4625
* @see lang_dir()
* @see balise_LANG_LEFT_dist()
* @see balise_LANG_RIGHT_dist()
* @example
* ```
*
* ```
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_LANG_DIR_dist($p) {
$_lang = champ_sql('lang', $p);
$p->code = "lang_dir($_lang, 'ltr','rtl')";
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#PUCE` affichant une puce
*
* @balise
* @link http://www.spip.net/4628
* @see definir_puce()
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_PUCE_dist($p) {
$p->code = "definir_puce()";
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#DATE` qui retourne la date de mise en ligne
*
* Cette balise retourne soit le champ `date` d'une table si elle est
* utilisée dans une boucle, sinon la date de calcul du squelette.
*
* @balise
* @link http://www.spip.net/4336 Balise DATE
* @link http://www.spip.net/1971 La gestion des dates
* @example
* ```
*
[(#DATE|affdate_jourcourt)]
* ```
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_DATE_dist($p) {
$d = champ_sql('date', $p);
# if ($d === "@\$Pile[0]['date']")
# $d = "isset(\$Pile[0]['date']) ? $d : time()";
$p->code = $d;
return $p;
}
/**
* Compile la balise `#DATE_REDAC` qui retourne la date de première publication
*
* Cette balise retourne le champ `date_redac` d'une table
*
* @balise
* @link http://www.spip.net/3858 Balises DATE_MODIF et DATE_REDAC
* @link http://www.spip.net/1971 La gestion des dates
* @see balise_DATE_MODIF_dist()
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_DATE_REDAC_dist($p) {
$d = champ_sql('date_redac', $p);
# if ($d === "@\$Pile[0]['date_redac']")
# $d = "isset(\$Pile[0]['date_redac']) ? $d : time()";
$p->code = $d;
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#DATE_MODIF` qui retourne la date de dernière modification
*
* Cette balise retourne le champ `date_modif` d'une table
*
* @balise
* @link http://www.spip.net/3858 Balises DATE_MODIF et DATE_REDAC
* @link http://www.spip.net/1971 La gestion des dates
* @see balise_DATE_REDAC_dist()
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_DATE_MODIF_dist($p) {
$p->code = champ_sql('date_modif', $p);
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#DATE_NOUVEAUTES` indiquant la date de dernier envoi
* du mail de nouveautés
*
* @balise
* @link http://www.spip.net/4337 Balise DATE_NOUVEAUTES
* @link http://www.spip.net/1971 La gestion des dates
* @see balise_DATE_REDAC_dist()
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_DATE_NOUVEAUTES_dist($p) {
$p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
AND isset(\$GLOBALS['meta']['dernier_envoi_neuf'])) ?
\$GLOBALS['meta']['dernier_envoi_neuf'] :
\"'0000-00-00'\")";
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#DOSSIER_SQUELETTE` retournant le chemin vers le
* répertoire de squelettes actuellement utilisé
*
* @balise
* @deprecated Utiliser `#CHEMIN`
* @link http://www.spip.net/4627
* @see balise_CHEMIN_dist()
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_DOSSIER_SQUELETTE_dist($p) {
$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
$p->code = "_DIR_RACINE . '$code'" .
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#SQUELETTE` retournant le chemin du squelette courant
*
* @balise
* @link http://www.spip.net/4027
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_SQUELETTE_dist($p) {
$code = addslashes($p->descr['sourcefile']);
$p->code = "'$code'" .
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#SPIP_VERSION` qui affiche la version de SPIP
*
* @balise
* @see spip_version()
* @example
* ```
*
* ```
*
* @param Champ $p
* Pile au niveau de la balise.
* @return Champ
* Pile completée du code PHP d'exécution de la balise
*/
function balise_SPIP_VERSION_dist($p) {
$p->code = "spip_version()";
$p->interdire_scripts = false;
return $p;
}
/**
* Compile la balise `#NOM_SITE` qui affiche le nom du site.
*
* Affiche le nom du site ou sinon l'URL ou le titre de l'objet
* Utiliser `#NOM_SITE*` pour avoir le nom du site ou rien.
*
* Cette balise interroge les colonnes `nom_site` ou `url_site`
* dans la boucle la plus proche.
*
* @balise
* @see calculer_url()
* @example
* ```
* #NOM_SITE
* ```
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_NOM_SITE_dist($p) {
if (!$p->etoile) {
$p->code = "supprimer_numero(calculer_url(" .
champ_sql('url_site', $p) . "," .
champ_sql('nom_site', $p) .
", 'titre', \$connect, false))";
} else {
$p->code = champ_sql('nom_site', $p);
}
$p->interdire_scripts = true;
return $p;
}
/**
* Compile la balise `#NOTE` qui affiche les notes de bas de page
*
* @balise
* @link http://www.spip.net/3964
* @see calculer_notes()
*
* @param Champ $p
* Pile au niveau de la balise
* @return Champ
* Pile complétée par le code à générer
**/
function balise_NOTES_dist($p) {
// Recuperer les notes
$p->code = 'calculer_notes()';
#$p->interdire_scripts = true;
return $p;
}
/**
* Compile la balise `#RECHERCHE` qui retourne le terme de recherche demandé
*
* Retourne un terme demandé en recherche, en le prenant dans _request()
* sous la clé `recherche`.
*
* @balise
* @example
* ```
*