[Agora-commits] agora mes_fonctions_agora.php3,1.12,1.13
maciek at adullact1.hosting.cri74.org
maciek at adullact1.hosting.cri74.org
Sam 3 Sep 23:57:14 CEST 2005
Update of /cvsroot/agora/agora
In directory adullact1:/tmp/cvs-serv12872
Modified Files:
mes_fonctions_agora.php3
Log Message:
Moving functions from mes_fonctions to inc_filtres
Index: mes_fonctions_agora.php3
===================================================================
RCS file: /cvsroot/agora/agora/mes_fonctions_agora.php3,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- mes_fonctions_agora.php3 1 Sep 2005 10:56:43 -0000 1.12
+++ mes_fonctions_agora.php3 3 Sep 2005 21:57:11 -0000 1.13
@@ -15,8 +15,8 @@
function smileys($chaine) {
$chemin = '<img alt="binette" src="IMG/binettes/';
- // On peut mettre les smileys-images où l'on veut. Mais il faut
- // penser à modifier la variable $chemin de la fonction en conséquence.
+ // On peut mettre les smileys-images o l'on veut. Mais il faut
+ // penser �modifier la variable $chemin de la fonction en cons�uence.
$chaine = str_replace(":->", $chemin . "diable.png\">", $chaine);
$chaine = str_replace(":-((", $chemin . "en_colere.png\">", $chaine);
$chaine = str_replace(":-))", $chemin . "mort_de_rire.png\">", $chaine);
@@ -38,30 +38,30 @@
return $chaine;
}
-// Partie dont il faut prévoir l'ajout à l'install
+// Partie dont il faut pr�oir l'ajout �l'install
/*
* Nom du filtre : QCM
* Auteur : Mathieu GIANNECCHINI
- * Date : 7 Août 2003
- * Fonction du filtre : Parse le code du QCM tapé dans SPIP et stocke
- * les questions, réponses et commentaires
+ * Date : 7 Aot 2003
+ * Fonction du filtre : Parse le code du QCM tap�dans SPIP et stocke
+ * les questions, r�onses et commentaires
* dans un tableau et retourne le code HTML du QCM
*/
function qcm($chaine){
- /* Messages utilisés dans le QCM
+ /* Messages utilis� dans le QCM
*/
$titreQCM="QCM";
$reponseJuste="La réponse est juste";
$reponseFausse="La réponse est fausse";
$reponseNulle="Vous n'avez pas répondu";
- /* Bascule permettant de gérer les points spécifiés dans le
+ /* Bascule permettant de g�er les points sp�ifi� dans le
* code du QCM
*/
$gestionPoint=true;
- /* Booléen permettant de savoir si il y a un QCM dans l'article
+ /* Bool�n permettant de savoir si il y a un QCM dans l'article
*/
$qcm=false;
@@ -69,7 +69,7 @@
*/
$score=0;
- /* On récupère le code du qcm entre <qcm> et </qcm>
+ /* On r�up�e le code du qcm entre <qcm> et </qcm>
*/
while(ereg("<qcm>",$chaine)){
$qcm=true;
@@ -77,7 +77,7 @@
list($texteAvant,$suite)=explode("<qcm>",$chaine,2);
list($qcm,$texteApres)=explode("</qcm>",$suite,2);
- /* On isole les questions les réponses et les commentaires
+ /* On isole les questions les r�onses et les commentaires
*/
$ligne=split("\n",$qcm);
$nbligne=count($ligne);
@@ -85,7 +85,7 @@
$premierequestion=$nbQuestion;
for($i=0;$i<$nbligne;$i++){
- /* Pour chaque ligne on regarde le premier caractère
+ /* Pour chaque ligne on regarde le premier caract�e
*/
switch($ligne[$i][0]){
case 'T' : $titreQCM=substr($ligne[$i],1);break;
@@ -95,17 +95,17 @@
break;
case 'P' :
- /* On extrait les précisions de la proposition
+ /* On extrait les pr�isions de la proposition
*/
list($reponse,$precis)=explode("|",$ligne[$i]);
- /* On extrait le numéro de la proposition et son contenu
+ /* On extrait le num�o de la proposition et son contenu
*/
ereg("P([0-9]+)(.*)",$reponse,$eregResult1);
$numPropos=$eregResult1[1];
- /* On extrait les points éventuellement associés
- * à chaque réponse
+ /* On extrait les points �entuellement associ�
+ * �chaque r�onse
*/
if(ereg("[.](-?[0-9]+)(.*)",$eregResult1[2],$eregResult2)){
$points[$nbQuestion][$numPropos]=$eregResult2[1];
@@ -113,7 +113,7 @@
//$gestionPoint=true;
}
/* Si une erreur de syntaxe apparait
- * on passe en mode par défaut pour la gestion des points
+ * on passe en mode par d�aut pour la gestion des points
*/
else{
$gestionPoint=false;
@@ -123,7 +123,7 @@
break;
case 'R' :
- /* On récupère le numéro de la bonne réponse
+ /* On r�up�e le num�o de la bonne r�onse
*/
ereg("R([0-9]+)(.*)",$ligne[$i],$eregResult);
$numProposition=$eregResult[1];
@@ -172,7 +172,7 @@
// Sinon on affiche la correction
else{
- // Initialisation du code à retourner
+ // Initialisation du code �retourner
$codeHTML="";
for($i=$premierequestion+1;$i<=count($question);$i++){
@@ -189,12 +189,12 @@
$scoreMax+=$pointParQuestion;
}
- // La réponse choisie
+ // La r�onse choisie
$codeHTML.="<div class=\"spip_qcm_question\"><img src=\"puce.gif\" alt=\"-\">$question[$i]<span class=\"spip_qcm_point\">($pointParQuestion pt)</span></div>";
// Si c'est juste
if($bonneReponse[$i]==$GLOBALS[$nomVarSelect]){
- // Les points par défaut : 1 par bonne réponse
+ // Les points par d�aut : 1 par bonne r�onse
if($gestionPoint){
$score+=$points[$i][$GLOBALS[$nomVarSelect]];
}
@@ -267,10 +267,10 @@
* +----------------------------------+
* Date : Vendredi 6 juin 2003
* Auteur : "gpl" : gpl at macplus.org
- * Aurélien PIERARD : aurelien.pierard at sig.premier-ministre.fr
+ * Aur�ien PIERARD : aurelien.pierard at sig.premier-ministre.fr
* +-------------------------------------+
* Fonctions de ce filtre :
- * Il sert a présenter un article sur plusieurs pages
+ * Il sert a pr�enter un article sur plusieurs pages
* +-------------------------------------+
*
* Pour toute suggestion, remarque, proposition d'ajout
@@ -284,13 +284,13 @@
if (empty($artsuite)) $artsuite = 0;
- // on divise la page (séparateur : "-----")
+ // on divise la page (s�arateur : "-----")
$page = split('-----', $texte);
// Nombre total de pages
$num_pages = count($page);
- // Si une seule page ou numéro illégal, alors retourner tout le texte.
- // Cas spécial : si var_recherche positionné, tout renvoyer pour permettre à la surbrillance de fonctionner correctement.
+ // Si une seule page ou num�o ill�al, alors retourner tout le texte.
+ // Cas sp�ial : si var_recherche positionn� tout renvoyer pour permettre �la surbrillance de fonctionner correctement.
if ($num_pages == 1 || !empty($var_recherche) || $artsuite < 0 || $artsuite > $num_pages) {
// On place les ancres sur les intertitres
$texte = preg_replace("|\{\{\{(.*)\}\}\}|U","<a name=\"sommaire_#NB_TITRE_DE_MON_ARTICLE#\">$0</a>", $texte);
@@ -346,7 +346,7 @@
}
}
- // Ici, on peut personnaliser la présentation
+ // Ici, on peut personnaliser la pr�entation
$resultat .= $page[$artsuite];
$resultat .= "<p class='pagination'><div class='pagination' align='center'>pages : $precedent $milieu $suivant</div></p>";
return $resultat;
@@ -360,14 +360,14 @@
* +----------------------------------+
* Date : Vendredi 6 juin 2003
* Auteur : Noplay (noplay at altern.org)
- * Aurélien PIERARD : aurelien.pierard at sig.premier-ministre.fr
+ * Aur�ien PIERARD : aurelien.pierard at sig.premier-ministre.fr
* +-------------------------------------+
* Fonctions de ce filtre :
* Cette modification permet d'afficher le sommaire de l'article
- * généré dynamiquement à partir du texte de l'article. Vous pouvez naviguer
+ * g���dynamiquement �partir du texte de l'article. Vous pouvez naviguer
* dans l'article en cliquant sur les titres du sommaires.
*
- * Tous ce qui ce trouve entre {{{ et }}} est considéré comme un titre à ajouter au sommaire de l'article.
+ * Tous ce qui ce trouve entre {{{ et }}} est consid��comme un titre �ajouter au sommaire de l'article.
* +-------------------------------------+
*
* Pour toute suggestion, remarque, proposition d'ajout
@@ -385,7 +385,7 @@
$i=0;
$texte="";
while($page[$i]){
- // On ajoute une ancre aux intertitres "{{{ }}}" que l'on utilise pour créer le sommaire
+ // On ajoute une ancre aux intertitres "{{{ }}}" que l'on utilise pour cr�r le sommaire
preg_match_all("|\{\{\{(.*)\}\}\}|U",$page[$i], $regs);
$nb=1;
for($j=0;$j<count($regs[1]);$j++){
@@ -407,7 +407,7 @@
* Auteur : Roustoubi (roustoubi at tiscali.fr)
* +-------------------------------------+
* Fonctions de ce filtre :
- * Accorde le nom singulier passé en paramètre avec le nombre qui le quantifie
+ * Accorde le nom singulier pass�en param�re avec le nombre qui le quantifie
* Exemple : [#TOTAL_BOUCLE (#TOTAL_BOUCLE|accord_pluriel{article})]
* +-------------------------------------+
*
@@ -674,10 +674,10 @@
* +----------------------------------+
* Date : jeudi 22 mai 2003
* Auteur : stef + nospam at notabene.f2o.org
- * Aurélien
+ * Aur�ien
* +-------------------------------------+
* Fonctions de ces filtres :
- * Ils rendent conforme à xhtml le contenu généré par spip
+ * Ils rendent conforme �xhtml le contenu g���par spip
* +-------------------------------------+
*
* Pour toute suggestion, remarque, proposition d'ajout
@@ -738,7 +738,7 @@
$str = ereg_replace("</TEXTAREA>", "</textarea>", "$str");
$str = preg_replace("/(<.*?)(TYPE=\')(.*?)(\')(.*?>)/", "\\1type=\"\\3\"\\5", "$str");
$str = ereg_replace("VALUE=", "value=", "$str");
- // Pour le formulaire FORUM création des attributs id
+ // Pour le formulaire FORUM cr�tion des attributs id
$str = preg_replace("/(<.*?)(NAME=')(.*?)(')(.*?>)/", "\\1id=\"\\3\" name=\"\\3\"\\5", "$str");
// On remplace name par id dans la balise form
$str = preg_replace("/(<form.*?)(name=)(.*?>)/", "\\1id=\\3", "$str");
@@ -775,7 +775,7 @@
// FIN du filtre nb_checkparas
function nettoyer_marqueur($texte) {
- // Enlève la conversion caractères spéciaux HTML
+ // Enl�e la conversion caract�es sp�iaux HTML
$trans_tbl = get_html_translation_table (HTML_ENTITIES);
$trans_tbl = array_flip ($trans_tbl);
$texte=strtr ($texte, $trans_tbl);
@@ -794,7 +794,7 @@
/* yNn */ chr(255).chr(209).chr(241);
$texte = ereg_replace("<[^<]*>", "", $texte);
$texte = ereg_replace("[\!\?']", " ", $texte);
- $texte = ereg_replace(" ", "_", $texte);
+ $texte = ereg_replace("", "_", $texte);
$texte = ereg_replace(" ", "_", $texte);
$texte = str_replace ('’', '_', $texte);
return strtolower(strtr($texte,$accents,"AAAAAAaaaaaaOOOOOOooooooEEEEeeeeCcIIIIiiiiUUUUuuuuyNn"));
@@ -806,7 +806,7 @@
// PB avec l'utilisation de <code>
$trans = get_html_translation_table(HTML_ENTITIES);
$trans = array_flip($trans);
- $trans["<br />\n"] = "<BR>"; // Pour éviter que le \n ne se tranforme en espace dans les <DIV class=spip_code> (TT, tag SPIP : code)
+ $trans["<br />\n"] = "<BR>"; // Pour �iter que le \n ne se tranforme en espace dans les <DIV class=spip_code> (TT, tag SPIP : code)
$trans["?"] = "oe";
$trans["?"] = "...";
$trans["'"] = "'";
@@ -814,10 +814,10 @@
$trans["'"] = "'";
$trans['"'] = "\"";
$trans['"'] = "\"";
- $trans["û"] = "û";
+ $trans["û"] = "";
$trans['$'] = '\$';
- $trans['->'] = '-»';
- $trans['<-'] = '«-';
+ $trans['->'] = '-';
+ $trans['<-'] = '-';
$texte = strtr($texte, $trans);
// Echappement des "
@@ -836,32 +836,4 @@
return $texte;
}
-/**
- * Break word after size letters.
- * Simple version which works:)
- *
- * todo: zero inline when space occurs.
- */
-
-function htmlwrap($str, $width, $break=' '){
-
- return preg_replace_callback("/(<[^>]*>)?([^(<.*>)\s\n\r]*)(<\/[^>]*>)?/",
- create_function('$matches, $width='.$width,
- 'static $inline;
-
- $inline+=strlen($matches[2]);
-
- if($inline>$width){
- $inline=(integer)fmod($inline,$width);
- if(strlen($matches[2])>=$width){
- $matches[2]=\' \'.wordwrap($matches[2],$width,\' \',true);
- }else{
- $matches[2]=\' \'.$matches[2];
- }
- }
-
- return $matches[1].$matches[2].$matches[3];'),
- $str);
-}
-
?>
Plus d'informations sur la liste de diffusion Agora-commits