> TODO // la fonction couper_intro a disparu. // voir function filtre_introduction_dist if (defined('_SPIP19300')) { $GLOBALS['cs_couper_intro'] = 'couper_intro3'; function couper_intro3($texte, $long, $suite) { $texte = extraire_multi(preg_replace(",(,i", "\\1intro>", $texte)); // minuscules $intro = ''; while ($fin = strpos($texte, "")) { $zone = substr($texte, 0, $fin); $texte = substr($texte, $fin + strlen("")); if ($deb = strpos($zone, "") OR substr($zone, 0, 7) == "") $zone = substr($zone, $deb + 7); $intro .= $zone; } $texte = nettoyer_raccourcis_typo($intro ? $intro : $texte); return PtoBR(traiter_raccourcis(preg_replace(',([|]\s*)+,S', '; ', couper($texte, $long, _INTRODUCTION_CODE)))); } } function remplace_points_de_suite($texte, $id, $racc) { if (strpos($texte, _INTRODUCTION_CODE) === false) return $texte; // des points de suite bien propres @define('_INTRODUCTION_SUITE', ' (...)'); $intro_suite = cs_propre(_INTRODUCTION_SUITE); // si les points de suite sont cliquables if ($id && _INTRODUCTION_LIEN == 1) { $url = (defined('_SPIP19300') && test_espace_prive()) ?generer_url_entite_absolue($id, $racc, '', '', true):"$racc$id"; $intro_suite = strncmp($intro_suite, '
', 6)===0 ?'
'.cs_lien($url, substr($intro_suite, 6)) :' '.cs_lien($url, $intro_suite); $intro_suite = inserer_attribut($intro_suite, 'class', extraire_attribut($intro_suite,'class') . ' pts_suite'); } return str_replace(_INTRODUCTION_CODE, $intro_suite, $texte); } // lgr>0 : aucun parametre, donc lgr par defaut // lgr<0 : parametre #INTRODUCTION{longeur} // lgr=0 : pas possible // TODO : $connect est pour SPIP 2.0 function cs_introduction($texte, $descriptif, $lgr, $id, $racc, $connect) { @define('_INTRODUCTION_LGR', 100); // fonction couper_intro $couper = $GLOBALS['cs_couper_intro']; if (strlen($descriptif)) # si descriptif contient juste des espaces ca produit une intro vide, # c'est une fonctionnalite, pas un bug // ici le descriptif est coupe s'il est trop long $texte = $lgr<0?propre($couper($descriptif, -$lgr, _INTRODUCTION_CODE)):propre($descriptif); else { // pas de maths dans l'intro... $texte = preg_replace(',$.*$,imsU', '', $texte); // on coupe proprement... $lgr = $lgr>0?round($lgr*_INTRODUCTION_LGR/100):-$lgr; $texte = cs_propre(supprimer_tags($couper(cs_introduire($texte), $lgr, _INTRODUCTION_CODE))); } // si les points de suite ont ete ajoutes return remplace_points_de_suite($texte, $id, $racc); } // introduction() if (!function_exists('balise_INTRODUCTION')) { // #INTRODUCTION_SPIP (pour tests) function balise_INTRODUCTION_SPIP($p) { return balise_INTRODUCTION_dist($p); } include_spip('public/interfaces'); global $table_des_traitements; // INTRODUCTION_SPIP est une INTRODUCTION ! if (!isset($table_des_traitements['INTRODUCTION_SPIP'])) $table_des_traitements['INTRODUCTION_SPIP'] = $table_des_traitements['INTRODUCTION']; // #INTRODUCTION function balise_INTRODUCTION($p) { $type = $p->type_requete; $_texte = champ_sql('texte', $p); $_descriptif = "''"; $_id = 0; $_lgr = "600"; switch ($type) { case 'articles': $_chapo = champ_sql('chapo', $p); $_descriptif = champ_sql('descriptif', $p); $_texte = "(strlen($_descriptif) OR chapo_redirigetil($_chapo)) ? '' : $_chapo . \"\\n\\n\" . $_texte"; $_lgr = "500"; break; case 'rubriques': $_descriptif = champ_sql('descriptif', $p); break; case 'breves': $_lgr = "300"; break; } // longueur en parametre ? if(($v = interprete_argument_balise(1,$p))!==NULL) $_lgr = "-intval($v)" ; $_id = champ_sql(id_table_objet($racc = objet_type($type)), $p); $p->code = "cs_introduction($_texte, $_descriptif, $_lgr, $_id, '$racc', \$connect)"; #$p->interdire_scripts = true; $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro return $p; } } //!function_exists('balise_INTRODUCTION') else spip_log("Erreur - balise_INTRODUCTION() existe deja et ne peut pas etre surchargee par le Couteau Suisse !"); ?>