Changeset 31513 in spip-zone


Ignore:
Timestamp:
Sep 12, 2009, 4:03:17 AM (10 years ago)
Author:
patfr@…
Message:

[Bug] une balise #INTRODUCTION trop volatile...

Location:
_plugins_/couteau_suisse
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • _plugins_/couteau_suisse/outils/introduction_fonctions.php

    r27090 r31513  
    6161// TODO : $connect est pour SPIP 2.0
    6262function cs_introduction($texte, $descriptif, $lgr, $id, $racc, $connect) {
     63        @define('_INTRODUCTION_LGR', 100);
    6364        // fonction couper_intro
    6465        $couper = $GLOBALS['cs_couper_intro'];
     
    7273                $texte = preg_replace(',<math>.*</math>,imsU', '', $texte);
    7374                // on coupe proprement...
    74                 $texte = PtoBR(propre(supprimer_tags($couper(cs_introduire($texte), $lgr>0?round($lgr*_INTRODUCTION_LGR/100):-$lgr, _INTRODUCTION_CODE))));
     75                $lgr = $lgr>0?round($lgr*_INTRODUCTION_LGR/100):-$lgr;
     76                $texte = PtoBR(propre(supprimer_tags($couper(cs_introduire($texte), $lgr, _INTRODUCTION_CODE))));
    7577        }
    7678        // si les points de suite ont ete ajoutes
     
    9092        // #INTRODUCTION
    9193        function balise_INTRODUCTION($p) {
    92                 @define('_INTRODUCTION_LGR', 100);
    9394                $type = $p->type_requete;
    9495                $_texte = champ_sql('texte', $p);
     
    114115                $_id = champ_sql(id_table_objet($racc = objet_type($type)), $p);
    115116                $p->code = "cs_introduction($_texte, $_descriptif, $_lgr, $_id, '$racc', \$connect)";
    116        
    117117                #$p->interdire_scripts = true;
    118118                $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
  • _plugins_/couteau_suisse/plugin.xml

    r31426 r31513  
    22        <nom><multi>Swiss Knife[fr]Le Couteau Suisse[ca]El Ganivet Su&#237;s[ar]&#1587;&#1603;&#1610;&#1606; &#1575;&#1604;&#1580;&#1610;&#1576;[nl]Het Zwitserland Mes[gl]A navalla su&#237;za[es]La Navaja Suiza[de]Schweizer Taschenmesser[tr]&#304;svi&#231;re &#199;ak&#305;s&#305;[br]Ar Gontell Suis[pt_br]Canivete Su&#237;&#231;o[ast]La Navaya Suiza[gl]A navalla su&#237;za[ro]Cu&#355;itul Elve&#355;ian</multi></nom>
    33        <icon>img/couteau-50.gif</icon>
    4         <version>1.8.09.07</version>
     4        <version>1.8.09.08</version>
    55        <auteur>Patrice Vanneufville
    66_ &#169; 2007-2009 - Distribu&#233; sous licence GPL
Note: See TracChangeset for help on using the changeset viewer.