source: spip-zone/_plugins_/_stable_/qcm/qcm_options.php @ 7276

Last change on this file since 7276 was 7276, checked in by patfr@…, 13 years ago

introduction d'introduction...
mais cette fonctionnalité doit être revue !

File size: 1.1 KB
Line 
1<?php 
2
3if (!function_exists("introduction")) {
4
5        function introduction ($type, $texte, $chapo='', $descriptif='') {
6                switch ($type) {
7                        case 'articles':
8                                if ($descriptif)
9                                        return propre($descriptif);
10                                else if (substr($chapo, 0, 1) == '=')   // article virtuel
11                                        return '';
12                                else
13                                        return PtoBR(propre(supprimer_tags(couper_intro(pas_de_qcm_introduction($chapo."\n\n\n".$texte), 500))));
14                                break;
15                        case 'breves':
16                                return PtoBR(propre(supprimer_tags(couper_intro(pas_de_qcm_introduction($texte), 300))));
17                                break;
18                        case 'forums':
19                                return PtoBR(propre(supprimer_tags(couper_intro(pas_de_qcm_introduction($texte), 600))));
20                                break;
21                        case 'rubriques':
22                                if ($descriptif)
23                                        return propre(pas_de_qcm_introduction($descriptif));
24                                else
25                                        return PtoBR(propre(supprimer_tags(couper_intro(pas_de_qcm_introduction($texte), 600))));
26                                break;
27                }
28        }
29} 
30
31function pas_de_qcm_introduction($texte) {
32        $texte = preg_replace("/<qcm>[\s\n\t]*\nT\s+([^\n]*)/", "[\\1]\n<qcm>", $texte);
33        $texte = preg_replace(',<(qcm)>(.*)<\/\1>,UimsS', '', $texte);
34        return $texte;
35} 
36?>
Note: See TracBrowser for help on using the repository browser.