spip /
SPIP
@@ -18,7 +18,7 @@ discard block |
||
| 18 | 18 | */ |
| 19 | 19 | |
| 20 | 20 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 21 | - return; |
|
| 21 | + return; |
|
| 22 | 22 | } |
| 23 | 23 | |
| 24 | 24 | /** |
@@ -27,18 +27,18 @@ discard block |
||
| 27 | 27 | * @uses info_copyright() |
| 28 | 28 | **/ |
| 29 | 29 | function install_etape__dist() { |
| 30 | - utiliser_langue_visiteur(); |
|
| 31 | - $menu_langues = menu_langues('var_lang_ecrire'); |
|
| 32 | - if (!$menu_langues) { |
|
| 33 | - redirige_url_ecrire('install', 'etape=chmod'); |
|
| 34 | - } else { |
|
| 35 | - include_spip('inc/presentation'); // pour info_copyright |
|
| 30 | + utiliser_langue_visiteur(); |
|
| 31 | + $menu_langues = menu_langues('var_lang_ecrire'); |
|
| 32 | + if (!$menu_langues) { |
|
| 33 | + redirige_url_ecrire('install', 'etape=chmod'); |
|
| 34 | + } else { |
|
| 35 | + include_spip('inc/presentation'); // pour info_copyright |
|
| 36 | 36 | |
| 37 | - $res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='" . chemin_image('logo-spip.png') . "' />\n" . |
|
| 38 | - "<p class='small'>" . info_copyright() . "</p></div>\n" . |
|
| 39 | - '<p>' . _T('install_select_langue') . '</p>' . |
|
| 40 | - '<div>' . $menu_langues . "</div>\n" . |
|
| 41 | - generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />" . bouton_suivant()); |
|
| 42 | - echo minipres('AUTO', $res); |
|
| 43 | - } |
|
| 37 | + $res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='" . chemin_image('logo-spip.png') . "' />\n" . |
|
| 38 | + "<p class='small'>" . info_copyright() . "</p></div>\n" . |
|
| 39 | + '<p>' . _T('install_select_langue') . '</p>' . |
|
| 40 | + '<div>' . $menu_langues . "</div>\n" . |
|
| 41 | + generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />" . bouton_suivant()); |
|
| 42 | + echo minipres('AUTO', $res); |
|
| 43 | + } |
|
| 44 | 44 | } |
@@ -34,11 +34,11 @@ |
||
| 34 | 34 | } else { |
| 35 | 35 | include_spip('inc/presentation'); // pour info_copyright |
| 36 | 36 | |
| 37 | - $res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='" . chemin_image('logo-spip.png') . "' />\n" . |
|
| 38 | - "<p class='small'>" . info_copyright() . "</p></div>\n" . |
|
| 39 | - '<p>' . _T('install_select_langue') . '</p>' . |
|
| 40 | - '<div>' . $menu_langues . "</div>\n" . |
|
| 41 | - generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />" . bouton_suivant()); |
|
| 37 | + $res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='".chemin_image('logo-spip.png')."' />\n". |
|
| 38 | + "<p class='small'>".info_copyright()."</p></div>\n". |
|
| 39 | + '<p>'._T('install_select_langue').'</p>'. |
|
| 40 | + '<div>'.$menu_langues."</div>\n". |
|
| 41 | + generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />".bouton_suivant()); |
|
| 42 | 42 | echo minipres('AUTO', $res); |
| 43 | 43 | } |
| 44 | 44 | } |
@@ -23,23 +23,23 @@ |
||
| 23 | 23 | |
| 24 | 24 | define('_SUB_REGEXP_SYMBOL', '[\w_:.-]'); |
| 25 | 25 | |
| 26 | -define('_REGEXP_NMTOKEN', '/^' . _SUB_REGEXP_SYMBOL . '+$/'); |
|
| 26 | +define('_REGEXP_NMTOKEN', '/^'._SUB_REGEXP_SYMBOL.'+$/'); |
|
| 27 | 27 | |
| 28 | -define('_REGEXP_NMTOKENS', '/^(' . _SUB_REGEXP_SYMBOL . '+\s*)*$/'); |
|
| 28 | +define('_REGEXP_NMTOKENS', '/^('._SUB_REGEXP_SYMBOL.'+\s*)*$/'); |
|
| 29 | 29 | |
| 30 | -define('_REGEXP_ID', '/^[A-Za-z_:]' . _SUB_REGEXP_SYMBOL . '*$/'); |
|
| 30 | +define('_REGEXP_ID', '/^[A-Za-z_:]'._SUB_REGEXP_SYMBOL.'*$/'); |
|
| 31 | 31 | |
| 32 | -define('_REGEXP_ENTITY_USE', '/%(' . _SUB_REGEXP_SYMBOL . '+);/'); |
|
| 33 | -define('_REGEXP_ENTITY_DEF', '/^%(' . _SUB_REGEXP_SYMBOL . '+);/'); |
|
| 32 | +define('_REGEXP_ENTITY_USE', '/%('._SUB_REGEXP_SYMBOL.'+);/'); |
|
| 33 | +define('_REGEXP_ENTITY_DEF', '/^%('._SUB_REGEXP_SYMBOL.'+);/'); |
|
| 34 | 34 | define('_REGEXP_TYPE_XML', 'PUBLIC|SYSTEM|INCLUDE|IGNORE|CDATA'); |
| 35 | -define('_REGEXP_ENTITY_DECL', '/^<!ENTITY\s+(%?)\s*(' . |
|
| 36 | - _SUB_REGEXP_SYMBOL . |
|
| 37 | - '+;?)\s+(' . |
|
| 38 | - _REGEXP_TYPE_XML . |
|
| 39 | - ')?\s*(' . |
|
| 40 | - "('([^']*)')" . |
|
| 41 | - '|("([^"]*)")' . |
|
| 42 | - '|\s*(%' . _SUB_REGEXP_SYMBOL . '+;)\s*' . |
|
| 35 | +define('_REGEXP_ENTITY_DECL', '/^<!ENTITY\s+(%?)\s*('. |
|
| 36 | + _SUB_REGEXP_SYMBOL. |
|
| 37 | + '+;?)\s+('. |
|
| 38 | + _REGEXP_TYPE_XML. |
|
| 39 | + ')?\s*('. |
|
| 40 | + "('([^']*)')". |
|
| 41 | + '|("([^"]*)")'. |
|
| 42 | + '|\s*(%'._SUB_REGEXP_SYMBOL.'+;)\s*'. |
|
| 43 | 43 | ')\s*(--.*?--)?("([^"]*)")?\s*>\s*(.*)$/s'); |
| 44 | 44 | |
| 45 | 45 | define('_REGEXP_INCLUDE_USE', '/^<!\[\s*%\s*([^;]*);\s*\[\s*(.*)$/s'); |
@@ -11,12 +11,12 @@ discard block |
||
| 11 | 11 | \***************************************************************************/ |
| 12 | 12 | |
| 13 | 13 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 14 | - return; |
|
| 14 | + return; |
|
| 15 | 15 | } |
| 16 | 16 | |
| 17 | 17 | define( |
| 18 | - '_REGEXP_DOCTYPE', |
|
| 19 | - '/^((?:<\001?[?][^>]*>\s*)*(?:<!--.*?-->\s*)*)*<!DOCTYPE\s+(\w+)\s+(\w+)\s*([^>]*)>\s*/s' |
|
| 18 | + '_REGEXP_DOCTYPE', |
|
| 19 | + '/^((?:<\001?[?][^>]*>\s*)*(?:<!--.*?-->\s*)*)*<!DOCTYPE\s+(\w+)\s+(\w+)\s*([^>]*)>\s*/s' |
|
| 20 | 20 | ); |
| 21 | 21 | |
| 22 | 22 | define('_REGEXP_XML', '/^(\s*(?:<[?][^x>][^>]*>\s*)?(?:<[?]xml[^>]*>)?\s*(?:<!--.*?-->\s*)*)<(\w+)/s'); |
@@ -35,14 +35,14 @@ discard block |
||
| 35 | 35 | define('_REGEXP_ENTITY_DEF', '/^%(' . _SUB_REGEXP_SYMBOL . '+);/'); |
| 36 | 36 | define('_REGEXP_TYPE_XML', 'PUBLIC|SYSTEM|INCLUDE|IGNORE|CDATA'); |
| 37 | 37 | define('_REGEXP_ENTITY_DECL', '/^<!ENTITY\s+(%?)\s*(' . |
| 38 | - _SUB_REGEXP_SYMBOL . |
|
| 39 | - '+;?)\s+(' . |
|
| 40 | - _REGEXP_TYPE_XML . |
|
| 41 | - ')?\s*(' . |
|
| 42 | - "('([^']*)')" . |
|
| 43 | - '|("([^"]*)")' . |
|
| 44 | - '|\s*(%' . _SUB_REGEXP_SYMBOL . '+;)\s*' . |
|
| 45 | - ')\s*(--.*?--)?("([^"]*)")?\s*>\s*(.*)$/s'); |
|
| 38 | + _SUB_REGEXP_SYMBOL . |
|
| 39 | + '+;?)\s+(' . |
|
| 40 | + _REGEXP_TYPE_XML . |
|
| 41 | + ')?\s*(' . |
|
| 42 | + "('([^']*)')" . |
|
| 43 | + '|("([^"]*)")' . |
|
| 44 | + '|\s*(%' . _SUB_REGEXP_SYMBOL . '+;)\s*' . |
|
| 45 | + ')\s*(--.*?--)?("([^"]*)")?\s*>\s*(.*)$/s'); |
|
| 46 | 46 | |
| 47 | 47 | define('_REGEXP_INCLUDE_USE', '/^<!\[\s*%\s*([^;]*);\s*\[\s*(.*)$/s'); |
| 48 | 48 | |
@@ -52,11 +52,11 @@ discard block |
||
| 52 | 52 | * Document Type Compilation |
| 53 | 53 | **/ |
| 54 | 54 | class DTC { |
| 55 | - public $macros = []; |
|
| 56 | - public $elements = []; |
|
| 57 | - public $peres = []; |
|
| 58 | - public $attributs = []; |
|
| 59 | - public $entites = []; |
|
| 60 | - public $regles = []; |
|
| 61 | - public $pcdata = []; |
|
| 55 | + public $macros = []; |
|
| 56 | + public $elements = []; |
|
| 57 | + public $peres = []; |
|
| 58 | + public $attributs = []; |
|
| 59 | + public $entites = []; |
|
| 60 | + public $regles = []; |
|
| 61 | + public $pcdata = []; |
|
| 62 | 62 | } |
@@ -2884,8 +2884,7 @@ |
||
| 2884 | 2884 | $_const = interprete_argument_balise(1, $p); |
| 2885 | 2885 | if (!strlen($_const)) { |
| 2886 | 2886 | $p->code = "''"; |
| 2887 | - } |
|
| 2888 | - else { |
|
| 2887 | + } else { |
|
| 2889 | 2888 | $p->code = "(defined($_const)?constant($_const):'')"; |
| 2890 | 2889 | } |
| 2891 | 2890 | $p->interdire_scripts = false; |
@@ -364,7 +364,7 @@ discard block |
||
| 364 | 364 | */ |
| 365 | 365 | function balise_DOSSIER_SQUELETTE_dist($p) { |
| 366 | 366 | $code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE)); |
| 367 | - $p->code = "_DIR_RACINE . '$code'" . |
|
| 367 | + $p->code = "_DIR_RACINE . '$code'". |
|
| 368 | 368 | $p->interdire_scripts = false; |
| 369 | 369 | |
| 370 | 370 | return $p; |
@@ -383,7 +383,7 @@ discard block |
||
| 383 | 383 | */ |
| 384 | 384 | function balise_SQUELETTE_dist($p) { |
| 385 | 385 | $code = addslashes($p->descr['sourcefile']); |
| 386 | - $p->code = "'$code'" . |
|
| 386 | + $p->code = "'$code'". |
|
| 387 | 387 | $p->interdire_scripts = false; |
| 388 | 388 | |
| 389 | 389 | return $p; |
@@ -435,9 +435,9 @@ discard block |
||
| 435 | 435 | **/ |
| 436 | 436 | function balise_NOM_SITE_dist($p) { |
| 437 | 437 | if (!$p->etoile) { |
| 438 | - $p->code = 'supprimer_numero(calculer_url(' . |
|
| 439 | - champ_sql('url_site', $p) . ',' . |
|
| 440 | - champ_sql('nom_site', $p) . |
|
| 438 | + $p->code = 'supprimer_numero(calculer_url('. |
|
| 439 | + champ_sql('url_site', $p).','. |
|
| 440 | + champ_sql('nom_site', $p). |
|
| 441 | 441 | ", 'titre', \$connect, false))"; |
| 442 | 442 | } else { |
| 443 | 443 | $p->code = champ_sql('nom_site', $p); |
@@ -588,8 +588,8 @@ discard block |
||
| 588 | 588 | * Pile complétée par le code à générer |
| 589 | 589 | **/ |
| 590 | 590 | function balise_POPULARITE_ABSOLUE_dist($p) { |
| 591 | - $p->code = 'ceil(' . |
|
| 592 | - champ_sql('popularite', $p) . |
|
| 591 | + $p->code = 'ceil('. |
|
| 592 | + champ_sql('popularite', $p). |
|
| 593 | 593 | ')'; |
| 594 | 594 | $p->interdire_scripts = false; |
| 595 | 595 | |
@@ -670,7 +670,7 @@ discard block |
||
| 670 | 670 | $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b); |
| 671 | 671 | ; |
| 672 | 672 | if (($v = interprete_argument_balise(1, $p)) !== null) { |
| 673 | - $p->code = 'table_valeur(' . $p->code . ', ' . $v . ')'; |
|
| 673 | + $p->code = 'table_valeur('.$p->code.', '.$v.')'; |
|
| 674 | 674 | } |
| 675 | 675 | $p->interdire_scripts = true; |
| 676 | 676 | |
@@ -809,16 +809,16 @@ discard block |
||
| 809 | 809 | $trouver_table = charger_fonction('trouver_table', 'base'); |
| 810 | 810 | if ($desc = $trouver_table(table_objet_sql($type_objet))) { |
| 811 | 811 | if (isset($desc['field']['descriptif'])) { |
| 812 | - $_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ','; |
|
| 812 | + $_ligne .= "'descriptif' => ".champ_sql('descriptif', $p).','; |
|
| 813 | 813 | } |
| 814 | 814 | if (isset($desc['field']['texte'])) { |
| 815 | - $_ligne .= "'texte' => " . champ_sql('texte', $p) . ','; |
|
| 815 | + $_ligne .= "'texte' => ".champ_sql('texte', $p).','; |
|
| 816 | 816 | } |
| 817 | 817 | if (isset($desc['field']['chapo'])) { |
| 818 | - $_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ','; |
|
| 818 | + $_ligne .= "'chapo' => ".champ_sql('chapo', $p).','; |
|
| 819 | 819 | } |
| 820 | 820 | if (isset($desc['introduction_longueur'])) { |
| 821 | - $_introduction_longueur = "'" . $desc['introduction_longueur'] . "'"; |
|
| 821 | + $_introduction_longueur = "'".$desc['introduction_longueur']."'"; |
|
| 822 | 822 | } |
| 823 | 823 | } |
| 824 | 824 | $_ligne .= ')'; |
@@ -917,10 +917,10 @@ discard block |
||
| 917 | 917 | $p->code = sprintf( |
| 918 | 918 | CODE_RECUPERER_FOND, |
| 919 | 919 | "'modeles/lesauteurs'", |
| 920 | - "array('objet'=>'" . $objet . |
|
| 921 | - "','id_objet' => " . champ_sql($id_table_objet, $p) . |
|
| 922 | - ",'$id_table_objet' => " . champ_sql($id_table_objet, $p) . |
|
| 923 | - ($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) . |
|
| 920 | + "array('objet'=>'".$objet. |
|
| 921 | + "','id_objet' => ".champ_sql($id_table_objet, $p). |
|
| 922 | + ",'$id_table_objet' => ".champ_sql($id_table_objet, $p). |
|
| 923 | + ($objet == 'article' ? '' : ",'id_article' => ".champ_sql('id_article', $p)). |
|
| 924 | 924 | ')', |
| 925 | 925 | "'trim'=>true, 'compil'=>array($c)", |
| 926 | 926 | _q($connect) |
@@ -989,7 +989,7 @@ discard block |
||
| 989 | 989 | $m = trim($m); |
| 990 | 990 | if ($m != "''") { |
| 991 | 991 | if (!preg_match(',\W,', $m)) { |
| 992 | - $m = $boucle->id_table . ".$m"; |
|
| 992 | + $m = $boucle->id_table.".$m"; |
|
| 993 | 993 | } |
| 994 | 994 | |
| 995 | 995 | $m .= ' AS titre_rang'; |
@@ -1150,7 +1150,7 @@ discard block |
||
| 1150 | 1150 | $f_pagination = chercher_filtre('pagination'); |
| 1151 | 1151 | $type = $p->boucles[$b]->modificateur['debut_nom']; |
| 1152 | 1152 | $modif = ($type[0] !== "'") ? "'debut'.$type" |
| 1153 | - : ("'debut" . substr($type, 1)); |
|
| 1153 | + : ("'debut".substr($type, 1)); |
|
| 1154 | 1154 | |
| 1155 | 1155 | $p->code = sprintf( |
| 1156 | 1156 | CODE_PAGINATION, |
@@ -1294,7 +1294,7 @@ discard block |
||
| 1294 | 1294 | $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']]; |
| 1295 | 1295 | erreur_squelette($msg, $p); |
| 1296 | 1296 | } else { |
| 1297 | - $p->code = 'find_in_path(' . $arg . ')'; |
|
| 1297 | + $p->code = 'find_in_path('.$arg.')'; |
|
| 1298 | 1298 | } |
| 1299 | 1299 | |
| 1300 | 1300 | $p->interdire_scripts = false; |
@@ -1329,7 +1329,7 @@ discard block |
||
| 1329 | 1329 | $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']]; |
| 1330 | 1330 | erreur_squelette($msg, $p); |
| 1331 | 1331 | } else { |
| 1332 | - $p->code = 'chemin_image(' . $arg . ')'; |
|
| 1332 | + $p->code = 'chemin_image('.$arg.')'; |
|
| 1333 | 1333 | } |
| 1334 | 1334 | |
| 1335 | 1335 | $p->interdire_scripts = false; |
@@ -1383,7 +1383,7 @@ discard block |
||
| 1383 | 1383 | // cas de #ENV sans argument : on retourne le serialize() du tableau |
| 1384 | 1384 | // une belle fonction [(#ENV|affiche_env)] serait pratique |
| 1385 | 1385 | if ($src) { |
| 1386 | - $p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")'; |
|
| 1386 | + $p->code = '(is_array($a = ('.$src.')) ? serialize($a) : "")'; |
|
| 1387 | 1387 | } else { |
| 1388 | 1388 | $p->code = 'serialize($Pile[0]??[])'; |
| 1389 | 1389 | } |
@@ -1436,8 +1436,8 @@ discard block |
||
| 1436 | 1436 | $_sinon = interprete_argument_balise(2, $p); |
| 1437 | 1437 | $_unserialize = sinon(interprete_argument_balise(3, $p), 'false'); |
| 1438 | 1438 | |
| 1439 | - $p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' . |
|
| 1440 | - ($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')"; |
|
| 1439 | + $p->code = '(include_spip(\'inc/config\')?lire_config('.$arg.','. |
|
| 1440 | + ($_sinon && $_sinon != "''" ? $_sinon : 'null').','.$_unserialize."):'')"; |
|
| 1441 | 1441 | |
| 1442 | 1442 | return $p; |
| 1443 | 1443 | } |
@@ -1530,7 +1530,7 @@ discard block |
||
| 1530 | 1530 | $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']]; |
| 1531 | 1531 | erreur_squelette($err_b_s_a, $p); |
| 1532 | 1532 | } else { |
| 1533 | - $p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))'; |
|
| 1533 | + $p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))'; |
|
| 1534 | 1534 | } |
| 1535 | 1535 | |
| 1536 | 1536 | $p->interdire_scripts = false; |
@@ -1578,7 +1578,7 @@ discard block |
||
| 1578 | 1578 | ) |
| 1579 | 1579 | ) { |
| 1580 | 1580 | $p->code = /* $r[1]. */ |
| 1581 | - '(' . $r[2] . ')'; |
|
| 1581 | + '('.$r[2].')'; |
|
| 1582 | 1582 | } else { |
| 1583 | 1583 | $p->code = "eval('return '.$php.';')"; |
| 1584 | 1584 | } |
@@ -1822,9 +1822,9 @@ discard block |
||
| 1822 | 1822 | |
| 1823 | 1823 | // noter la duree du cache dans un entete proprietaire |
| 1824 | 1824 | |
| 1825 | - $code = "'<'.'" . '?php header("X-Spip-Cache: ' |
|
| 1825 | + $code = "'<'.'".'?php header("X-Spip-Cache: ' |
|
| 1826 | 1826 | . $duree |
| 1827 | - . '"); ?' . "'.'>'"; |
|
| 1827 | + . '"); ?'."'.'>'"; |
|
| 1828 | 1828 | |
| 1829 | 1829 | // Remplir le header Cache-Control |
| 1830 | 1830 | // cas #CACHE{0} |
@@ -1845,9 +1845,9 @@ discard block |
||
| 1845 | 1845 | $pa == 'cache-client' |
| 1846 | 1846 | and $duree > 0 |
| 1847 | 1847 | ) { |
| 1848 | - $code .= ".'<'.'" . '?php header("Cache-Control: max-age=' |
|
| 1848 | + $code .= ".'<'.'".'?php header("Cache-Control: max-age=' |
|
| 1849 | 1849 | . $duree |
| 1850 | - . '"); ?' . "'.'>'"; |
|
| 1850 | + . '"); ?'."'.'>'"; |
|
| 1851 | 1851 | // il semble logique, si on cache-client, de ne pas invalider |
| 1852 | 1852 | $pa = 'statique'; |
| 1853 | 1853 | } |
@@ -1856,7 +1856,7 @@ discard block |
||
| 1856 | 1856 | $pa == 'statique' |
| 1857 | 1857 | and $duree > 0 |
| 1858 | 1858 | ) { |
| 1859 | - $code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'"; |
|
| 1859 | + $code .= ".'<'.'".'?php header("X-Spip-Statique: oui"); ?'."'.'>'"; |
|
| 1860 | 1860 | } |
| 1861 | 1861 | } |
| 1862 | 1862 | } else { |
@@ -2020,9 +2020,9 @@ discard block |
||
| 2020 | 2020 | if ($p->etoile) { |
| 2021 | 2021 | $_options[] = "'etoile'=>true"; |
| 2022 | 2022 | } |
| 2023 | - $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')'; |
|
| 2023 | + $_options[] = "'compil'=>array(".memoriser_contexte_compil($p).')'; |
|
| 2024 | 2024 | |
| 2025 | - $_l = 'array(' . join(",\n\t", $_contexte) . ')'; |
|
| 2025 | + $_l = 'array('.join(",\n\t", $_contexte).')'; |
|
| 2026 | 2026 | if ($flag_env) { |
| 2027 | 2027 | $_l = "array_merge(\$Pile[0],$_l)"; |
| 2028 | 2028 | } |
@@ -2032,7 +2032,7 @@ discard block |
||
| 2032 | 2032 | $msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']]; |
| 2033 | 2033 | erreur_squelette($msg, $p); |
| 2034 | 2034 | } else { |
| 2035 | - $p->code = 'charge_scripts(' . $_contexte[1] . ',false)'; |
|
| 2035 | + $p->code = 'charge_scripts('.$_contexte[1].',false)'; |
|
| 2036 | 2036 | } |
| 2037 | 2037 | |
| 2038 | 2038 | $p->interdire_scripts = false; // la securite est assuree par recuperer_fond |
@@ -2080,7 +2080,7 @@ discard block |
||
| 2080 | 2080 | unset($_contexte[1]); |
| 2081 | 2081 | |
| 2082 | 2082 | if (preg_match("/^\s*'[^']*'/s", $nom)) { |
| 2083 | - $nom = "'modeles/" . substr($nom, 1); |
|
| 2083 | + $nom = "'modeles/".substr($nom, 1); |
|
| 2084 | 2084 | } else { |
| 2085 | 2085 | $nom = "'modeles/' . $nom"; |
| 2086 | 2086 | } |
@@ -2097,8 +2097,8 @@ discard block |
||
| 2097 | 2097 | $primary = $p->boucles[$p->id_boucle]->primary; |
| 2098 | 2098 | if (!strpos($primary, ',')) { |
| 2099 | 2099 | $id = champ_sql($primary, $p); |
| 2100 | - $_contexte[] = "'$primary'=>" . $id; |
|
| 2101 | - $_contexte[] = "'id'=>" . $id; |
|
| 2100 | + $_contexte[] = "'$primary'=>".$id; |
|
| 2101 | + $_contexte[] = "'id'=>".$id; |
|
| 2102 | 2102 | } |
| 2103 | 2103 | } |
| 2104 | 2104 | $_contexte[] = "'recurs'=>(++\$recurs)"; |
@@ -2110,11 +2110,11 @@ discard block |
||
| 2110 | 2110 | $_options = memoriser_contexte_compil($p); |
| 2111 | 2111 | $_options = "'compil'=>array($_options), 'trim'=>true"; |
| 2112 | 2112 | if (isset($_contexte['ajax'])) { |
| 2113 | - $_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 2113 | + $_options .= ', '.preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 2114 | 2114 | unset($_contexte['ajax']); |
| 2115 | 2115 | } |
| 2116 | 2116 | |
| 2117 | - $_l = 'array(' . join(",\n\t", $_contexte) . ')'; |
|
| 2117 | + $_l = 'array('.join(",\n\t", $_contexte).')'; |
|
| 2118 | 2118 | if ($flag_env) { |
| 2119 | 2119 | $_l = "array_merge(\$Pile[0],$_l)"; |
| 2120 | 2120 | } |
@@ -2224,12 +2224,12 @@ discard block |
||
| 2224 | 2224 | function balise_DOUBLONS_dist($p) { |
| 2225 | 2225 | if ($type = interprete_argument_balise(1, $p)) { |
| 2226 | 2226 | if ($famille = interprete_argument_balise(2, $p)) { |
| 2227 | - $type .= '.' . $famille; |
|
| 2227 | + $type .= '.'.$famille; |
|
| 2228 | 2228 | } |
| 2229 | - $p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")'; |
|
| 2229 | + $p->code = '(isset($doublons['.$type.']) ? $doublons['.$type.'] : "")'; |
|
| 2230 | 2230 | if (!$p->etoile) { |
| 2231 | 2231 | $p->code = 'array_filter(array_map("intval",explode(",",' |
| 2232 | - . $p->code . ')))'; |
|
| 2232 | + . $p->code.')))'; |
|
| 2233 | 2233 | } |
| 2234 | 2234 | } else { |
| 2235 | 2235 | $p->code = '$doublons'; |
@@ -2358,7 +2358,7 @@ discard block |
||
| 2358 | 2358 | $_code[] = "$_key => $_val"; |
| 2359 | 2359 | } |
| 2360 | 2360 | } while ($_key && $_val); |
| 2361 | - $p->code = 'array(' . join(', ', $_code) . ')'; |
|
| 2361 | + $p->code = 'array('.join(', ', $_code).')'; |
|
| 2362 | 2362 | $p->interdire_scripts = false; |
| 2363 | 2363 | |
| 2364 | 2364 | return $p; |
@@ -2385,7 +2385,7 @@ discard block |
||
| 2385 | 2385 | while ($_val = interprete_argument_balise($n++, $p)) { |
| 2386 | 2386 | $_code[] = $_val; |
| 2387 | 2387 | } |
| 2388 | - $p->code = 'array(' . join(', ', $_code) . ')'; |
|
| 2388 | + $p->code = 'array('.join(', ', $_code).')'; |
|
| 2389 | 2389 | $p->interdire_scripts = false; |
| 2390 | 2390 | |
| 2391 | 2391 | return $p; |
@@ -2430,10 +2430,10 @@ discard block |
||
| 2430 | 2430 | $_code[] = $_v; |
| 2431 | 2431 | } |
| 2432 | 2432 | |
| 2433 | - $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join( |
|
| 2433 | + $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser('.join( |
|
| 2434 | 2434 | ', ', |
| 2435 | 2435 | $_code |
| 2436 | - ) . ')?" ":"")'; |
|
| 2436 | + ).')?" ":"")'; |
|
| 2437 | 2437 | $p->interdire_scripts = false; |
| 2438 | 2438 | |
| 2439 | 2439 | return $p; |
@@ -2466,7 +2466,7 @@ discard block |
||
| 2466 | 2466 | $type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"'; |
| 2467 | 2467 | |
| 2468 | 2468 | $f = chercher_filtre('info_plugin'); |
| 2469 | - $p->code = $f . '(' . $plugin . ', ' . $type_info . ')'; |
|
| 2469 | + $p->code = $f.'('.$plugin.', '.$type_info.')'; |
|
| 2470 | 2470 | |
| 2471 | 2471 | return $p; |
| 2472 | 2472 | } |
@@ -2716,12 +2716,12 @@ discard block |
||
| 2716 | 2716 | $_issens = "in_array($_champ,array('>','<'))"; |
| 2717 | 2717 | $_sens = "(strpos('< >',$_champ)-1)"; |
| 2718 | 2718 | |
| 2719 | - $_variable = "((\$s=$_issens)?'sens':'tri')." . $boucle->modificateur['tri_nom']; |
|
| 2719 | + $_variable = "((\$s=$_issens)?'sens':'tri').".$boucle->modificateur['tri_nom']; |
|
| 2720 | 2720 | $_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)"; |
| 2721 | - $_url = "parametre_url($_url,'var_memotri',strncmp(" . $boucle->modificateur['tri_nom'] . ",'session',7)==0?$_variable:'')"; |
|
| 2722 | - $_on = '$s?(' . $boucle->modificateur['tri_sens'] . "==$_sens" . '):(' . $boucle->modificateur['tri_champ'] . "==$_champ)"; |
|
| 2721 | + $_url = "parametre_url($_url,'var_memotri',strncmp(".$boucle->modificateur['tri_nom'].",'session',7)==0?$_variable:'')"; |
|
| 2722 | + $_on = '$s?('.$boucle->modificateur['tri_sens']."==$_sens".'):('.$boucle->modificateur['tri_champ']."==$_champ)"; |
|
| 2723 | 2723 | |
| 2724 | - $p->code = "lien_ou_expose($_url,$_libelle,$_on" . ($_class ? ",$_class" : '') . ')'; |
|
| 2724 | + $p->code = "lien_ou_expose($_url,$_libelle,$_on".($_class ? ",$_class" : '').')'; |
|
| 2725 | 2725 | //$p->code = "''"; |
| 2726 | 2726 | $p->interdire_scripts = false; |
| 2727 | 2727 | |
@@ -2795,7 +2795,7 @@ discard block |
||
| 2795 | 2795 | $connect = $p->boucles[$p->id_boucle]->sql_serveur; |
| 2796 | 2796 | } |
| 2797 | 2797 | |
| 2798 | - $p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')"; |
|
| 2798 | + $p->code = '(objet_test_si_publie('.$_type.',intval('.$_id.'),'._q($connect).")?' ':'')"; |
|
| 2799 | 2799 | $p->interdire_scripts = false; |
| 2800 | 2800 | |
| 2801 | 2801 | return $p; |
@@ -26,7 +26,7 @@ discard block |
||
| 26 | 26 | **/ |
| 27 | 27 | |
| 28 | 28 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 29 | - return; |
|
| 29 | + return; |
|
| 30 | 30 | } |
| 31 | 31 | |
| 32 | 32 | /** |
@@ -48,16 +48,16 @@ discard block |
||
| 48 | 48 | * Code PHP si cet argument est présent, sinon null |
| 49 | 49 | **/ |
| 50 | 50 | function interprete_argument_balise(int $n, Champ $p): ?string { |
| 51 | - if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) { |
|
| 52 | - return calculer_liste( |
|
| 53 | - $p->param[0][$n], |
|
| 54 | - $p->descr, |
|
| 55 | - $p->boucles, |
|
| 56 | - $p->id_boucle |
|
| 57 | - ); |
|
| 58 | - } else { |
|
| 59 | - return null; |
|
| 60 | - } |
|
| 51 | + if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) { |
|
| 52 | + return calculer_liste( |
|
| 53 | + $p->param[0][$n], |
|
| 54 | + $p->descr, |
|
| 55 | + $p->boucles, |
|
| 56 | + $p->id_boucle |
|
| 57 | + ); |
|
| 58 | + } else { |
|
| 59 | + return null; |
|
| 60 | + } |
|
| 61 | 61 | } |
| 62 | 62 | |
| 63 | 63 | |
@@ -77,10 +77,10 @@ discard block |
||
| 77 | 77 | * Pile complétée par le code à générer |
| 78 | 78 | **/ |
| 79 | 79 | function balise_NOM_SITE_SPIP_dist($p) { |
| 80 | - $p->code = "\$GLOBALS['meta']['nom_site']"; |
|
| 80 | + $p->code = "\$GLOBALS['meta']['nom_site']"; |
|
| 81 | 81 | |
| 82 | - #$p->interdire_scripts = true; |
|
| 83 | - return $p; |
|
| 82 | + #$p->interdire_scripts = true; |
|
| 83 | + return $p; |
|
| 84 | 84 | } |
| 85 | 85 | |
| 86 | 86 | /** |
@@ -96,10 +96,10 @@ discard block |
||
| 96 | 96 | * Pile complétée par le code à générer |
| 97 | 97 | **/ |
| 98 | 98 | function balise_EMAIL_WEBMASTER_dist($p) { |
| 99 | - $p->code = "\$GLOBALS['meta']['email_webmaster']"; |
|
| 99 | + $p->code = "\$GLOBALS['meta']['email_webmaster']"; |
|
| 100 | 100 | |
| 101 | - #$p->interdire_scripts = true; |
|
| 102 | - return $p; |
|
| 101 | + #$p->interdire_scripts = true; |
|
| 102 | + return $p; |
|
| 103 | 103 | } |
| 104 | 104 | |
| 105 | 105 | /** |
@@ -115,10 +115,10 @@ discard block |
||
| 115 | 115 | * Pile complétée par le code à générer |
| 116 | 116 | **/ |
| 117 | 117 | function balise_DESCRIPTIF_SITE_SPIP_dist($p) { |
| 118 | - $p->code = "\$GLOBALS['meta']['descriptif_site']"; |
|
| 118 | + $p->code = "\$GLOBALS['meta']['descriptif_site']"; |
|
| 119 | 119 | |
| 120 | - #$p->interdire_scripts = true; |
|
| 121 | - return $p; |
|
| 120 | + #$p->interdire_scripts = true; |
|
| 121 | + return $p; |
|
| 122 | 122 | } |
| 123 | 123 | |
| 124 | 124 | |
@@ -139,10 +139,10 @@ discard block |
||
| 139 | 139 | * Pile complétée par le code à générer |
| 140 | 140 | **/ |
| 141 | 141 | function balise_CHARSET_dist($p) { |
| 142 | - $p->code = "\$GLOBALS['meta']['charset']"; |
|
| 142 | + $p->code = "\$GLOBALS['meta']['charset']"; |
|
| 143 | 143 | |
| 144 | - #$p->interdire_scripts = true; |
|
| 145 | - return $p; |
|
| 144 | + #$p->interdire_scripts = true; |
|
| 145 | + return $p; |
|
| 146 | 146 | } |
| 147 | 147 | |
| 148 | 148 | /** |
@@ -167,11 +167,11 @@ discard block |
||
| 167 | 167 | * Pile complétée par le code à générer |
| 168 | 168 | **/ |
| 169 | 169 | function balise_LANG_LEFT_dist($p) { |
| 170 | - $_lang = champ_sql('lang', $p); |
|
| 171 | - $p->code = "lang_dir($_lang, 'left','right')"; |
|
| 172 | - $p->interdire_scripts = false; |
|
| 170 | + $_lang = champ_sql('lang', $p); |
|
| 171 | + $p->code = "lang_dir($_lang, 'left','right')"; |
|
| 172 | + $p->interdire_scripts = false; |
|
| 173 | 173 | |
| 174 | - return $p; |
|
| 174 | + return $p; |
|
| 175 | 175 | } |
| 176 | 176 | |
| 177 | 177 | /** |
@@ -191,11 +191,11 @@ discard block |
||
| 191 | 191 | * Pile complétée par le code à générer |
| 192 | 192 | **/ |
| 193 | 193 | function balise_LANG_RIGHT_dist($p) { |
| 194 | - $_lang = champ_sql('lang', $p); |
|
| 195 | - $p->code = "lang_dir($_lang, 'right','left')"; |
|
| 196 | - $p->interdire_scripts = false; |
|
| 194 | + $_lang = champ_sql('lang', $p); |
|
| 195 | + $p->code = "lang_dir($_lang, 'right','left')"; |
|
| 196 | + $p->interdire_scripts = false; |
|
| 197 | 197 | |
| 198 | - return $p; |
|
| 198 | + return $p; |
|
| 199 | 199 | } |
| 200 | 200 | |
| 201 | 201 | /** |
@@ -220,11 +220,11 @@ discard block |
||
| 220 | 220 | * Pile complétée par le code à générer |
| 221 | 221 | **/ |
| 222 | 222 | function balise_LANG_DIR_dist($p) { |
| 223 | - $_lang = champ_sql('lang', $p); |
|
| 224 | - $p->code = "lang_dir($_lang, 'ltr','rtl')"; |
|
| 225 | - $p->interdire_scripts = false; |
|
| 223 | + $_lang = champ_sql('lang', $p); |
|
| 224 | + $p->code = "lang_dir($_lang, 'ltr','rtl')"; |
|
| 225 | + $p->interdire_scripts = false; |
|
| 226 | 226 | |
| 227 | - return $p; |
|
| 227 | + return $p; |
|
| 228 | 228 | } |
| 229 | 229 | |
| 230 | 230 | |
@@ -241,10 +241,10 @@ discard block |
||
| 241 | 241 | * Pile complétée par le code à générer |
| 242 | 242 | **/ |
| 243 | 243 | function balise_PUCE_dist($p) { |
| 244 | - $p->code = 'definir_puce()'; |
|
| 245 | - $p->interdire_scripts = false; |
|
| 244 | + $p->code = 'definir_puce()'; |
|
| 245 | + $p->interdire_scripts = false; |
|
| 246 | 246 | |
| 247 | - return $p; |
|
| 247 | + return $p; |
|
| 248 | 248 | } |
| 249 | 249 | |
| 250 | 250 | |
@@ -268,9 +268,9 @@ discard block |
||
| 268 | 268 | * Pile completée du code PHP d'exécution de la balise |
| 269 | 269 | */ |
| 270 | 270 | function balise_DATE_dist($p) { |
| 271 | - $p->code = champ_sql('date', $p); |
|
| 271 | + $p->code = champ_sql('date', $p); |
|
| 272 | 272 | |
| 273 | - return $p; |
|
| 273 | + return $p; |
|
| 274 | 274 | } |
| 275 | 275 | |
| 276 | 276 | |
@@ -290,10 +290,10 @@ discard block |
||
| 290 | 290 | * Pile completée du code PHP d'exécution de la balise |
| 291 | 291 | */ |
| 292 | 292 | function balise_DATE_REDAC_dist($p) { |
| 293 | - $p->code = champ_sql('date_redac', $p); |
|
| 294 | - $p->interdire_scripts = false; |
|
| 293 | + $p->code = champ_sql('date_redac', $p); |
|
| 294 | + $p->interdire_scripts = false; |
|
| 295 | 295 | |
| 296 | - return $p; |
|
| 296 | + return $p; |
|
| 297 | 297 | } |
| 298 | 298 | |
| 299 | 299 | /** |
@@ -312,10 +312,10 @@ discard block |
||
| 312 | 312 | * Pile completée du code PHP d'exécution de la balise |
| 313 | 313 | */ |
| 314 | 314 | function balise_DATE_MODIF_dist($p) { |
| 315 | - $p->code = champ_sql('date_modif', $p); |
|
| 316 | - $p->interdire_scripts = false; |
|
| 315 | + $p->code = champ_sql('date_modif', $p); |
|
| 316 | + $p->interdire_scripts = false; |
|
| 317 | 317 | |
| 318 | - return $p; |
|
| 318 | + return $p; |
|
| 319 | 319 | } |
| 320 | 320 | |
| 321 | 321 | /** |
@@ -333,13 +333,13 @@ discard block |
||
| 333 | 333 | * Pile completée du code PHP d'exécution de la balise |
| 334 | 334 | */ |
| 335 | 335 | function balise_DATE_NOUVEAUTES_dist($p) { |
| 336 | - $p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui' |
|
| 336 | + $p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui' |
|
| 337 | 337 | AND isset(\$GLOBALS['meta']['dernier_envoi_neuf'])) ? |
| 338 | 338 | \$GLOBALS['meta']['dernier_envoi_neuf'] : |
| 339 | 339 | \"'0000-00-00'\")"; |
| 340 | - $p->interdire_scripts = false; |
|
| 340 | + $p->interdire_scripts = false; |
|
| 341 | 341 | |
| 342 | - return $p; |
|
| 342 | + return $p; |
|
| 343 | 343 | } |
| 344 | 344 | |
| 345 | 345 | |
@@ -357,11 +357,11 @@ discard block |
||
| 357 | 357 | * Pile completée du code PHP d'exécution de la balise |
| 358 | 358 | */ |
| 359 | 359 | function balise_DOSSIER_SQUELETTE_dist($p) { |
| 360 | - $code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE)); |
|
| 361 | - $p->code = "_DIR_RACINE . '$code'" . |
|
| 362 | - $p->interdire_scripts = false; |
|
| 360 | + $code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE)); |
|
| 361 | + $p->code = "_DIR_RACINE . '$code'" . |
|
| 362 | + $p->interdire_scripts = false; |
|
| 363 | 363 | |
| 364 | - return $p; |
|
| 364 | + return $p; |
|
| 365 | 365 | } |
| 366 | 366 | |
| 367 | 367 | /** |
@@ -376,11 +376,11 @@ discard block |
||
| 376 | 376 | * Pile completée du code PHP d'exécution de la balise |
| 377 | 377 | */ |
| 378 | 378 | function balise_SQUELETTE_dist($p) { |
| 379 | - $code = addslashes($p->descr['sourcefile']); |
|
| 380 | - $p->code = "'$code'" . |
|
| 381 | - $p->interdire_scripts = false; |
|
| 379 | + $code = addslashes($p->descr['sourcefile']); |
|
| 380 | + $p->code = "'$code'" . |
|
| 381 | + $p->interdire_scripts = false; |
|
| 382 | 382 | |
| 383 | - return $p; |
|
| 383 | + return $p; |
|
| 384 | 384 | } |
| 385 | 385 | |
| 386 | 386 | /** |
@@ -399,10 +399,10 @@ discard block |
||
| 399 | 399 | * Pile completée du code PHP d'exécution de la balise |
| 400 | 400 | */ |
| 401 | 401 | function balise_SPIP_VERSION_dist($p) { |
| 402 | - $p->code = 'spip_version()'; |
|
| 403 | - $p->interdire_scripts = false; |
|
| 402 | + $p->code = 'spip_version()'; |
|
| 403 | + $p->interdire_scripts = false; |
|
| 404 | 404 | |
| 405 | - return $p; |
|
| 405 | + return $p; |
|
| 406 | 406 | } |
| 407 | 407 | |
| 408 | 408 | |
@@ -428,18 +428,18 @@ discard block |
||
| 428 | 428 | * Pile complétée par le code à générer |
| 429 | 429 | **/ |
| 430 | 430 | function balise_NOM_SITE_dist($p) { |
| 431 | - if (!$p->etoile) { |
|
| 432 | - $p->code = 'supprimer_numero(calculer_url(' . |
|
| 433 | - champ_sql('url_site', $p) . ',' . |
|
| 434 | - champ_sql('nom_site', $p) . |
|
| 435 | - ", 'titre', \$connect, false))"; |
|
| 436 | - } else { |
|
| 437 | - $p->code = champ_sql('nom_site', $p); |
|
| 438 | - } |
|
| 431 | + if (!$p->etoile) { |
|
| 432 | + $p->code = 'supprimer_numero(calculer_url(' . |
|
| 433 | + champ_sql('url_site', $p) . ',' . |
|
| 434 | + champ_sql('nom_site', $p) . |
|
| 435 | + ", 'titre', \$connect, false))"; |
|
| 436 | + } else { |
|
| 437 | + $p->code = champ_sql('nom_site', $p); |
|
| 438 | + } |
|
| 439 | 439 | |
| 440 | - $p->interdire_scripts = true; |
|
| 440 | + $p->interdire_scripts = true; |
|
| 441 | 441 | |
| 442 | - return $p; |
|
| 442 | + return $p; |
|
| 443 | 443 | } |
| 444 | 444 | |
| 445 | 445 | |
@@ -456,11 +456,11 @@ discard block |
||
| 456 | 456 | * Pile complétée par le code à générer |
| 457 | 457 | **/ |
| 458 | 458 | function balise_NOTES_dist($p) { |
| 459 | - // Recuperer les notes |
|
| 460 | - $p->code = 'calculer_notes()'; |
|
| 459 | + // Recuperer les notes |
|
| 460 | + $p->code = 'calculer_notes()'; |
|
| 461 | 461 | |
| 462 | - #$p->interdire_scripts = true; |
|
| 463 | - return $p; |
|
| 462 | + #$p->interdire_scripts = true; |
|
| 463 | + return $p; |
|
| 464 | 464 | } |
| 465 | 465 | |
| 466 | 466 | |
@@ -482,10 +482,10 @@ discard block |
||
| 482 | 482 | * Pile complétée par le code à générer |
| 483 | 483 | **/ |
| 484 | 484 | function balise_RECHERCHE_dist($p) { |
| 485 | - $p->code = 'entites_html(_request("recherche"))'; |
|
| 486 | - $p->interdire_scripts = false; |
|
| 485 | + $p->code = 'entites_html(_request("recherche"))'; |
|
| 486 | + $p->interdire_scripts = false; |
|
| 487 | 487 | |
| 488 | - return $p; |
|
| 488 | + return $p; |
|
| 489 | 489 | } |
| 490 | 490 | |
| 491 | 491 | |
@@ -503,17 +503,17 @@ discard block |
||
| 503 | 503 | * Pile complétée par le code à générer |
| 504 | 504 | **/ |
| 505 | 505 | function balise_COMPTEUR_BOUCLE_dist($p) { |
| 506 | - $b = index_boucle_mere($p); |
|
| 507 | - if ($b === '') { |
|
| 508 | - $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 509 | - erreur_squelette($msg, $p); |
|
| 510 | - } else { |
|
| 511 | - $p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)"; |
|
| 512 | - $p->boucles[$b]->cptrows = true; |
|
| 513 | - $p->interdire_scripts = false; |
|
| 506 | + $b = index_boucle_mere($p); |
|
| 507 | + if ($b === '') { |
|
| 508 | + $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 509 | + erreur_squelette($msg, $p); |
|
| 510 | + } else { |
|
| 511 | + $p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)"; |
|
| 512 | + $p->boucles[$b]->cptrows = true; |
|
| 513 | + $p->interdire_scripts = false; |
|
| 514 | 514 | |
| 515 | - return $p; |
|
| 516 | - } |
|
| 515 | + return $p; |
|
| 516 | + } |
|
| 517 | 517 | } |
| 518 | 518 | |
| 519 | 519 | /** |
@@ -531,17 +531,17 @@ discard block |
||
| 531 | 531 | * Pile complétée par le code à générer |
| 532 | 532 | **/ |
| 533 | 533 | function balise_TOTAL_BOUCLE_dist($p) { |
| 534 | - $b = index_boucle_mere($p); |
|
| 535 | - if ($b === '') { |
|
| 536 | - $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 537 | - erreur_squelette($msg, $p); |
|
| 538 | - } else { |
|
| 539 | - $p->code = "(\$Numrows['$b']['total'] ?? 0)"; |
|
| 540 | - $p->boucles[$b]->numrows = true; |
|
| 541 | - $p->interdire_scripts = false; |
|
| 542 | - } |
|
| 534 | + $b = index_boucle_mere($p); |
|
| 535 | + if ($b === '') { |
|
| 536 | + $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 537 | + erreur_squelette($msg, $p); |
|
| 538 | + } else { |
|
| 539 | + $p->code = "(\$Numrows['$b']['total'] ?? 0)"; |
|
| 540 | + $p->boucles[$b]->numrows = true; |
|
| 541 | + $p->interdire_scripts = false; |
|
| 542 | + } |
|
| 543 | 543 | |
| 544 | - return $p; |
|
| 544 | + return $p; |
|
| 545 | 545 | } |
| 546 | 546 | |
| 547 | 547 | |
@@ -561,7 +561,7 @@ discard block |
||
| 561 | 561 | * Pile complétée par le code à générer |
| 562 | 562 | **/ |
| 563 | 563 | function balise_POINTS_dist($p) { |
| 564 | - return rindex_pile($p, 'points', 'recherche'); |
|
| 564 | + return rindex_pile($p, 'points', 'recherche'); |
|
| 565 | 565 | } |
| 566 | 566 | |
| 567 | 567 | |
@@ -582,12 +582,12 @@ discard block |
||
| 582 | 582 | * Pile complétée par le code à générer |
| 583 | 583 | **/ |
| 584 | 584 | function balise_POPULARITE_ABSOLUE_dist($p) { |
| 585 | - $p->code = 'ceil(' . |
|
| 586 | - champ_sql('popularite', $p) . |
|
| 587 | - ')'; |
|
| 588 | - $p->interdire_scripts = false; |
|
| 585 | + $p->code = 'ceil(' . |
|
| 586 | + champ_sql('popularite', $p) . |
|
| 587 | + ')'; |
|
| 588 | + $p->interdire_scripts = false; |
|
| 589 | 589 | |
| 590 | - return $p; |
|
| 590 | + return $p; |
|
| 591 | 591 | } |
| 592 | 592 | |
| 593 | 593 | /** |
@@ -607,10 +607,10 @@ discard block |
||
| 607 | 607 | * Pile complétée par le code à générer |
| 608 | 608 | **/ |
| 609 | 609 | function balise_POPULARITE_SITE_dist($p) { |
| 610 | - $p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])'; |
|
| 611 | - $p->interdire_scripts = false; |
|
| 610 | + $p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])'; |
|
| 611 | + $p->interdire_scripts = false; |
|
| 612 | 612 | |
| 613 | - return $p; |
|
| 613 | + return $p; |
|
| 614 | 614 | } |
| 615 | 615 | |
| 616 | 616 | /** |
@@ -631,10 +631,10 @@ discard block |
||
| 631 | 631 | * Pile complétée par le code à générer |
| 632 | 632 | **/ |
| 633 | 633 | function balise_POPULARITE_MAX_dist($p) { |
| 634 | - $p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])'; |
|
| 635 | - $p->interdire_scripts = false; |
|
| 634 | + $p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])'; |
|
| 635 | + $p->interdire_scripts = false; |
|
| 636 | 636 | |
| 637 | - return $p; |
|
| 637 | + return $p; |
|
| 638 | 638 | } |
| 639 | 639 | |
| 640 | 640 | |
@@ -660,15 +660,15 @@ discard block |
||
| 660 | 660 | * Pile complétée par le code à générer |
| 661 | 661 | **/ |
| 662 | 662 | function balise_VALEUR_dist($p) { |
| 663 | - $b = $p->nom_boucle ?: $p->id_boucle; |
|
| 664 | - $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b); |
|
| 663 | + $b = $p->nom_boucle ?: $p->id_boucle; |
|
| 664 | + $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b); |
|
| 665 | 665 | ; |
| 666 | - if (($v = interprete_argument_balise(1, $p)) !== null) { |
|
| 667 | - $p->code = 'table_valeur(' . $p->code . ', ' . $v . ')'; |
|
| 668 | - } |
|
| 669 | - $p->interdire_scripts = true; |
|
| 666 | + if (($v = interprete_argument_balise(1, $p)) !== null) { |
|
| 667 | + $p->code = 'table_valeur(' . $p->code . ', ' . $v . ')'; |
|
| 668 | + } |
|
| 669 | + $p->interdire_scripts = true; |
|
| 670 | 670 | |
| 671 | - return $p; |
|
| 671 | + return $p; |
|
| 672 | 672 | } |
| 673 | 673 | |
| 674 | 674 | /** |
@@ -697,16 +697,16 @@ discard block |
||
| 697 | 697 | * Pile complétée par le code à générer |
| 698 | 698 | **/ |
| 699 | 699 | function balise_EXPOSE_dist($p) { |
| 700 | - $on = "'on'"; |
|
| 701 | - $off = "''"; |
|
| 702 | - if (($v = interprete_argument_balise(1, $p)) !== null) { |
|
| 703 | - $on = $v; |
|
| 704 | - if (($v = interprete_argument_balise(2, $p)) !== null) { |
|
| 705 | - $off = $v; |
|
| 706 | - } |
|
| 707 | - } |
|
| 700 | + $on = "'on'"; |
|
| 701 | + $off = "''"; |
|
| 702 | + if (($v = interprete_argument_balise(1, $p)) !== null) { |
|
| 703 | + $on = $v; |
|
| 704 | + if (($v = interprete_argument_balise(2, $p)) !== null) { |
|
| 705 | + $off = $v; |
|
| 706 | + } |
|
| 707 | + } |
|
| 708 | 708 | |
| 709 | - return calculer_balise_expose($p, $on, $off); |
|
| 709 | + return calculer_balise_expose($p, $on, $off); |
|
| 710 | 710 | } |
| 711 | 711 | |
| 712 | 712 | /** |
@@ -724,35 +724,35 @@ discard block |
||
| 724 | 724 | * Pile complétée par le code à générer |
| 725 | 725 | **/ |
| 726 | 726 | function calculer_balise_expose($p, $on, $off) { |
| 727 | - $b = index_boucle($p); |
|
| 728 | - if (empty($p->boucles[$b]->primary)) { |
|
| 729 | - $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 730 | - erreur_squelette($msg, $p); |
|
| 731 | - } else { |
|
| 732 | - $key = $p->boucles[$b]->primary; |
|
| 733 | - $type = $p->boucles[$p->id_boucle]->primary; |
|
| 734 | - $desc = $p->boucles[$b]->show; |
|
| 735 | - $connect = sql_quote($p->boucles[$b]->sql_serveur); |
|
| 727 | + $b = index_boucle($p); |
|
| 728 | + if (empty($p->boucles[$b]->primary)) { |
|
| 729 | + $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 730 | + erreur_squelette($msg, $p); |
|
| 731 | + } else { |
|
| 732 | + $key = $p->boucles[$b]->primary; |
|
| 733 | + $type = $p->boucles[$p->id_boucle]->primary; |
|
| 734 | + $desc = $p->boucles[$b]->show; |
|
| 735 | + $connect = sql_quote($p->boucles[$b]->sql_serveur); |
|
| 736 | 736 | |
| 737 | - // Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite |
|
| 738 | - $c = index_pile($p->id_boucle, $type, $p->boucles); |
|
| 737 | + // Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite |
|
| 738 | + $c = index_pile($p->id_boucle, $type, $p->boucles); |
|
| 739 | 739 | |
| 740 | - if (isset($desc['field']['id_parent'])) { |
|
| 741 | - $parent = 0; // pour if (!$parent) dans calculer_expose |
|
| 742 | - } elseif (isset($desc['field']['id_rubrique'])) { |
|
| 743 | - $parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b); |
|
| 744 | - } elseif (isset($desc['field']['id_groupe'])) { |
|
| 745 | - $parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b); |
|
| 746 | - } else { |
|
| 747 | - $parent = "''"; |
|
| 748 | - } |
|
| 740 | + if (isset($desc['field']['id_parent'])) { |
|
| 741 | + $parent = 0; // pour if (!$parent) dans calculer_expose |
|
| 742 | + } elseif (isset($desc['field']['id_rubrique'])) { |
|
| 743 | + $parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b); |
|
| 744 | + } elseif (isset($desc['field']['id_groupe'])) { |
|
| 745 | + $parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b); |
|
| 746 | + } else { |
|
| 747 | + $parent = "''"; |
|
| 748 | + } |
|
| 749 | 749 | |
| 750 | - $p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)"; |
|
| 751 | - } |
|
| 750 | + $p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)"; |
|
| 751 | + } |
|
| 752 | 752 | |
| 753 | - $p->interdire_scripts = false; |
|
| 753 | + $p->interdire_scripts = false; |
|
| 754 | 754 | |
| 755 | - return $p; |
|
| 755 | + return $p; |
|
| 756 | 756 | } |
| 757 | 757 | |
| 758 | 758 | |
@@ -792,46 +792,46 @@ discard block |
||
| 792 | 792 | **/ |
| 793 | 793 | function balise_INTRODUCTION_dist($p) { |
| 794 | 794 | |
| 795 | - $type_objet = $p->type_requete; |
|
| 796 | - $cle_objet = id_table_objet($type_objet); |
|
| 797 | - $_id_objet = champ_sql($cle_objet, $p); |
|
| 798 | - |
|
| 799 | - // Récupérer les valeurs sql nécessaires : descriptif, texte et chapo |
|
| 800 | - // ainsi que le longueur d'introduction donnée dans la description de l'objet. |
|
| 801 | - $_introduction_longueur = 'null'; |
|
| 802 | - $_ligne = 'array('; |
|
| 803 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 804 | - if ($desc = $trouver_table(table_objet_sql($type_objet))) { |
|
| 805 | - if (isset($desc['field']['descriptif'])) { |
|
| 806 | - $_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ','; |
|
| 807 | - } |
|
| 808 | - if (isset($desc['field']['texte'])) { |
|
| 809 | - $_ligne .= "'texte' => " . champ_sql('texte', $p) . ','; |
|
| 810 | - } |
|
| 811 | - if (isset($desc['field']['chapo'])) { |
|
| 812 | - $_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ','; |
|
| 813 | - } |
|
| 814 | - if (isset($desc['introduction_longueur'])) { |
|
| 815 | - $_introduction_longueur = "'" . $desc['introduction_longueur'] . "'"; |
|
| 816 | - } |
|
| 817 | - } |
|
| 818 | - $_ligne .= ')'; |
|
| 819 | - |
|
| 820 | - // Récupérer la longueur et la suite passés en paramètres |
|
| 821 | - $_longueur_ou_suite = 'null'; |
|
| 822 | - if (($v1 = interprete_argument_balise(1, $p)) !== null) { |
|
| 823 | - $_longueur_ou_suite = $v1; |
|
| 824 | - } |
|
| 825 | - $_suite = 'null'; |
|
| 826 | - if (($v2 = interprete_argument_balise(2, $p)) !== null) { |
|
| 827 | - $_suite = $v2; |
|
| 828 | - } |
|
| 829 | - |
|
| 830 | - $p->code = "generer_introduction_entite($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)"; |
|
| 831 | - |
|
| 832 | - #$p->interdire_scripts = true; |
|
| 833 | - $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro |
|
| 834 | - return $p; |
|
| 795 | + $type_objet = $p->type_requete; |
|
| 796 | + $cle_objet = id_table_objet($type_objet); |
|
| 797 | + $_id_objet = champ_sql($cle_objet, $p); |
|
| 798 | + |
|
| 799 | + // Récupérer les valeurs sql nécessaires : descriptif, texte et chapo |
|
| 800 | + // ainsi que le longueur d'introduction donnée dans la description de l'objet. |
|
| 801 | + $_introduction_longueur = 'null'; |
|
| 802 | + $_ligne = 'array('; |
|
| 803 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 804 | + if ($desc = $trouver_table(table_objet_sql($type_objet))) { |
|
| 805 | + if (isset($desc['field']['descriptif'])) { |
|
| 806 | + $_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ','; |
|
| 807 | + } |
|
| 808 | + if (isset($desc['field']['texte'])) { |
|
| 809 | + $_ligne .= "'texte' => " . champ_sql('texte', $p) . ','; |
|
| 810 | + } |
|
| 811 | + if (isset($desc['field']['chapo'])) { |
|
| 812 | + $_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ','; |
|
| 813 | + } |
|
| 814 | + if (isset($desc['introduction_longueur'])) { |
|
| 815 | + $_introduction_longueur = "'" . $desc['introduction_longueur'] . "'"; |
|
| 816 | + } |
|
| 817 | + } |
|
| 818 | + $_ligne .= ')'; |
|
| 819 | + |
|
| 820 | + // Récupérer la longueur et la suite passés en paramètres |
|
| 821 | + $_longueur_ou_suite = 'null'; |
|
| 822 | + if (($v1 = interprete_argument_balise(1, $p)) !== null) { |
|
| 823 | + $_longueur_ou_suite = $v1; |
|
| 824 | + } |
|
| 825 | + $_suite = 'null'; |
|
| 826 | + if (($v2 = interprete_argument_balise(2, $p)) !== null) { |
|
| 827 | + $_suite = $v2; |
|
| 828 | + } |
|
| 829 | + |
|
| 830 | + $p->code = "generer_introduction_entite($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)"; |
|
| 831 | + |
|
| 832 | + #$p->interdire_scripts = true; |
|
| 833 | + $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro |
|
| 834 | + return $p; |
|
| 835 | 835 | } |
| 836 | 836 | |
| 837 | 837 | |
@@ -851,15 +851,15 @@ discard block |
||
| 851 | 851 | * Pile complétée par le code à générer |
| 852 | 852 | **/ |
| 853 | 853 | function balise_LANG_dist($p) { |
| 854 | - $_lang = champ_sql('lang', $p); |
|
| 855 | - if (!$p->etoile) { |
|
| 856 | - $p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])"; |
|
| 857 | - } else { |
|
| 858 | - $p->code = "spip_htmlentities($_lang)"; |
|
| 859 | - } |
|
| 860 | - $p->interdire_scripts = false; |
|
| 854 | + $_lang = champ_sql('lang', $p); |
|
| 855 | + if (!$p->etoile) { |
|
| 856 | + $p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])"; |
|
| 857 | + } else { |
|
| 858 | + $p->code = "spip_htmlentities($_lang)"; |
|
| 859 | + } |
|
| 860 | + $p->interdire_scripts = false; |
|
| 861 | 861 | |
| 862 | - return $p; |
|
| 862 | + return $p; |
|
| 863 | 863 | } |
| 864 | 864 | |
| 865 | 865 | /** |
@@ -881,48 +881,48 @@ discard block |
||
| 881 | 881 | * Pile complétée par le code à générer |
| 882 | 882 | */ |
| 883 | 883 | function balise_LESAUTEURS_dist($p) { |
| 884 | - // Cherche le champ 'lesauteurs' dans la pile |
|
| 885 | - $_lesauteurs = champ_sql('lesauteurs', $p, false); |
|
| 886 | - |
|
| 887 | - // Si le champ n'existe pas (cas de spip_articles), on applique |
|
| 888 | - // le modele lesauteurs.html en passant id_article dans le contexte; |
|
| 889 | - // dans le cas contraire on prend le champ 'lesauteurs' |
|
| 890 | - // (cf extension sites/) |
|
| 891 | - if ( |
|
| 892 | - $_lesauteurs |
|
| 893 | - and $_lesauteurs != '@$Pile[0][\'lesauteurs\']' |
|
| 894 | - ) { |
|
| 895 | - $p->code = "safehtml($_lesauteurs)"; |
|
| 896 | - // $p->interdire_scripts = true; |
|
| 897 | - } else { |
|
| 898 | - if (!$p->id_boucle) { |
|
| 899 | - $connect = ''; |
|
| 900 | - $objet = 'article'; |
|
| 901 | - $id_table_objet = 'id_article'; |
|
| 902 | - } else { |
|
| 903 | - $b = $p->nom_boucle ?: $p->id_boucle; |
|
| 904 | - $connect = $p->boucles[$b]->sql_serveur; |
|
| 905 | - $type_boucle = $p->boucles[$b]->type_requete; |
|
| 906 | - $objet = objet_type($type_boucle); |
|
| 907 | - $id_table_objet = id_table_objet($type_boucle); |
|
| 908 | - } |
|
| 909 | - $c = memoriser_contexte_compil($p); |
|
| 910 | - |
|
| 911 | - $p->code = sprintf( |
|
| 912 | - CODE_RECUPERER_FOND, |
|
| 913 | - "'modeles/lesauteurs'", |
|
| 914 | - "array('objet'=>'" . $objet . |
|
| 915 | - "','id_objet' => " . champ_sql($id_table_objet, $p) . |
|
| 916 | - ",'$id_table_objet' => " . champ_sql($id_table_objet, $p) . |
|
| 917 | - ($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) . |
|
| 918 | - ')', |
|
| 919 | - "'trim'=>true, 'compil'=>array($c)", |
|
| 920 | - _q($connect) |
|
| 921 | - ); |
|
| 922 | - $p->interdire_scripts = false; // securite apposee par recuperer_fond() |
|
| 923 | - } |
|
| 924 | - |
|
| 925 | - return $p; |
|
| 884 | + // Cherche le champ 'lesauteurs' dans la pile |
|
| 885 | + $_lesauteurs = champ_sql('lesauteurs', $p, false); |
|
| 886 | + |
|
| 887 | + // Si le champ n'existe pas (cas de spip_articles), on applique |
|
| 888 | + // le modele lesauteurs.html en passant id_article dans le contexte; |
|
| 889 | + // dans le cas contraire on prend le champ 'lesauteurs' |
|
| 890 | + // (cf extension sites/) |
|
| 891 | + if ( |
|
| 892 | + $_lesauteurs |
|
| 893 | + and $_lesauteurs != '@$Pile[0][\'lesauteurs\']' |
|
| 894 | + ) { |
|
| 895 | + $p->code = "safehtml($_lesauteurs)"; |
|
| 896 | + // $p->interdire_scripts = true; |
|
| 897 | + } else { |
|
| 898 | + if (!$p->id_boucle) { |
|
| 899 | + $connect = ''; |
|
| 900 | + $objet = 'article'; |
|
| 901 | + $id_table_objet = 'id_article'; |
|
| 902 | + } else { |
|
| 903 | + $b = $p->nom_boucle ?: $p->id_boucle; |
|
| 904 | + $connect = $p->boucles[$b]->sql_serveur; |
|
| 905 | + $type_boucle = $p->boucles[$b]->type_requete; |
|
| 906 | + $objet = objet_type($type_boucle); |
|
| 907 | + $id_table_objet = id_table_objet($type_boucle); |
|
| 908 | + } |
|
| 909 | + $c = memoriser_contexte_compil($p); |
|
| 910 | + |
|
| 911 | + $p->code = sprintf( |
|
| 912 | + CODE_RECUPERER_FOND, |
|
| 913 | + "'modeles/lesauteurs'", |
|
| 914 | + "array('objet'=>'" . $objet . |
|
| 915 | + "','id_objet' => " . champ_sql($id_table_objet, $p) . |
|
| 916 | + ",'$id_table_objet' => " . champ_sql($id_table_objet, $p) . |
|
| 917 | + ($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) . |
|
| 918 | + ')', |
|
| 919 | + "'trim'=>true, 'compil'=>array($c)", |
|
| 920 | + _q($connect) |
|
| 921 | + ); |
|
| 922 | + $p->interdire_scripts = false; // securite apposee par recuperer_fond() |
|
| 923 | + } |
|
| 924 | + |
|
| 925 | + return $p; |
|
| 926 | 926 | } |
| 927 | 927 | |
| 928 | 928 | |
@@ -949,76 +949,76 @@ discard block |
||
| 949 | 949 | * Pile complétée par le code à générer |
| 950 | 950 | */ |
| 951 | 951 | function balise_RANG_dist($p) { |
| 952 | - $b = index_boucle($p); |
|
| 953 | - if ($b === '') { |
|
| 954 | - $msg = [ |
|
| 955 | - 'zbug_champ_hors_boucle', |
|
| 956 | - ['champ' => '#RANG'] |
|
| 957 | - ]; |
|
| 958 | - erreur_squelette($msg, $p); |
|
| 959 | - } else { |
|
| 960 | - // chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql) |
|
| 961 | - // dans la boucle immediatement englobante uniquement |
|
| 962 | - // sinon on compose le champ calcule |
|
| 963 | - $_rang = champ_sql('rang', $p, '', false); |
|
| 964 | - |
|
| 965 | - // si pas trouve de champ sql rang : |
|
| 966 | - if (!$_rang or $_rang == "''") { |
|
| 967 | - $boucle = &$p->boucles[$b]; |
|
| 968 | - |
|
| 969 | - // on gere le cas ou #RANG est une extraction du numero dans le titre |
|
| 970 | - $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 971 | - $desc = $trouver_table($boucle->id_table); |
|
| 972 | - $_titre = ''; # où extraire le numero ? |
|
| 973 | - |
|
| 974 | - if (isset($desc['titre'])) { |
|
| 975 | - $t = $desc['titre']; |
|
| 976 | - if ( |
|
| 977 | - // Soit on trouve avec la déclaration de la lang AVANT |
|
| 978 | - preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m) |
|
| 979 | - // Soit on prend depuis le début |
|
| 980 | - or preg_match(';^(.*?titre)\s*(,|$);', $t, $m) |
|
| 981 | - ) { |
|
| 982 | - $m = preg_replace(',as\s+titre$,i', '', $m[1]); |
|
| 983 | - $m = trim($m); |
|
| 984 | - if ($m != "''") { |
|
| 985 | - if (!preg_match(',\W,', $m)) { |
|
| 986 | - $m = $boucle->id_table . ".$m"; |
|
| 987 | - } |
|
| 988 | - |
|
| 989 | - $m .= ' AS titre_rang'; |
|
| 990 | - |
|
| 991 | - $boucle->select[] = $m; |
|
| 992 | - $_titre = '$Pile[$SP][\'titre_rang\']'; |
|
| 993 | - } |
|
| 994 | - } |
|
| 995 | - } |
|
| 996 | - |
|
| 997 | - // si on n'a rien trouvé, on utilise le champ titre classique |
|
| 998 | - if (!$_titre) { |
|
| 999 | - $_titre = champ_sql('titre', $p); |
|
| 1000 | - } |
|
| 1001 | - |
|
| 1002 | - // et on recupere aussi les infos de liaison si on est en train d'editer les liens justement |
|
| 1003 | - // cas des formulaires xxx_lies utilises par #FORMULAIRE_EDITER_LIENS |
|
| 1004 | - $type_boucle = $boucle->type_requete; |
|
| 1005 | - $objet = objet_type($type_boucle); |
|
| 1006 | - $id_table_objet = id_table_objet($type_boucle); |
|
| 1007 | - $_primary = champ_sql($id_table_objet, $p, '', false); |
|
| 1008 | - $_env = '$Pile[0]'; |
|
| 1009 | - |
|
| 1010 | - if (!$_titre) {$_titre = "''"; |
|
| 1011 | - } |
|
| 1012 | - if (!$_primary) {$_primary = "''"; |
|
| 1013 | - } |
|
| 1014 | - $_rang = "calculer_rang_smart($_titre, '$objet', $_primary, $_env)"; |
|
| 1015 | - } |
|
| 1016 | - |
|
| 1017 | - $p->code = $_rang; |
|
| 1018 | - $p->interdire_scripts = false; |
|
| 1019 | - } |
|
| 1020 | - |
|
| 1021 | - return $p; |
|
| 952 | + $b = index_boucle($p); |
|
| 953 | + if ($b === '') { |
|
| 954 | + $msg = [ |
|
| 955 | + 'zbug_champ_hors_boucle', |
|
| 956 | + ['champ' => '#RANG'] |
|
| 957 | + ]; |
|
| 958 | + erreur_squelette($msg, $p); |
|
| 959 | + } else { |
|
| 960 | + // chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql) |
|
| 961 | + // dans la boucle immediatement englobante uniquement |
|
| 962 | + // sinon on compose le champ calcule |
|
| 963 | + $_rang = champ_sql('rang', $p, '', false); |
|
| 964 | + |
|
| 965 | + // si pas trouve de champ sql rang : |
|
| 966 | + if (!$_rang or $_rang == "''") { |
|
| 967 | + $boucle = &$p->boucles[$b]; |
|
| 968 | + |
|
| 969 | + // on gere le cas ou #RANG est une extraction du numero dans le titre |
|
| 970 | + $trouver_table = charger_fonction('trouver_table', 'base'); |
|
| 971 | + $desc = $trouver_table($boucle->id_table); |
|
| 972 | + $_titre = ''; # où extraire le numero ? |
|
| 973 | + |
|
| 974 | + if (isset($desc['titre'])) { |
|
| 975 | + $t = $desc['titre']; |
|
| 976 | + if ( |
|
| 977 | + // Soit on trouve avec la déclaration de la lang AVANT |
|
| 978 | + preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m) |
|
| 979 | + // Soit on prend depuis le début |
|
| 980 | + or preg_match(';^(.*?titre)\s*(,|$);', $t, $m) |
|
| 981 | + ) { |
|
| 982 | + $m = preg_replace(',as\s+titre$,i', '', $m[1]); |
|
| 983 | + $m = trim($m); |
|
| 984 | + if ($m != "''") { |
|
| 985 | + if (!preg_match(',\W,', $m)) { |
|
| 986 | + $m = $boucle->id_table . ".$m"; |
|
| 987 | + } |
|
| 988 | + |
|
| 989 | + $m .= ' AS titre_rang'; |
|
| 990 | + |
|
| 991 | + $boucle->select[] = $m; |
|
| 992 | + $_titre = '$Pile[$SP][\'titre_rang\']'; |
|
| 993 | + } |
|
| 994 | + } |
|
| 995 | + } |
|
| 996 | + |
|
| 997 | + // si on n'a rien trouvé, on utilise le champ titre classique |
|
| 998 | + if (!$_titre) { |
|
| 999 | + $_titre = champ_sql('titre', $p); |
|
| 1000 | + } |
|
| 1001 | + |
|
| 1002 | + // et on recupere aussi les infos de liaison si on est en train d'editer les liens justement |
|
| 1003 | + // cas des formulaires xxx_lies utilises par #FORMULAIRE_EDITER_LIENS |
|
| 1004 | + $type_boucle = $boucle->type_requete; |
|
| 1005 | + $objet = objet_type($type_boucle); |
|
| 1006 | + $id_table_objet = id_table_objet($type_boucle); |
|
| 1007 | + $_primary = champ_sql($id_table_objet, $p, '', false); |
|
| 1008 | + $_env = '$Pile[0]'; |
|
| 1009 | + |
|
| 1010 | + if (!$_titre) {$_titre = "''"; |
|
| 1011 | + } |
|
| 1012 | + if (!$_primary) {$_primary = "''"; |
|
| 1013 | + } |
|
| 1014 | + $_rang = "calculer_rang_smart($_titre, '$objet', $_primary, $_env)"; |
|
| 1015 | + } |
|
| 1016 | + |
|
| 1017 | + $p->code = $_rang; |
|
| 1018 | + $p->interdire_scripts = false; |
|
| 1019 | + } |
|
| 1020 | + |
|
| 1021 | + return $p; |
|
| 1022 | 1022 | } |
| 1023 | 1023 | |
| 1024 | 1024 | |
@@ -1040,12 +1040,12 @@ discard block |
||
| 1040 | 1040 | * Pile complétée par le code à générer |
| 1041 | 1041 | **/ |
| 1042 | 1042 | function balise_POPULARITE_dist($p) { |
| 1043 | - $_popularite = champ_sql('popularite', $p); |
|
| 1044 | - $p->code = "(ceil(min(100, 100 * $_popularite |
|
| 1043 | + $_popularite = champ_sql('popularite', $p); |
|
| 1044 | + $p->code = "(ceil(min(100, 100 * $_popularite |
|
| 1045 | 1045 | / max(1 , 0 + \$GLOBALS['meta']['popularite_max']))))"; |
| 1046 | - $p->interdire_scripts = false; |
|
| 1046 | + $p->interdire_scripts = false; |
|
| 1047 | 1047 | |
| 1048 | - return $p; |
|
| 1048 | + return $p; |
|
| 1049 | 1049 | } |
| 1050 | 1050 | |
| 1051 | 1051 | /** |
@@ -1056,8 +1056,8 @@ discard block |
||
| 1056 | 1056 | * l'absence peut-être due à une faute de frappe dans le contexte inclus. |
| 1057 | 1057 | */ |
| 1058 | 1058 | define( |
| 1059 | - 'CODE_PAGINATION', |
|
| 1060 | - '%s($Numrows["%s"]["grand_total"], |
|
| 1059 | + 'CODE_PAGINATION', |
|
| 1060 | + '%s($Numrows["%s"]["grand_total"], |
|
| 1061 | 1061 | %s, |
| 1062 | 1062 | isset($Pile[0][%4$s])?$Pile[0][%4$s]:intval(_request(%4$s)), |
| 1063 | 1063 | %5$s, %6$s, %7$s, %8$s, array(%9$s))' |
@@ -1094,75 +1094,75 @@ discard block |
||
| 1094 | 1094 | * Pile complétée par le code à générer |
| 1095 | 1095 | */ |
| 1096 | 1096 | function balise_PAGINATION_dist($p, $liste = 'true') { |
| 1097 | - $b = index_boucle_mere($p); |
|
| 1098 | - |
|
| 1099 | - // s'il n'y a pas de nom de boucle, on ne peut pas paginer |
|
| 1100 | - if ($b === '') { |
|
| 1101 | - $msg = [ |
|
| 1102 | - 'zbug_champ_hors_boucle', |
|
| 1103 | - ['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION'] |
|
| 1104 | - ]; |
|
| 1105 | - erreur_squelette($msg, $p); |
|
| 1106 | - |
|
| 1107 | - return $p; |
|
| 1108 | - } |
|
| 1109 | - |
|
| 1110 | - // s'il n'y a pas de mode_partie, c'est qu'on se trouve |
|
| 1111 | - // dans un boucle recursive ou qu'on a oublie le critere {pagination} |
|
| 1112 | - if (!$p->boucles[$b]->mode_partie) { |
|
| 1113 | - if (!$p->boucles[$b]->table_optionnelle) { |
|
| 1114 | - $msg = [ |
|
| 1115 | - 'zbug_pagination_sans_critere', |
|
| 1116 | - ['champ' => '#PAGINATION'] |
|
| 1117 | - ]; |
|
| 1118 | - erreur_squelette($msg, $p); |
|
| 1119 | - } |
|
| 1120 | - |
|
| 1121 | - return $p; |
|
| 1122 | - } |
|
| 1123 | - |
|
| 1124 | - // a priori true |
|
| 1125 | - // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise |
|
| 1126 | - // si true, les arguments simples (sans truc=chose) vont degager |
|
| 1127 | - $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false); |
|
| 1128 | - if (is_countable($_contexte) ? count($_contexte) : 0) { |
|
| 1129 | - $key = key($_contexte); |
|
| 1130 | - if (is_numeric($key)) { |
|
| 1131 | - array_shift($_contexte); |
|
| 1132 | - $__modele = interprete_argument_balise(1, $p); |
|
| 1133 | - } |
|
| 1134 | - } |
|
| 1135 | - |
|
| 1136 | - if (is_countable($_contexte) ? count($_contexte) : 0) { |
|
| 1137 | - $code_contexte = implode(',', $_contexte); |
|
| 1138 | - } else { |
|
| 1139 | - $code_contexte = ''; |
|
| 1140 | - } |
|
| 1141 | - |
|
| 1142 | - $connect = $p->boucles[$b]->sql_serveur; |
|
| 1143 | - $pas = $p->boucles[$b]->total_parties; |
|
| 1144 | - $f_pagination = chercher_filtre('pagination'); |
|
| 1145 | - $type = $p->boucles[$b]->modificateur['debut_nom']; |
|
| 1146 | - $modif = ($type[0] !== "'") ? "'debut'.$type" |
|
| 1147 | - : ("'debut" . substr($type, 1)); |
|
| 1148 | - |
|
| 1149 | - $p->code = sprintf( |
|
| 1150 | - CODE_PAGINATION, |
|
| 1151 | - $f_pagination, |
|
| 1152 | - $b, |
|
| 1153 | - $type, |
|
| 1154 | - $modif, |
|
| 1155 | - $pas, |
|
| 1156 | - $liste, |
|
| 1157 | - ((isset($__modele) and $__modele) ? $__modele : "''"), |
|
| 1158 | - _q($connect), |
|
| 1159 | - $code_contexte |
|
| 1160 | - ); |
|
| 1161 | - |
|
| 1162 | - $p->boucles[$b]->numrows = true; |
|
| 1163 | - $p->interdire_scripts = false; |
|
| 1164 | - |
|
| 1165 | - return $p; |
|
| 1097 | + $b = index_boucle_mere($p); |
|
| 1098 | + |
|
| 1099 | + // s'il n'y a pas de nom de boucle, on ne peut pas paginer |
|
| 1100 | + if ($b === '') { |
|
| 1101 | + $msg = [ |
|
| 1102 | + 'zbug_champ_hors_boucle', |
|
| 1103 | + ['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION'] |
|
| 1104 | + ]; |
|
| 1105 | + erreur_squelette($msg, $p); |
|
| 1106 | + |
|
| 1107 | + return $p; |
|
| 1108 | + } |
|
| 1109 | + |
|
| 1110 | + // s'il n'y a pas de mode_partie, c'est qu'on se trouve |
|
| 1111 | + // dans un boucle recursive ou qu'on a oublie le critere {pagination} |
|
| 1112 | + if (!$p->boucles[$b]->mode_partie) { |
|
| 1113 | + if (!$p->boucles[$b]->table_optionnelle) { |
|
| 1114 | + $msg = [ |
|
| 1115 | + 'zbug_pagination_sans_critere', |
|
| 1116 | + ['champ' => '#PAGINATION'] |
|
| 1117 | + ]; |
|
| 1118 | + erreur_squelette($msg, $p); |
|
| 1119 | + } |
|
| 1120 | + |
|
| 1121 | + return $p; |
|
| 1122 | + } |
|
| 1123 | + |
|
| 1124 | + // a priori true |
|
| 1125 | + // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise |
|
| 1126 | + // si true, les arguments simples (sans truc=chose) vont degager |
|
| 1127 | + $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false); |
|
| 1128 | + if (is_countable($_contexte) ? count($_contexte) : 0) { |
|
| 1129 | + $key = key($_contexte); |
|
| 1130 | + if (is_numeric($key)) { |
|
| 1131 | + array_shift($_contexte); |
|
| 1132 | + $__modele = interprete_argument_balise(1, $p); |
|
| 1133 | + } |
|
| 1134 | + } |
|
| 1135 | + |
|
| 1136 | + if (is_countable($_contexte) ? count($_contexte) : 0) { |
|
| 1137 | + $code_contexte = implode(',', $_contexte); |
|
| 1138 | + } else { |
|
| 1139 | + $code_contexte = ''; |
|
| 1140 | + } |
|
| 1141 | + |
|
| 1142 | + $connect = $p->boucles[$b]->sql_serveur; |
|
| 1143 | + $pas = $p->boucles[$b]->total_parties; |
|
| 1144 | + $f_pagination = chercher_filtre('pagination'); |
|
| 1145 | + $type = $p->boucles[$b]->modificateur['debut_nom']; |
|
| 1146 | + $modif = ($type[0] !== "'") ? "'debut'.$type" |
|
| 1147 | + : ("'debut" . substr($type, 1)); |
|
| 1148 | + |
|
| 1149 | + $p->code = sprintf( |
|
| 1150 | + CODE_PAGINATION, |
|
| 1151 | + $f_pagination, |
|
| 1152 | + $b, |
|
| 1153 | + $type, |
|
| 1154 | + $modif, |
|
| 1155 | + $pas, |
|
| 1156 | + $liste, |
|
| 1157 | + ((isset($__modele) and $__modele) ? $__modele : "''"), |
|
| 1158 | + _q($connect), |
|
| 1159 | + $code_contexte |
|
| 1160 | + ); |
|
| 1161 | + |
|
| 1162 | + $p->boucles[$b]->numrows = true; |
|
| 1163 | + $p->interdire_scripts = false; |
|
| 1164 | + |
|
| 1165 | + return $p; |
|
| 1166 | 1166 | } |
| 1167 | 1167 | |
| 1168 | 1168 | |
@@ -1189,11 +1189,11 @@ discard block |
||
| 1189 | 1189 | * Pile complétée par le code à générer |
| 1190 | 1190 | **/ |
| 1191 | 1191 | function balise_ANCRE_PAGINATION_dist($p) { |
| 1192 | - if ($f = charger_fonction('PAGINATION', 'balise', true)) { |
|
| 1193 | - return $f($p, $liste = 'false'); |
|
| 1194 | - } else { |
|
| 1195 | - return null; |
|
| 1196 | - } // ou une erreur ? |
|
| 1192 | + if ($f = charger_fonction('PAGINATION', 'balise', true)) { |
|
| 1193 | + return $f($p, $liste = 'false'); |
|
| 1194 | + } else { |
|
| 1195 | + return null; |
|
| 1196 | + } // ou une erreur ? |
|
| 1197 | 1197 | } |
| 1198 | 1198 | |
| 1199 | 1199 | |
@@ -1214,17 +1214,17 @@ discard block |
||
| 1214 | 1214 | * Pile complétée par le code à générer |
| 1215 | 1215 | **/ |
| 1216 | 1216 | function balise_GRAND_TOTAL_dist($p) { |
| 1217 | - $b = index_boucle_mere($p); |
|
| 1218 | - if ($b === '') { |
|
| 1219 | - $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 1220 | - erreur_squelette($msg, $p); |
|
| 1221 | - } else { |
|
| 1222 | - $p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)"; |
|
| 1223 | - $p->boucles[$b]->numrows = true; |
|
| 1224 | - $p->interdire_scripts = false; |
|
| 1225 | - } |
|
| 1217 | + $b = index_boucle_mere($p); |
|
| 1218 | + if ($b === '') { |
|
| 1219 | + $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 1220 | + erreur_squelette($msg, $p); |
|
| 1221 | + } else { |
|
| 1222 | + $p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)"; |
|
| 1223 | + $p->boucles[$b]->numrows = true; |
|
| 1224 | + $p->interdire_scripts = false; |
|
| 1225 | + } |
|
| 1226 | 1226 | |
| 1227 | - return $p; |
|
| 1227 | + return $p; |
|
| 1228 | 1228 | } |
| 1229 | 1229 | |
| 1230 | 1230 | |
@@ -1252,10 +1252,10 @@ discard block |
||
| 1252 | 1252 | * Pile complétée par le code à générer |
| 1253 | 1253 | **/ |
| 1254 | 1254 | function balise_SELF_dist($p) { |
| 1255 | - $p->code = 'self()'; |
|
| 1256 | - $p->interdire_scripts = false; |
|
| 1255 | + $p->code = 'self()'; |
|
| 1256 | + $p->interdire_scripts = false; |
|
| 1257 | 1257 | |
| 1258 | - return $p; |
|
| 1258 | + return $p; |
|
| 1259 | 1259 | } |
| 1260 | 1260 | |
| 1261 | 1261 | |
@@ -1282,17 +1282,17 @@ discard block |
||
| 1282 | 1282 | * Pile complétée par le code à générer |
| 1283 | 1283 | **/ |
| 1284 | 1284 | function balise_CHEMIN_dist($p) { |
| 1285 | - $arg = interprete_argument_balise(1, $p); |
|
| 1286 | - if (!$arg) { |
|
| 1287 | - $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']]; |
|
| 1288 | - erreur_squelette($msg, $p); |
|
| 1289 | - } else { |
|
| 1290 | - $p->code = 'find_in_path(' . $arg . ')'; |
|
| 1291 | - } |
|
| 1285 | + $arg = interprete_argument_balise(1, $p); |
|
| 1286 | + if (!$arg) { |
|
| 1287 | + $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']]; |
|
| 1288 | + erreur_squelette($msg, $p); |
|
| 1289 | + } else { |
|
| 1290 | + $p->code = 'find_in_path(' . $arg . ')'; |
|
| 1291 | + } |
|
| 1292 | 1292 | |
| 1293 | - $p->interdire_scripts = false; |
|
| 1293 | + $p->interdire_scripts = false; |
|
| 1294 | 1294 | |
| 1295 | - return $p; |
|
| 1295 | + return $p; |
|
| 1296 | 1296 | } |
| 1297 | 1297 | |
| 1298 | 1298 | /** |
@@ -1317,16 +1317,16 @@ discard block |
||
| 1317 | 1317 | * Pile complétée par le code à générer |
| 1318 | 1318 | **/ |
| 1319 | 1319 | function balise_CHEMIN_IMAGE_dist($p) { |
| 1320 | - $arg = interprete_argument_balise(1, $p); |
|
| 1321 | - if (!$arg) { |
|
| 1322 | - $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']]; |
|
| 1323 | - erreur_squelette($msg, $p); |
|
| 1324 | - } else { |
|
| 1325 | - $p->code = 'chemin_image(' . $arg . ')'; |
|
| 1326 | - } |
|
| 1320 | + $arg = interprete_argument_balise(1, $p); |
|
| 1321 | + if (!$arg) { |
|
| 1322 | + $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']]; |
|
| 1323 | + erreur_squelette($msg, $p); |
|
| 1324 | + } else { |
|
| 1325 | + $p->code = 'chemin_image(' . $arg . ')'; |
|
| 1326 | + } |
|
| 1327 | 1327 | |
| 1328 | - $p->interdire_scripts = false; |
|
| 1329 | - return $p; |
|
| 1328 | + $p->interdire_scripts = false; |
|
| 1329 | + return $p; |
|
| 1330 | 1330 | } |
| 1331 | 1331 | |
| 1332 | 1332 | |
@@ -1364,36 +1364,36 @@ discard block |
||
| 1364 | 1364 | **/ |
| 1365 | 1365 | function balise_ENV_dist($p, $src = null) { |
| 1366 | 1366 | |
| 1367 | - // cle du tableau desiree |
|
| 1368 | - $_nom = interprete_argument_balise(1, $p); |
|
| 1369 | - // valeur par defaut |
|
| 1370 | - $_sinon = interprete_argument_balise(2, $p); |
|
| 1367 | + // cle du tableau desiree |
|
| 1368 | + $_nom = interprete_argument_balise(1, $p); |
|
| 1369 | + // valeur par defaut |
|
| 1370 | + $_sinon = interprete_argument_balise(2, $p); |
|
| 1371 | 1371 | |
| 1372 | - // $src est un tableau de donnees sources eventuellement transmis |
|
| 1373 | - // en absence, on utilise l'environnement du squelette $Pile[0] |
|
| 1372 | + // $src est un tableau de donnees sources eventuellement transmis |
|
| 1373 | + // en absence, on utilise l'environnement du squelette $Pile[0] |
|
| 1374 | 1374 | |
| 1375 | - if (!$_nom) { |
|
| 1376 | - // cas de #ENV sans argument : on retourne le serialize() du tableau |
|
| 1377 | - // une belle fonction [(#ENV|affiche_env)] serait pratique |
|
| 1378 | - if ($src) { |
|
| 1379 | - $p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")'; |
|
| 1380 | - } else { |
|
| 1381 | - $p->code = 'serialize($Pile[0]??[])'; |
|
| 1382 | - } |
|
| 1383 | - } else { |
|
| 1384 | - if (!$src) { |
|
| 1385 | - $src = '$Pile[0]??[]'; |
|
| 1386 | - } |
|
| 1387 | - if ($_sinon) { |
|
| 1388 | - $p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)"; |
|
| 1389 | - } else { |
|
| 1390 | - $p->code = "table_valeur($src, (string)$_nom, null)"; |
|
| 1391 | - } |
|
| 1392 | - } |
|
| 1375 | + if (!$_nom) { |
|
| 1376 | + // cas de #ENV sans argument : on retourne le serialize() du tableau |
|
| 1377 | + // une belle fonction [(#ENV|affiche_env)] serait pratique |
|
| 1378 | + if ($src) { |
|
| 1379 | + $p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")'; |
|
| 1380 | + } else { |
|
| 1381 | + $p->code = 'serialize($Pile[0]??[])'; |
|
| 1382 | + } |
|
| 1383 | + } else { |
|
| 1384 | + if (!$src) { |
|
| 1385 | + $src = '$Pile[0]??[]'; |
|
| 1386 | + } |
|
| 1387 | + if ($_sinon) { |
|
| 1388 | + $p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)"; |
|
| 1389 | + } else { |
|
| 1390 | + $p->code = "table_valeur($src, (string)$_nom, null)"; |
|
| 1391 | + } |
|
| 1392 | + } |
|
| 1393 | 1393 | |
| 1394 | - #$p->interdire_scripts = true; |
|
| 1394 | + #$p->interdire_scripts = true; |
|
| 1395 | 1395 | |
| 1396 | - return $p; |
|
| 1396 | + return $p; |
|
| 1397 | 1397 | } |
| 1398 | 1398 | |
| 1399 | 1399 | /** |
@@ -1423,16 +1423,16 @@ discard block |
||
| 1423 | 1423 | * Pile completée du code PHP d'exécution de la balise |
| 1424 | 1424 | */ |
| 1425 | 1425 | function balise_CONFIG_dist($p) { |
| 1426 | - if (!$arg = interprete_argument_balise(1, $p)) { |
|
| 1427 | - $arg = "''"; |
|
| 1428 | - } |
|
| 1429 | - $_sinon = interprete_argument_balise(2, $p); |
|
| 1430 | - $_unserialize = sinon(interprete_argument_balise(3, $p), 'false'); |
|
| 1426 | + if (!$arg = interprete_argument_balise(1, $p)) { |
|
| 1427 | + $arg = "''"; |
|
| 1428 | + } |
|
| 1429 | + $_sinon = interprete_argument_balise(2, $p); |
|
| 1430 | + $_unserialize = sinon(interprete_argument_balise(3, $p), 'false'); |
|
| 1431 | 1431 | |
| 1432 | - $p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' . |
|
| 1433 | - ($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')"; |
|
| 1432 | + $p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' . |
|
| 1433 | + ($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')"; |
|
| 1434 | 1434 | |
| 1435 | - return $p; |
|
| 1435 | + return $p; |
|
| 1436 | 1436 | } |
| 1437 | 1437 | |
| 1438 | 1438 | |
@@ -1455,10 +1455,10 @@ discard block |
||
| 1455 | 1455 | * Pile completée du code PHP d'exécution de la balise |
| 1456 | 1456 | */ |
| 1457 | 1457 | function balise_CONNECT_dist($p) { |
| 1458 | - $p->code = '($connect ? $connect : NULL)'; |
|
| 1459 | - $p->interdire_scripts = false; |
|
| 1458 | + $p->code = '($connect ? $connect : NULL)'; |
|
| 1459 | + $p->interdire_scripts = false; |
|
| 1460 | 1460 | |
| 1461 | - return $p; |
|
| 1461 | + return $p; |
|
| 1462 | 1462 | } |
| 1463 | 1463 | |
| 1464 | 1464 | |
@@ -1486,15 +1486,15 @@ discard block |
||
| 1486 | 1486 | * Pile completée du code PHP d'exécution de la balise |
| 1487 | 1487 | **/ |
| 1488 | 1488 | function balise_SESSION_dist($p) { |
| 1489 | - $p->descr['session'] = true; |
|
| 1489 | + $p->descr['session'] = true; |
|
| 1490 | 1490 | |
| 1491 | - $f = function_exists('balise_ENV') |
|
| 1492 | - ? 'balise_ENV' |
|
| 1493 | - : 'balise_ENV_dist'; |
|
| 1491 | + $f = function_exists('balise_ENV') |
|
| 1492 | + ? 'balise_ENV' |
|
| 1493 | + : 'balise_ENV_dist'; |
|
| 1494 | 1494 | |
| 1495 | - $p = $f($p, '$GLOBALS["visiteur_session"]??[]'); |
|
| 1495 | + $p = $f($p, '$GLOBALS["visiteur_session"]??[]'); |
|
| 1496 | 1496 | |
| 1497 | - return $p; |
|
| 1497 | + return $p; |
|
| 1498 | 1498 | } |
| 1499 | 1499 | |
| 1500 | 1500 | |
@@ -1517,18 +1517,18 @@ discard block |
||
| 1517 | 1517 | * Pile completée du code PHP d'exécution de la balise |
| 1518 | 1518 | **/ |
| 1519 | 1519 | function balise_SESSION_SET_dist($p) { |
| 1520 | - $_nom = interprete_argument_balise(1, $p); |
|
| 1521 | - $_val = interprete_argument_balise(2, $p); |
|
| 1522 | - if (!$_nom or !$_val) { |
|
| 1523 | - $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']]; |
|
| 1524 | - erreur_squelette($err_b_s_a, $p); |
|
| 1525 | - } else { |
|
| 1526 | - $p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))'; |
|
| 1527 | - } |
|
| 1520 | + $_nom = interprete_argument_balise(1, $p); |
|
| 1521 | + $_val = interprete_argument_balise(2, $p); |
|
| 1522 | + if (!$_nom or !$_val) { |
|
| 1523 | + $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']]; |
|
| 1524 | + erreur_squelette($err_b_s_a, $p); |
|
| 1525 | + } else { |
|
| 1526 | + $p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))'; |
|
| 1527 | + } |
|
| 1528 | 1528 | |
| 1529 | - $p->interdire_scripts = false; |
|
| 1529 | + $p->interdire_scripts = false; |
|
| 1530 | 1530 | |
| 1531 | - return $p; |
|
| 1531 | + return $p; |
|
| 1532 | 1532 | } |
| 1533 | 1533 | |
| 1534 | 1534 | |
@@ -1559,30 +1559,30 @@ discard block |
||
| 1559 | 1559 | * Pile completée du code PHP d'exécution de la balise |
| 1560 | 1560 | **/ |
| 1561 | 1561 | function balise_EVAL_dist($p) { |
| 1562 | - $php = interprete_argument_balise(1, $p); |
|
| 1563 | - if ($php) { |
|
| 1564 | - # optimisation sur les #EVAL{une expression sans #BALISE} |
|
| 1565 | - # attention au commentaire "// x signes" qui precede |
|
| 1566 | - if ( |
|
| 1567 | - preg_match( |
|
| 1568 | - ",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms", |
|
| 1569 | - $php, |
|
| 1570 | - $r |
|
| 1571 | - ) |
|
| 1572 | - ) { |
|
| 1573 | - $p->code = /* $r[1]. */ |
|
| 1574 | - '(' . $r[2] . ')'; |
|
| 1575 | - } else { |
|
| 1576 | - $p->code = "eval('return '.$php.';')"; |
|
| 1577 | - } |
|
| 1578 | - } else { |
|
| 1579 | - $msg = ['zbug_balise_sans_argument', ['balise' => ' EVAL']]; |
|
| 1580 | - erreur_squelette($msg, $p); |
|
| 1581 | - } |
|
| 1582 | - |
|
| 1583 | - #$p->interdire_scripts = true; |
|
| 1584 | - |
|
| 1585 | - return $p; |
|
| 1562 | + $php = interprete_argument_balise(1, $p); |
|
| 1563 | + if ($php) { |
|
| 1564 | + # optimisation sur les #EVAL{une expression sans #BALISE} |
|
| 1565 | + # attention au commentaire "// x signes" qui precede |
|
| 1566 | + if ( |
|
| 1567 | + preg_match( |
|
| 1568 | + ",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms", |
|
| 1569 | + $php, |
|
| 1570 | + $r |
|
| 1571 | + ) |
|
| 1572 | + ) { |
|
| 1573 | + $p->code = /* $r[1]. */ |
|
| 1574 | + '(' . $r[2] . ')'; |
|
| 1575 | + } else { |
|
| 1576 | + $p->code = "eval('return '.$php.';')"; |
|
| 1577 | + } |
|
| 1578 | + } else { |
|
| 1579 | + $msg = ['zbug_balise_sans_argument', ['balise' => ' EVAL']]; |
|
| 1580 | + erreur_squelette($msg, $p); |
|
| 1581 | + } |
|
| 1582 | + |
|
| 1583 | + #$p->interdire_scripts = true; |
|
| 1584 | + |
|
| 1585 | + return $p; |
|
| 1586 | 1586 | } |
| 1587 | 1587 | |
| 1588 | 1588 | |
@@ -1612,19 +1612,19 @@ discard block |
||
| 1612 | 1612 | **/ |
| 1613 | 1613 | function balise_CHAMP_SQL_dist($p) { |
| 1614 | 1614 | |
| 1615 | - if ( |
|
| 1616 | - $p->param |
|
| 1617 | - and isset($p->param[0][1][0]) |
|
| 1618 | - and $champ = ($p->param[0][1][0]->texte) |
|
| 1619 | - ) { |
|
| 1620 | - $p->code = champ_sql($champ, $p); |
|
| 1621 | - } else { |
|
| 1622 | - $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => ' CHAMP_SQL']]; |
|
| 1623 | - erreur_squelette($err_b_s_a, $p); |
|
| 1624 | - } |
|
| 1615 | + if ( |
|
| 1616 | + $p->param |
|
| 1617 | + and isset($p->param[0][1][0]) |
|
| 1618 | + and $champ = ($p->param[0][1][0]->texte) |
|
| 1619 | + ) { |
|
| 1620 | + $p->code = champ_sql($champ, $p); |
|
| 1621 | + } else { |
|
| 1622 | + $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => ' CHAMP_SQL']]; |
|
| 1623 | + erreur_squelette($err_b_s_a, $p); |
|
| 1624 | + } |
|
| 1625 | 1625 | |
| 1626 | - #$p->interdire_scripts = true; |
|
| 1627 | - return $p; |
|
| 1626 | + #$p->interdire_scripts = true; |
|
| 1627 | + return $p; |
|
| 1628 | 1628 | } |
| 1629 | 1629 | |
| 1630 | 1630 | /** |
@@ -1650,13 +1650,13 @@ discard block |
||
| 1650 | 1650 | * Pile complétée par le code à générer |
| 1651 | 1651 | **/ |
| 1652 | 1652 | function balise_VAL_dist($p) { |
| 1653 | - $p->code = interprete_argument_balise(1, $p); |
|
| 1654 | - if ($p->code === null || !strlen($p->code)) { |
|
| 1655 | - $p->code = "''"; |
|
| 1656 | - } |
|
| 1657 | - $p->interdire_scripts = false; |
|
| 1653 | + $p->code = interprete_argument_balise(1, $p); |
|
| 1654 | + if ($p->code === null || !strlen($p->code)) { |
|
| 1655 | + $p->code = "''"; |
|
| 1656 | + } |
|
| 1657 | + $p->interdire_scripts = false; |
|
| 1658 | 1658 | |
| 1659 | - return $p; |
|
| 1659 | + return $p; |
|
| 1660 | 1660 | } |
| 1661 | 1661 | |
| 1662 | 1662 | /** |
@@ -1685,10 +1685,10 @@ discard block |
||
| 1685 | 1685 | * Pile complétée par le code à générer |
| 1686 | 1686 | **/ |
| 1687 | 1687 | function balise_REM_dist($p) { |
| 1688 | - $p->code = "''"; |
|
| 1689 | - $p->interdire_scripts = false; |
|
| 1688 | + $p->code = "''"; |
|
| 1689 | + $p->interdire_scripts = false; |
|
| 1690 | 1690 | |
| 1691 | - return $p; |
|
| 1691 | + return $p; |
|
| 1692 | 1692 | } |
| 1693 | 1693 | |
| 1694 | 1694 | /** |
@@ -1698,10 +1698,10 @@ discard block |
||
| 1698 | 1698 | * @return mixed |
| 1699 | 1699 | */ |
| 1700 | 1700 | function balise_NULL_dist($p) { |
| 1701 | - $p->code = 'null'; |
|
| 1702 | - $p->interdire_scripts = false; |
|
| 1701 | + $p->code = 'null'; |
|
| 1702 | + $p->interdire_scripts = false; |
|
| 1703 | 1703 | |
| 1704 | - return $p; |
|
| 1704 | + return $p; |
|
| 1705 | 1705 | } |
| 1706 | 1706 | |
| 1707 | 1707 | |
@@ -1725,18 +1725,18 @@ discard block |
||
| 1725 | 1725 | **/ |
| 1726 | 1726 | function balise_HTTP_HEADER_dist($p) { |
| 1727 | 1727 | |
| 1728 | - $header = interprete_argument_balise(1, $p); |
|
| 1729 | - if (!$header) { |
|
| 1730 | - $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'HTTP_HEADER']]; |
|
| 1731 | - erreur_squelette($err_b_s_a, $p); |
|
| 1732 | - } else { |
|
| 1733 | - $p->code = "'<'.'?php header(' . _q(" |
|
| 1734 | - . $header |
|
| 1735 | - . ") . '); ?'.'>'"; |
|
| 1736 | - } |
|
| 1737 | - $p->interdire_scripts = false; |
|
| 1728 | + $header = interprete_argument_balise(1, $p); |
|
| 1729 | + if (!$header) { |
|
| 1730 | + $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'HTTP_HEADER']]; |
|
| 1731 | + erreur_squelette($err_b_s_a, $p); |
|
| 1732 | + } else { |
|
| 1733 | + $p->code = "'<'.'?php header(' . _q(" |
|
| 1734 | + . $header |
|
| 1735 | + . ") . '); ?'.'>'"; |
|
| 1736 | + } |
|
| 1737 | + $p->interdire_scripts = false; |
|
| 1738 | 1738 | |
| 1739 | - return $p; |
|
| 1739 | + return $p; |
|
| 1740 | 1740 | } |
| 1741 | 1741 | |
| 1742 | 1742 | |
@@ -1761,20 +1761,20 @@ discard block |
||
| 1761 | 1761 | * Pile complétée par le code à générer |
| 1762 | 1762 | **/ |
| 1763 | 1763 | function balise_FILTRE_dist($p) { |
| 1764 | - if ($p->param) { |
|
| 1765 | - $args = []; |
|
| 1766 | - foreach ($p->param as $i => $ignore) { |
|
| 1767 | - $args[] = interprete_argument_balise($i + 1, $p); |
|
| 1768 | - } |
|
| 1769 | - $p->code = "'<' . '" |
|
| 1770 | - . '?php header("X-Spip-Filtre: \'.' |
|
| 1771 | - . join('.\'|\'.', $args) |
|
| 1772 | - . " . '\"); ?'.'>'"; |
|
| 1764 | + if ($p->param) { |
|
| 1765 | + $args = []; |
|
| 1766 | + foreach ($p->param as $i => $ignore) { |
|
| 1767 | + $args[] = interprete_argument_balise($i + 1, $p); |
|
| 1768 | + } |
|
| 1769 | + $p->code = "'<' . '" |
|
| 1770 | + . '?php header("X-Spip-Filtre: \'.' |
|
| 1771 | + . join('.\'|\'.', $args) |
|
| 1772 | + . " . '\"); ?'.'>'"; |
|
| 1773 | 1773 | |
| 1774 | - $p->interdire_scripts = false; |
|
| 1774 | + $p->interdire_scripts = false; |
|
| 1775 | 1775 | |
| 1776 | - return $p; |
|
| 1777 | - } |
|
| 1776 | + return $p; |
|
| 1777 | + } |
|
| 1778 | 1778 | } |
| 1779 | 1779 | |
| 1780 | 1780 | |
@@ -1810,55 +1810,55 @@ discard block |
||
| 1810 | 1810 | **/ |
| 1811 | 1811 | function balise_CACHE_dist($p) { |
| 1812 | 1812 | |
| 1813 | - if ($p->param) { |
|
| 1814 | - $duree = valeur_numerique($p->param[0][1][0]->texte); |
|
| 1815 | - |
|
| 1816 | - // noter la duree du cache dans un entete proprietaire |
|
| 1817 | - |
|
| 1818 | - $code = "'<'.'" . '?php header("X-Spip-Cache: ' |
|
| 1819 | - . $duree |
|
| 1820 | - . '"); ?' . "'.'>'"; |
|
| 1821 | - |
|
| 1822 | - // Remplir le header Cache-Control |
|
| 1823 | - // cas #CACHE{0} |
|
| 1824 | - if ($duree == 0) { |
|
| 1825 | - $code .= ".'<'.'" |
|
| 1826 | - . '?php header("Cache-Control: no-cache, must-revalidate"); ?' |
|
| 1827 | - . "'.'><'.'" |
|
| 1828 | - . '?php header("Pragma: no-cache"); ?' |
|
| 1829 | - . "'.'>'"; |
|
| 1830 | - } |
|
| 1831 | - |
|
| 1832 | - // recuperer les parametres suivants |
|
| 1833 | - $i = 1; |
|
| 1834 | - while (isset($p->param[0][++$i])) { |
|
| 1835 | - $pa = ($p->param[0][$i][0]->texte); |
|
| 1836 | - |
|
| 1837 | - if ( |
|
| 1838 | - $pa == 'cache-client' |
|
| 1839 | - and $duree > 0 |
|
| 1840 | - ) { |
|
| 1841 | - $code .= ".'<'.'" . '?php header("Cache-Control: max-age=' |
|
| 1842 | - . $duree |
|
| 1843 | - . '"); ?' . "'.'>'"; |
|
| 1844 | - // il semble logique, si on cache-client, de ne pas invalider |
|
| 1845 | - $pa = 'statique'; |
|
| 1846 | - } |
|
| 1847 | - |
|
| 1848 | - if ( |
|
| 1849 | - $pa == 'statique' |
|
| 1850 | - and $duree > 0 |
|
| 1851 | - ) { |
|
| 1852 | - $code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'"; |
|
| 1853 | - } |
|
| 1854 | - } |
|
| 1855 | - } else { |
|
| 1856 | - $code = "''"; |
|
| 1857 | - } |
|
| 1858 | - $p->code = $code; |
|
| 1859 | - $p->interdire_scripts = false; |
|
| 1860 | - |
|
| 1861 | - return $p; |
|
| 1813 | + if ($p->param) { |
|
| 1814 | + $duree = valeur_numerique($p->param[0][1][0]->texte); |
|
| 1815 | + |
|
| 1816 | + // noter la duree du cache dans un entete proprietaire |
|
| 1817 | + |
|
| 1818 | + $code = "'<'.'" . '?php header("X-Spip-Cache: ' |
|
| 1819 | + . $duree |
|
| 1820 | + . '"); ?' . "'.'>'"; |
|
| 1821 | + |
|
| 1822 | + // Remplir le header Cache-Control |
|
| 1823 | + // cas #CACHE{0} |
|
| 1824 | + if ($duree == 0) { |
|
| 1825 | + $code .= ".'<'.'" |
|
| 1826 | + . '?php header("Cache-Control: no-cache, must-revalidate"); ?' |
|
| 1827 | + . "'.'><'.'" |
|
| 1828 | + . '?php header("Pragma: no-cache"); ?' |
|
| 1829 | + . "'.'>'"; |
|
| 1830 | + } |
|
| 1831 | + |
|
| 1832 | + // recuperer les parametres suivants |
|
| 1833 | + $i = 1; |
|
| 1834 | + while (isset($p->param[0][++$i])) { |
|
| 1835 | + $pa = ($p->param[0][$i][0]->texte); |
|
| 1836 | + |
|
| 1837 | + if ( |
|
| 1838 | + $pa == 'cache-client' |
|
| 1839 | + and $duree > 0 |
|
| 1840 | + ) { |
|
| 1841 | + $code .= ".'<'.'" . '?php header("Cache-Control: max-age=' |
|
| 1842 | + . $duree |
|
| 1843 | + . '"); ?' . "'.'>'"; |
|
| 1844 | + // il semble logique, si on cache-client, de ne pas invalider |
|
| 1845 | + $pa = 'statique'; |
|
| 1846 | + } |
|
| 1847 | + |
|
| 1848 | + if ( |
|
| 1849 | + $pa == 'statique' |
|
| 1850 | + and $duree > 0 |
|
| 1851 | + ) { |
|
| 1852 | + $code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'"; |
|
| 1853 | + } |
|
| 1854 | + } |
|
| 1855 | + } else { |
|
| 1856 | + $code = "''"; |
|
| 1857 | + } |
|
| 1858 | + $p->code = $code; |
|
| 1859 | + $p->interdire_scripts = false; |
|
| 1860 | + |
|
| 1861 | + return $p; |
|
| 1862 | 1862 | } |
| 1863 | 1863 | |
| 1864 | 1864 | |
@@ -1890,13 +1890,13 @@ discard block |
||
| 1890 | 1890 | * Pile complétée par le code à générer |
| 1891 | 1891 | */ |
| 1892 | 1892 | function balise_INSERT_HEAD_dist($p) { |
| 1893 | - $p->code = "'<'.'" |
|
| 1894 | - . '?php header("X-Spip-Filtre: insert_head_css_conditionnel"); ?' |
|
| 1895 | - . "'.'>'"; |
|
| 1896 | - $p->code .= ". pipeline('insert_head','<!-- insert_head -->')"; |
|
| 1897 | - $p->interdire_scripts = false; |
|
| 1893 | + $p->code = "'<'.'" |
|
| 1894 | + . '?php header("X-Spip-Filtre: insert_head_css_conditionnel"); ?' |
|
| 1895 | + . "'.'>'"; |
|
| 1896 | + $p->code .= ". pipeline('insert_head','<!-- insert_head -->')"; |
|
| 1897 | + $p->interdire_scripts = false; |
|
| 1898 | 1898 | |
| 1899 | - return $p; |
|
| 1899 | + return $p; |
|
| 1900 | 1900 | } |
| 1901 | 1901 | |
| 1902 | 1902 | /** |
@@ -1914,10 +1914,10 @@ discard block |
||
| 1914 | 1914 | * Pile complétée par le code à générer |
| 1915 | 1915 | */ |
| 1916 | 1916 | function balise_INSERT_HEAD_CSS_dist($p) { |
| 1917 | - $p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')"; |
|
| 1918 | - $p->interdire_scripts = false; |
|
| 1917 | + $p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')"; |
|
| 1918 | + $p->interdire_scripts = false; |
|
| 1919 | 1919 | |
| 1920 | - return $p; |
|
| 1920 | + return $p; |
|
| 1921 | 1921 | } |
| 1922 | 1922 | |
| 1923 | 1923 | /** |
@@ -1932,11 +1932,11 @@ discard block |
||
| 1932 | 1932 | * Pile complétée par le code à générer |
| 1933 | 1933 | **/ |
| 1934 | 1934 | function balise_INCLUDE_dist($p) { |
| 1935 | - if (function_exists('balise_INCLURE')) { |
|
| 1936 | - return balise_INCLURE($p); |
|
| 1937 | - } else { |
|
| 1938 | - return balise_INCLURE_dist($p); |
|
| 1939 | - } |
|
| 1935 | + if (function_exists('balise_INCLURE')) { |
|
| 1936 | + return balise_INCLURE($p); |
|
| 1937 | + } else { |
|
| 1938 | + return balise_INCLURE_dist($p); |
|
| 1939 | + } |
|
| 1940 | 1940 | } |
| 1941 | 1941 | |
| 1942 | 1942 | /** |
@@ -1970,66 +1970,66 @@ discard block |
||
| 1970 | 1970 | * Pile complétée par le code à générer |
| 1971 | 1971 | **/ |
| 1972 | 1972 | function balise_INCLURE_dist($p) { |
| 1973 | - $id_boucle = $p->id_boucle; |
|
| 1974 | - // la lang n'est pas passe de facon automatique par argumenter |
|
| 1975 | - // mais le sera pas recuperer_fond, sauf si etoile=>true est passe |
|
| 1976 | - // en option |
|
| 1977 | - |
|
| 1978 | - $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false); |
|
| 1979 | - |
|
| 1980 | - // erreur de syntaxe = fond absent |
|
| 1981 | - // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP |
|
| 1982 | - if (!$_contexte) { |
|
| 1983 | - $contexte = []; |
|
| 1984 | - } |
|
| 1985 | - |
|
| 1986 | - if (isset($_contexte['fond'])) { |
|
| 1987 | - $f = $_contexte['fond']; |
|
| 1988 | - // toujours vrai : |
|
| 1989 | - if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) { |
|
| 1990 | - $f = $r[1]; |
|
| 1991 | - unset($_contexte['fond']); |
|
| 1992 | - } else { |
|
| 1993 | - spip_log('compilation de #INCLURE a revoir'); |
|
| 1994 | - } |
|
| 1995 | - |
|
| 1996 | - // #INCLURE{doublons} |
|
| 1997 | - if (isset($_contexte['doublons'])) { |
|
| 1998 | - $_contexte['doublons'] = "'doublons' => \$doublons"; |
|
| 1999 | - } |
|
| 2000 | - |
|
| 2001 | - // Critere d'inclusion {env} (et {self} pour compatibilite ascendante) |
|
| 2002 | - $flag_env = false; |
|
| 2003 | - if (isset($_contexte['env']) or isset($_contexte['self'])) { |
|
| 2004 | - $flag_env = true; |
|
| 2005 | - unset($_contexte['env']); |
|
| 2006 | - } |
|
| 2007 | - |
|
| 2008 | - $_options = []; |
|
| 2009 | - if (isset($_contexte['ajax'])) { |
|
| 2010 | - $_options[] = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 2011 | - unset($_contexte['ajax']); |
|
| 2012 | - } |
|
| 2013 | - if ($p->etoile) { |
|
| 2014 | - $_options[] = "'etoile'=>true"; |
|
| 2015 | - } |
|
| 2016 | - $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')'; |
|
| 2017 | - |
|
| 2018 | - $_l = 'array(' . join(",\n\t", $_contexte) . ')'; |
|
| 2019 | - if ($flag_env) { |
|
| 2020 | - $_l = "array_merge(\$Pile[0],$_l)"; |
|
| 2021 | - } |
|
| 2022 | - |
|
| 2023 | - $p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "_request('connect') ?? ''"); |
|
| 2024 | - } elseif (!isset($_contexte[1])) { |
|
| 2025 | - $msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']]; |
|
| 2026 | - erreur_squelette($msg, $p); |
|
| 2027 | - } else { |
|
| 2028 | - $p->code = 'charge_scripts(' . $_contexte[1] . ',false)'; |
|
| 2029 | - } |
|
| 2030 | - |
|
| 2031 | - $p->interdire_scripts = false; // la securite est assuree par recuperer_fond |
|
| 2032 | - return $p; |
|
| 1973 | + $id_boucle = $p->id_boucle; |
|
| 1974 | + // la lang n'est pas passe de facon automatique par argumenter |
|
| 1975 | + // mais le sera pas recuperer_fond, sauf si etoile=>true est passe |
|
| 1976 | + // en option |
|
| 1977 | + |
|
| 1978 | + $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false); |
|
| 1979 | + |
|
| 1980 | + // erreur de syntaxe = fond absent |
|
| 1981 | + // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP |
|
| 1982 | + if (!$_contexte) { |
|
| 1983 | + $contexte = []; |
|
| 1984 | + } |
|
| 1985 | + |
|
| 1986 | + if (isset($_contexte['fond'])) { |
|
| 1987 | + $f = $_contexte['fond']; |
|
| 1988 | + // toujours vrai : |
|
| 1989 | + if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) { |
|
| 1990 | + $f = $r[1]; |
|
| 1991 | + unset($_contexte['fond']); |
|
| 1992 | + } else { |
|
| 1993 | + spip_log('compilation de #INCLURE a revoir'); |
|
| 1994 | + } |
|
| 1995 | + |
|
| 1996 | + // #INCLURE{doublons} |
|
| 1997 | + if (isset($_contexte['doublons'])) { |
|
| 1998 | + $_contexte['doublons'] = "'doublons' => \$doublons"; |
|
| 1999 | + } |
|
| 2000 | + |
|
| 2001 | + // Critere d'inclusion {env} (et {self} pour compatibilite ascendante) |
|
| 2002 | + $flag_env = false; |
|
| 2003 | + if (isset($_contexte['env']) or isset($_contexte['self'])) { |
|
| 2004 | + $flag_env = true; |
|
| 2005 | + unset($_contexte['env']); |
|
| 2006 | + } |
|
| 2007 | + |
|
| 2008 | + $_options = []; |
|
| 2009 | + if (isset($_contexte['ajax'])) { |
|
| 2010 | + $_options[] = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 2011 | + unset($_contexte['ajax']); |
|
| 2012 | + } |
|
| 2013 | + if ($p->etoile) { |
|
| 2014 | + $_options[] = "'etoile'=>true"; |
|
| 2015 | + } |
|
| 2016 | + $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')'; |
|
| 2017 | + |
|
| 2018 | + $_l = 'array(' . join(",\n\t", $_contexte) . ')'; |
|
| 2019 | + if ($flag_env) { |
|
| 2020 | + $_l = "array_merge(\$Pile[0],$_l)"; |
|
| 2021 | + } |
|
| 2022 | + |
|
| 2023 | + $p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "_request('connect') ?? ''"); |
|
| 2024 | + } elseif (!isset($_contexte[1])) { |
|
| 2025 | + $msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']]; |
|
| 2026 | + erreur_squelette($msg, $p); |
|
| 2027 | + } else { |
|
| 2028 | + $p->code = 'charge_scripts(' . $_contexte[1] . ',false)'; |
|
| 2029 | + } |
|
| 2030 | + |
|
| 2031 | + $p->interdire_scripts = false; // la securite est assuree par recuperer_fond |
|
| 2032 | + return $p; |
|
| 2033 | 2033 | } |
| 2034 | 2034 | |
| 2035 | 2035 | |
@@ -2057,69 +2057,69 @@ discard block |
||
| 2057 | 2057 | **/ |
| 2058 | 2058 | function balise_MODELE_dist($p) { |
| 2059 | 2059 | |
| 2060 | - $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false); |
|
| 2061 | - |
|
| 2062 | - // erreur de syntaxe = fond absent |
|
| 2063 | - // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP |
|
| 2064 | - if (!$_contexte) { |
|
| 2065 | - $_contexte = []; |
|
| 2066 | - } |
|
| 2067 | - |
|
| 2068 | - if (!isset($_contexte[1])) { |
|
| 2069 | - $msg = ['zbug_balise_sans_argument', ['balise' => ' MODELE']]; |
|
| 2070 | - erreur_squelette($msg, $p); |
|
| 2071 | - } else { |
|
| 2072 | - $nom = $_contexte[1]; |
|
| 2073 | - unset($_contexte[1]); |
|
| 2074 | - |
|
| 2075 | - if (preg_match("/^\s*'[^']*'/s", $nom)) { |
|
| 2076 | - $nom = "'modeles/" . substr($nom, 1); |
|
| 2077 | - } else { |
|
| 2078 | - $nom = "'modeles/' . $nom"; |
|
| 2079 | - } |
|
| 2080 | - |
|
| 2081 | - $flag_env = false; |
|
| 2082 | - if (isset($_contexte['env'])) { |
|
| 2083 | - $flag_env = true; |
|
| 2084 | - unset($_contexte['env']); |
|
| 2085 | - } |
|
| 2086 | - |
|
| 2087 | - // Incoherence dans la syntaxe du contexte. A revoir. |
|
| 2088 | - // Reserver la cle primaire de la boucle courante si elle existe |
|
| 2089 | - if (isset($p->boucles[$p->id_boucle]->primary)) { |
|
| 2090 | - $primary = $p->boucles[$p->id_boucle]->primary; |
|
| 2091 | - if (!strpos($primary, ',')) { |
|
| 2092 | - $id = champ_sql($primary, $p); |
|
| 2093 | - $_contexte[] = "'$primary'=>" . $id; |
|
| 2094 | - $_contexte[] = "'id'=>" . $id; |
|
| 2095 | - } |
|
| 2096 | - } |
|
| 2097 | - $_contexte[] = "'recurs'=>(++\$recurs)"; |
|
| 2098 | - $connect = ''; |
|
| 2099 | - if (isset($p->boucles[$p->id_boucle])) { |
|
| 2100 | - $connect = $p->boucles[$p->id_boucle]->sql_serveur; |
|
| 2101 | - } |
|
| 2102 | - |
|
| 2103 | - $_options = memoriser_contexte_compil($p); |
|
| 2104 | - $_options = "'compil'=>array($_options), 'trim'=>true"; |
|
| 2105 | - if (isset($_contexte['ajax'])) { |
|
| 2106 | - $_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 2107 | - unset($_contexte['ajax']); |
|
| 2108 | - } |
|
| 2109 | - |
|
| 2110 | - $_l = 'array(' . join(",\n\t", $_contexte) . ')'; |
|
| 2111 | - if ($flag_env) { |
|
| 2112 | - $_l = "array_merge(\$Pile[0],$_l)"; |
|
| 2113 | - } |
|
| 2114 | - |
|
| 2115 | - $page = sprintf(CODE_RECUPERER_FOND, $nom, $_l, $_options, _q($connect)); |
|
| 2116 | - |
|
| 2117 | - $p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n"; |
|
| 2118 | - |
|
| 2119 | - $p->interdire_scripts = false; // securite assuree par le squelette |
|
| 2120 | - } |
|
| 2121 | - |
|
| 2122 | - return $p; |
|
| 2060 | + $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false); |
|
| 2061 | + |
|
| 2062 | + // erreur de syntaxe = fond absent |
|
| 2063 | + // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP |
|
| 2064 | + if (!$_contexte) { |
|
| 2065 | + $_contexte = []; |
|
| 2066 | + } |
|
| 2067 | + |
|
| 2068 | + if (!isset($_contexte[1])) { |
|
| 2069 | + $msg = ['zbug_balise_sans_argument', ['balise' => ' MODELE']]; |
|
| 2070 | + erreur_squelette($msg, $p); |
|
| 2071 | + } else { |
|
| 2072 | + $nom = $_contexte[1]; |
|
| 2073 | + unset($_contexte[1]); |
|
| 2074 | + |
|
| 2075 | + if (preg_match("/^\s*'[^']*'/s", $nom)) { |
|
| 2076 | + $nom = "'modeles/" . substr($nom, 1); |
|
| 2077 | + } else { |
|
| 2078 | + $nom = "'modeles/' . $nom"; |
|
| 2079 | + } |
|
| 2080 | + |
|
| 2081 | + $flag_env = false; |
|
| 2082 | + if (isset($_contexte['env'])) { |
|
| 2083 | + $flag_env = true; |
|
| 2084 | + unset($_contexte['env']); |
|
| 2085 | + } |
|
| 2086 | + |
|
| 2087 | + // Incoherence dans la syntaxe du contexte. A revoir. |
|
| 2088 | + // Reserver la cle primaire de la boucle courante si elle existe |
|
| 2089 | + if (isset($p->boucles[$p->id_boucle]->primary)) { |
|
| 2090 | + $primary = $p->boucles[$p->id_boucle]->primary; |
|
| 2091 | + if (!strpos($primary, ',')) { |
|
| 2092 | + $id = champ_sql($primary, $p); |
|
| 2093 | + $_contexte[] = "'$primary'=>" . $id; |
|
| 2094 | + $_contexte[] = "'id'=>" . $id; |
|
| 2095 | + } |
|
| 2096 | + } |
|
| 2097 | + $_contexte[] = "'recurs'=>(++\$recurs)"; |
|
| 2098 | + $connect = ''; |
|
| 2099 | + if (isset($p->boucles[$p->id_boucle])) { |
|
| 2100 | + $connect = $p->boucles[$p->id_boucle]->sql_serveur; |
|
| 2101 | + } |
|
| 2102 | + |
|
| 2103 | + $_options = memoriser_contexte_compil($p); |
|
| 2104 | + $_options = "'compil'=>array($_options), 'trim'=>true"; |
|
| 2105 | + if (isset($_contexte['ajax'])) { |
|
| 2106 | + $_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']); |
|
| 2107 | + unset($_contexte['ajax']); |
|
| 2108 | + } |
|
| 2109 | + |
|
| 2110 | + $_l = 'array(' . join(",\n\t", $_contexte) . ')'; |
|
| 2111 | + if ($flag_env) { |
|
| 2112 | + $_l = "array_merge(\$Pile[0],$_l)"; |
|
| 2113 | + } |
|
| 2114 | + |
|
| 2115 | + $page = sprintf(CODE_RECUPERER_FOND, $nom, $_l, $_options, _q($connect)); |
|
| 2116 | + |
|
| 2117 | + $p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n"; |
|
| 2118 | + |
|
| 2119 | + $p->interdire_scripts = false; // securite assuree par le squelette |
|
| 2120 | + } |
|
| 2121 | + |
|
| 2122 | + return $p; |
|
| 2123 | 2123 | } |
| 2124 | 2124 | |
| 2125 | 2125 | |
@@ -2143,21 +2143,21 @@ discard block |
||
| 2143 | 2143 | * Pile complétée par le code à générer |
| 2144 | 2144 | **/ |
| 2145 | 2145 | function balise_SET_dist($p) { |
| 2146 | - $_nom = interprete_argument_balise(1, $p); |
|
| 2147 | - $_val = interprete_argument_balise(2, $p); |
|
| 2146 | + $_nom = interprete_argument_balise(1, $p); |
|
| 2147 | + $_val = interprete_argument_balise(2, $p); |
|
| 2148 | 2148 | |
| 2149 | - if (!$_nom or !$_val) { |
|
| 2150 | - $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SET']]; |
|
| 2151 | - erreur_squelette($err_b_s_a, $p); |
|
| 2152 | - } |
|
| 2153 | - // affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4 |
|
| 2154 | - // cf https://bugs.php.net/bug.php?id=65845 |
|
| 2155 | - else { |
|
| 2156 | - $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)"; |
|
| 2157 | - } |
|
| 2149 | + if (!$_nom or !$_val) { |
|
| 2150 | + $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SET']]; |
|
| 2151 | + erreur_squelette($err_b_s_a, $p); |
|
| 2152 | + } |
|
| 2153 | + // affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4 |
|
| 2154 | + // cf https://bugs.php.net/bug.php?id=65845 |
|
| 2155 | + else { |
|
| 2156 | + $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)"; |
|
| 2157 | + } |
|
| 2158 | 2158 | |
| 2159 | - $p->interdire_scripts = false; // la balise ne renvoie rien |
|
| 2160 | - return $p; |
|
| 2159 | + $p->interdire_scripts = false; // la balise ne renvoie rien |
|
| 2160 | + return $p; |
|
| 2161 | 2161 | } |
| 2162 | 2162 | |
| 2163 | 2163 | |
@@ -2187,12 +2187,12 @@ discard block |
||
| 2187 | 2187 | * Pile complétée par le code à générer |
| 2188 | 2188 | **/ |
| 2189 | 2189 | function balise_GET_dist($p) { |
| 2190 | - $p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance |
|
| 2191 | - if (function_exists('balise_ENV')) { |
|
| 2192 | - return balise_ENV($p, '$Pile["vars"]??[]'); |
|
| 2193 | - } else { |
|
| 2194 | - return balise_ENV_dist($p, '$Pile["vars"]??[]'); |
|
| 2195 | - } |
|
| 2190 | + $p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance |
|
| 2191 | + if (function_exists('balise_ENV')) { |
|
| 2192 | + return balise_ENV($p, '$Pile["vars"]??[]'); |
|
| 2193 | + } else { |
|
| 2194 | + return balise_ENV_dist($p, '$Pile["vars"]??[]'); |
|
| 2195 | + } |
|
| 2196 | 2196 | } |
| 2197 | 2197 | |
| 2198 | 2198 | |
@@ -2215,22 +2215,22 @@ discard block |
||
| 2215 | 2215 | * Pile complétée par le code à générer |
| 2216 | 2216 | **/ |
| 2217 | 2217 | function balise_DOUBLONS_dist($p) { |
| 2218 | - if ($type = interprete_argument_balise(1, $p)) { |
|
| 2219 | - if ($famille = interprete_argument_balise(2, $p)) { |
|
| 2220 | - $type .= '.' . $famille; |
|
| 2221 | - } |
|
| 2222 | - $p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")'; |
|
| 2223 | - if (!$p->etoile) { |
|
| 2224 | - $p->code = 'array_filter(array_map("intval",explode(",",' |
|
| 2225 | - . $p->code . ')))'; |
|
| 2226 | - } |
|
| 2227 | - } else { |
|
| 2228 | - $p->code = '$doublons'; |
|
| 2229 | - } |
|
| 2218 | + if ($type = interprete_argument_balise(1, $p)) { |
|
| 2219 | + if ($famille = interprete_argument_balise(2, $p)) { |
|
| 2220 | + $type .= '.' . $famille; |
|
| 2221 | + } |
|
| 2222 | + $p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")'; |
|
| 2223 | + if (!$p->etoile) { |
|
| 2224 | + $p->code = 'array_filter(array_map("intval",explode(",",' |
|
| 2225 | + . $p->code . ')))'; |
|
| 2226 | + } |
|
| 2227 | + } else { |
|
| 2228 | + $p->code = '$doublons'; |
|
| 2229 | + } |
|
| 2230 | 2230 | |
| 2231 | - $p->interdire_scripts = false; |
|
| 2231 | + $p->interdire_scripts = false; |
|
| 2232 | 2232 | |
| 2233 | - return $p; |
|
| 2233 | + return $p; |
|
| 2234 | 2234 | } |
| 2235 | 2235 | |
| 2236 | 2236 | |
@@ -2253,18 +2253,18 @@ discard block |
||
| 2253 | 2253 | * Pile complétée par le code à générer |
| 2254 | 2254 | **/ |
| 2255 | 2255 | function balise_PIPELINE_dist($p) { |
| 2256 | - $_pipe = interprete_argument_balise(1, $p); |
|
| 2257 | - if (!$_pipe) { |
|
| 2258 | - $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']]; |
|
| 2259 | - erreur_squelette($err_b_s_a, $p); |
|
| 2260 | - } else { |
|
| 2261 | - $_flux = interprete_argument_balise(2, $p); |
|
| 2262 | - $_flux = $_flux ?: "''"; |
|
| 2263 | - $p->code = "pipeline( $_pipe , $_flux )"; |
|
| 2264 | - $p->interdire_scripts = false; |
|
| 2265 | - } |
|
| 2256 | + $_pipe = interprete_argument_balise(1, $p); |
|
| 2257 | + if (!$_pipe) { |
|
| 2258 | + $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']]; |
|
| 2259 | + erreur_squelette($err_b_s_a, $p); |
|
| 2260 | + } else { |
|
| 2261 | + $_flux = interprete_argument_balise(2, $p); |
|
| 2262 | + $_flux = $_flux ?: "''"; |
|
| 2263 | + $p->code = "pipeline( $_pipe , $_flux )"; |
|
| 2264 | + $p->interdire_scripts = false; |
|
| 2265 | + } |
|
| 2266 | 2266 | |
| 2267 | - return $p; |
|
| 2267 | + return $p; |
|
| 2268 | 2268 | } |
| 2269 | 2269 | |
| 2270 | 2270 | |
@@ -2289,10 +2289,10 @@ discard block |
||
| 2289 | 2289 | * Pile complétée par le code à générer |
| 2290 | 2290 | **/ |
| 2291 | 2291 | function balise_EDIT_dist($p) { |
| 2292 | - $p->code = "''"; |
|
| 2293 | - $p->interdire_scripts = false; |
|
| 2292 | + $p->code = "''"; |
|
| 2293 | + $p->interdire_scripts = false; |
|
| 2294 | 2294 | |
| 2295 | - return $p; |
|
| 2295 | + return $p; |
|
| 2296 | 2296 | } |
| 2297 | 2297 | |
| 2298 | 2298 | |
@@ -2315,11 +2315,11 @@ discard block |
||
| 2315 | 2315 | * Pile complétée par le code à générer |
| 2316 | 2316 | **/ |
| 2317 | 2317 | function balise_TOTAL_UNIQUE_dist($p) { |
| 2318 | - $_famille = interprete_argument_balise(1, $p); |
|
| 2319 | - $_famille = $_famille ?: "''"; |
|
| 2320 | - $p->code = "unique('', $_famille, true)"; |
|
| 2318 | + $_famille = interprete_argument_balise(1, $p); |
|
| 2319 | + $_famille = $_famille ?: "''"; |
|
| 2320 | + $p->code = "unique('', $_famille, true)"; |
|
| 2321 | 2321 | |
| 2322 | - return $p; |
|
| 2322 | + return $p; |
|
| 2323 | 2323 | } |
| 2324 | 2324 | |
| 2325 | 2325 | /** |
@@ -2342,19 +2342,19 @@ discard block |
||
| 2342 | 2342 | * Pile complétée par le code à générer |
| 2343 | 2343 | **/ |
| 2344 | 2344 | function balise_ARRAY_dist($p) { |
| 2345 | - $_code = []; |
|
| 2346 | - $n = 1; |
|
| 2347 | - do { |
|
| 2348 | - $_key = interprete_argument_balise($n++, $p); |
|
| 2349 | - $_val = interprete_argument_balise($n++, $p); |
|
| 2350 | - if ($_key and $_val) { |
|
| 2351 | - $_code[] = "$_key => $_val"; |
|
| 2352 | - } |
|
| 2353 | - } while ($_key && $_val); |
|
| 2354 | - $p->code = 'array(' . join(', ', $_code) . ')'; |
|
| 2355 | - $p->interdire_scripts = false; |
|
| 2345 | + $_code = []; |
|
| 2346 | + $n = 1; |
|
| 2347 | + do { |
|
| 2348 | + $_key = interprete_argument_balise($n++, $p); |
|
| 2349 | + $_val = interprete_argument_balise($n++, $p); |
|
| 2350 | + if ($_key and $_val) { |
|
| 2351 | + $_code[] = "$_key => $_val"; |
|
| 2352 | + } |
|
| 2353 | + } while ($_key && $_val); |
|
| 2354 | + $p->code = 'array(' . join(', ', $_code) . ')'; |
|
| 2355 | + $p->interdire_scripts = false; |
|
| 2356 | 2356 | |
| 2357 | - return $p; |
|
| 2357 | + return $p; |
|
| 2358 | 2358 | } |
| 2359 | 2359 | |
| 2360 | 2360 | /** |
@@ -2373,15 +2373,15 @@ discard block |
||
| 2373 | 2373 | * Pile complétée par le code à générer |
| 2374 | 2374 | */ |
| 2375 | 2375 | function balise_LISTE_dist($p) { |
| 2376 | - $_code = []; |
|
| 2377 | - $n = 1; |
|
| 2378 | - while ($_val = interprete_argument_balise($n++, $p)) { |
|
| 2379 | - $_code[] = $_val; |
|
| 2380 | - } |
|
| 2381 | - $p->code = 'array(' . join(', ', $_code) . ')'; |
|
| 2382 | - $p->interdire_scripts = false; |
|
| 2376 | + $_code = []; |
|
| 2377 | + $n = 1; |
|
| 2378 | + while ($_val = interprete_argument_balise($n++, $p)) { |
|
| 2379 | + $_code[] = $_val; |
|
| 2380 | + } |
|
| 2381 | + $p->code = 'array(' . join(', ', $_code) . ')'; |
|
| 2382 | + $p->interdire_scripts = false; |
|
| 2383 | 2383 | |
| 2384 | - return $p; |
|
| 2384 | + return $p; |
|
| 2385 | 2385 | } |
| 2386 | 2386 | |
| 2387 | 2387 | |
@@ -2415,21 +2415,21 @@ discard block |
||
| 2415 | 2415 | * Pile complétée par le code à générer |
| 2416 | 2416 | **/ |
| 2417 | 2417 | function balise_AUTORISER_dist($p) { |
| 2418 | - $_code = []; |
|
| 2419 | - $p->descr['session'] = true; // faire un cache par session |
|
| 2418 | + $_code = []; |
|
| 2419 | + $p->descr['session'] = true; // faire un cache par session |
|
| 2420 | 2420 | |
| 2421 | - $n = 1; |
|
| 2422 | - while ($_v = interprete_argument_balise($n++, $p)) { |
|
| 2423 | - $_code[] = $_v; |
|
| 2424 | - } |
|
| 2421 | + $n = 1; |
|
| 2422 | + while ($_v = interprete_argument_balise($n++, $p)) { |
|
| 2423 | + $_code[] = $_v; |
|
| 2424 | + } |
|
| 2425 | 2425 | |
| 2426 | - $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join( |
|
| 2427 | - ', ', |
|
| 2428 | - $_code |
|
| 2429 | - ) . ')?" ":"")'; |
|
| 2430 | - $p->interdire_scripts = false; |
|
| 2426 | + $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join( |
|
| 2427 | + ', ', |
|
| 2428 | + $_code |
|
| 2429 | + ) . ')?" ":"")'; |
|
| 2430 | + $p->interdire_scripts = false; |
|
| 2431 | 2431 | |
| 2432 | - return $p; |
|
| 2432 | + return $p; |
|
| 2433 | 2433 | } |
| 2434 | 2434 | |
| 2435 | 2435 | |
@@ -2453,15 +2453,15 @@ discard block |
||
| 2453 | 2453 | * Pile complétée par le code à générer |
| 2454 | 2454 | **/ |
| 2455 | 2455 | function balise_PLUGIN_dist($p) { |
| 2456 | - $plugin = interprete_argument_balise(1, $p); |
|
| 2457 | - $plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""'; |
|
| 2458 | - $type_info = interprete_argument_balise(2, $p); |
|
| 2459 | - $type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"'; |
|
| 2456 | + $plugin = interprete_argument_balise(1, $p); |
|
| 2457 | + $plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""'; |
|
| 2458 | + $type_info = interprete_argument_balise(2, $p); |
|
| 2459 | + $type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"'; |
|
| 2460 | 2460 | |
| 2461 | - $f = chercher_filtre('info_plugin'); |
|
| 2462 | - $p->code = $f . '(' . $plugin . ', ' . $type_info . ')'; |
|
| 2461 | + $f = chercher_filtre('info_plugin'); |
|
| 2462 | + $p->code = $f . '(' . $plugin . ', ' . $type_info . ')'; |
|
| 2463 | 2463 | |
| 2464 | - return $p; |
|
| 2464 | + return $p; |
|
| 2465 | 2465 | } |
| 2466 | 2466 | |
| 2467 | 2467 | /** |
@@ -2482,9 +2482,9 @@ discard block |
||
| 2482 | 2482 | * Pile complétée par le code à générer |
| 2483 | 2483 | **/ |
| 2484 | 2484 | function balise_AIDER_dist($p) { |
| 2485 | - $_motif = interprete_argument_balise(1, $p); |
|
| 2486 | - $p->code = "((\$aider=charger_fonction('aide','inc',true))?\$aider($_motif):'')"; |
|
| 2487 | - return $p; |
|
| 2485 | + $_motif = interprete_argument_balise(1, $p); |
|
| 2486 | + $p->code = "((\$aider=charger_fonction('aide','inc',true))?\$aider($_motif):'')"; |
|
| 2487 | + return $p; |
|
| 2488 | 2488 | } |
| 2489 | 2489 | |
| 2490 | 2490 | /** |
@@ -2510,16 +2510,16 @@ discard block |
||
| 2510 | 2510 | * Pile complétée par le code à générer |
| 2511 | 2511 | **/ |
| 2512 | 2512 | function balise_ACTION_FORMULAIRE($p) { |
| 2513 | - if (!$_url = interprete_argument_balise(1, $p)) { |
|
| 2514 | - $_url = "(\$Pile[0]['action'] ?? '')"; |
|
| 2515 | - } |
|
| 2516 | - if (!$_form = interprete_argument_balise(2, $p)) { |
|
| 2517 | - $_form = "(\$Pile[0]['form'] ?? '')"; |
|
| 2518 | - } |
|
| 2519 | - |
|
| 2520 | - // envoyer le nom du formulaire que l'on traite |
|
| 2521 | - // transmettre les eventuels args de la balise formulaire |
|
| 2522 | - $p->code = " '<span class=\"form-hidden\">' . |
|
| 2513 | + if (!$_url = interprete_argument_balise(1, $p)) { |
|
| 2514 | + $_url = "(\$Pile[0]['action'] ?? '')"; |
|
| 2515 | + } |
|
| 2516 | + if (!$_form = interprete_argument_balise(2, $p)) { |
|
| 2517 | + $_form = "(\$Pile[0]['form'] ?? '')"; |
|
| 2518 | + } |
|
| 2519 | + |
|
| 2520 | + // envoyer le nom du formulaire que l'on traite |
|
| 2521 | + // transmettre les eventuels args de la balise formulaire |
|
| 2522 | + $p->code = " '<span class=\"form-hidden\">' . |
|
| 2523 | 2523 | form_hidden($_url) . |
| 2524 | 2524 | '<input name=\'formulaire_action\' type=\'hidden\' |
| 2525 | 2525 | value=\'' . $_form . '\' />' . |
@@ -2530,9 +2530,9 @@ discard block |
||
| 2530 | 2530 | (\$Pile[0]['_hidden'] ?? '') . |
| 2531 | 2531 | '</span>'"; |
| 2532 | 2532 | |
| 2533 | - $p->interdire_scripts = false; |
|
| 2533 | + $p->interdire_scripts = false; |
|
| 2534 | 2534 | |
| 2535 | - return $p; |
|
| 2535 | + return $p; |
|
| 2536 | 2536 | } |
| 2537 | 2537 | |
| 2538 | 2538 | |
@@ -2573,25 +2573,25 @@ discard block |
||
| 2573 | 2573 | */ |
| 2574 | 2574 | function balise_BOUTON_ACTION_dist($p) { |
| 2575 | 2575 | |
| 2576 | - $args = []; |
|
| 2577 | - for ($k = 1; $k <= 6; $k++) { |
|
| 2578 | - $_a = interprete_argument_balise($k, $p); |
|
| 2579 | - if (!$_a) { |
|
| 2580 | - $_a = "''"; |
|
| 2581 | - } |
|
| 2582 | - $args[] = $_a; |
|
| 2583 | - } |
|
| 2584 | - // supprimer les args vides |
|
| 2585 | - while (end($args) == "''" and count($args) > 2) { |
|
| 2586 | - array_pop($args); |
|
| 2587 | - } |
|
| 2588 | - $args = implode(',', $args); |
|
| 2576 | + $args = []; |
|
| 2577 | + for ($k = 1; $k <= 6; $k++) { |
|
| 2578 | + $_a = interprete_argument_balise($k, $p); |
|
| 2579 | + if (!$_a) { |
|
| 2580 | + $_a = "''"; |
|
| 2581 | + } |
|
| 2582 | + $args[] = $_a; |
|
| 2583 | + } |
|
| 2584 | + // supprimer les args vides |
|
| 2585 | + while (end($args) == "''" and count($args) > 2) { |
|
| 2586 | + array_pop($args); |
|
| 2587 | + } |
|
| 2588 | + $args = implode(',', $args); |
|
| 2589 | 2589 | |
| 2590 | - $bouton_action = chercher_filtre('bouton_action'); |
|
| 2591 | - $p->code = "$bouton_action($args)"; |
|
| 2592 | - $p->interdire_scripts = false; |
|
| 2590 | + $bouton_action = chercher_filtre('bouton_action'); |
|
| 2591 | + $p->code = "$bouton_action($args)"; |
|
| 2592 | + $p->interdire_scripts = false; |
|
| 2593 | 2593 | |
| 2594 | - return $p; |
|
| 2594 | + return $p; |
|
| 2595 | 2595 | } |
| 2596 | 2596 | |
| 2597 | 2597 | |
@@ -2610,10 +2610,10 @@ discard block |
||
| 2610 | 2610 | * Pile complétée par le code à générer |
| 2611 | 2611 | */ |
| 2612 | 2612 | function balise_SLOGAN_SITE_SPIP_dist($p) { |
| 2613 | - $p->code = "\$GLOBALS['meta']['slogan_site']"; |
|
| 2613 | + $p->code = "\$GLOBALS['meta']['slogan_site']"; |
|
| 2614 | 2614 | |
| 2615 | - #$p->interdire_scripts = true; |
|
| 2616 | - return $p; |
|
| 2615 | + #$p->interdire_scripts = true; |
|
| 2616 | + return $p; |
|
| 2617 | 2617 | } |
| 2618 | 2618 | |
| 2619 | 2619 | |
@@ -2637,10 +2637,10 @@ discard block |
||
| 2637 | 2637 | * Pile complétée par le code à générer |
| 2638 | 2638 | */ |
| 2639 | 2639 | function balise_HTML5_dist($p) { |
| 2640 | - $p->code = html5_permis() ? "' '" : "''"; |
|
| 2641 | - $p->interdire_scripts = false; |
|
| 2640 | + $p->code = html5_permis() ? "' '" : "''"; |
|
| 2641 | + $p->interdire_scripts = false; |
|
| 2642 | 2642 | |
| 2643 | - return $p; |
|
| 2643 | + return $p; |
|
| 2644 | 2644 | } |
| 2645 | 2645 | |
| 2646 | 2646 | |
@@ -2666,61 +2666,61 @@ discard block |
||
| 2666 | 2666 | * Pile complétée par le code à générer |
| 2667 | 2667 | */ |
| 2668 | 2668 | function balise_TRI_dist($p, $liste = 'true') { |
| 2669 | - $b = index_boucle_mere($p); |
|
| 2670 | - // s'il n'y a pas de nom de boucle, on ne peut pas trier |
|
| 2671 | - if ($b === '') { |
|
| 2672 | - $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 2673 | - erreur_squelette($msg, $p); |
|
| 2674 | - $p->code = "''"; |
|
| 2669 | + $b = index_boucle_mere($p); |
|
| 2670 | + // s'il n'y a pas de nom de boucle, on ne peut pas trier |
|
| 2671 | + if ($b === '') { |
|
| 2672 | + $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]]; |
|
| 2673 | + erreur_squelette($msg, $p); |
|
| 2674 | + $p->code = "''"; |
|
| 2675 | 2675 | |
| 2676 | - return $p; |
|
| 2677 | - } |
|
| 2678 | - $boucle = $p->boucles[$b]; |
|
| 2676 | + return $p; |
|
| 2677 | + } |
|
| 2678 | + $boucle = $p->boucles[$b]; |
|
| 2679 | 2679 | |
| 2680 | - // s'il n'y a pas de tri_champ, c'est qu'on se trouve |
|
| 2681 | - // dans un boucle recursive ou qu'on a oublie le critere {tri} |
|
| 2682 | - if (!isset($boucle->modificateur['tri_champ'])) { |
|
| 2683 | - $msg = ['zbug_champ_hors_critere', [ |
|
| 2684 | - 'champ' => zbug_presenter_champ($p), |
|
| 2685 | - 'critere' => 'tri' |
|
| 2686 | - ]]; |
|
| 2687 | - erreur_squelette($msg, $p); |
|
| 2688 | - $p->code = "''"; |
|
| 2680 | + // s'il n'y a pas de tri_champ, c'est qu'on se trouve |
|
| 2681 | + // dans un boucle recursive ou qu'on a oublie le critere {tri} |
|
| 2682 | + if (!isset($boucle->modificateur['tri_champ'])) { |
|
| 2683 | + $msg = ['zbug_champ_hors_critere', [ |
|
| 2684 | + 'champ' => zbug_presenter_champ($p), |
|
| 2685 | + 'critere' => 'tri' |
|
| 2686 | + ]]; |
|
| 2687 | + erreur_squelette($msg, $p); |
|
| 2688 | + $p->code = "''"; |
|
| 2689 | 2689 | |
| 2690 | - return $p; |
|
| 2691 | - } |
|
| 2690 | + return $p; |
|
| 2691 | + } |
|
| 2692 | 2692 | |
| 2693 | - $_champ = interprete_argument_balise(1, $p); |
|
| 2694 | - // si pas de champ, renvoyer le critere de tri utilise |
|
| 2695 | - if (!$_champ) { |
|
| 2696 | - $p->code = $boucle->modificateur['tri_champ']; |
|
| 2693 | + $_champ = interprete_argument_balise(1, $p); |
|
| 2694 | + // si pas de champ, renvoyer le critere de tri utilise |
|
| 2695 | + if (!$_champ) { |
|
| 2696 | + $p->code = $boucle->modificateur['tri_champ']; |
|
| 2697 | 2697 | |
| 2698 | - return $p; |
|
| 2699 | - } |
|
| 2700 | - // forcer la jointure si besoin, et si le champ est statique |
|
| 2701 | - if (preg_match(",^'([\w.]+)'$,i", $_champ, $m)) { |
|
| 2702 | - index_pile($b, $m[1], $p->boucles, '', null, true, false); |
|
| 2703 | - } |
|
| 2698 | + return $p; |
|
| 2699 | + } |
|
| 2700 | + // forcer la jointure si besoin, et si le champ est statique |
|
| 2701 | + if (preg_match(",^'([\w.]+)'$,i", $_champ, $m)) { |
|
| 2702 | + index_pile($b, $m[1], $p->boucles, '', null, true, false); |
|
| 2703 | + } |
|
| 2704 | 2704 | |
| 2705 | - $_libelle = interprete_argument_balise(2, $p); |
|
| 2706 | - $_libelle = $_libelle ?: $_champ; |
|
| 2705 | + $_libelle = interprete_argument_balise(2, $p); |
|
| 2706 | + $_libelle = $_libelle ?: $_champ; |
|
| 2707 | 2707 | |
| 2708 | - $_class = interprete_argument_balise(3, $p); |
|
| 2709 | - // si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1 |
|
| 2710 | - // si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1 |
|
| 2711 | - $_issens = "in_array($_champ,array('>','<'))"; |
|
| 2712 | - $_sens = "(strpos('< >',$_champ)-1)"; |
|
| 2708 | + $_class = interprete_argument_balise(3, $p); |
|
| 2709 | + // si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1 |
|
| 2710 | + // si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1 |
|
| 2711 | + $_issens = "in_array($_champ,array('>','<'))"; |
|
| 2712 | + $_sens = "(strpos('< >',$_champ)-1)"; |
|
| 2713 | 2713 | |
| 2714 | - $_variable = "((\$s=$_issens)?'sens':'tri')." . $boucle->modificateur['tri_nom']; |
|
| 2715 | - $_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)"; |
|
| 2716 | - $_url = "parametre_url($_url,'var_memotri',strncmp(" . $boucle->modificateur['tri_nom'] . ",'session',7)==0?$_variable:'')"; |
|
| 2717 | - $_on = '$s?(' . $boucle->modificateur['tri_sens'] . "==$_sens" . '):(' . $boucle->modificateur['tri_champ'] . "==$_champ)"; |
|
| 2714 | + $_variable = "((\$s=$_issens)?'sens':'tri')." . $boucle->modificateur['tri_nom']; |
|
| 2715 | + $_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)"; |
|
| 2716 | + $_url = "parametre_url($_url,'var_memotri',strncmp(" . $boucle->modificateur['tri_nom'] . ",'session',7)==0?$_variable:'')"; |
|
| 2717 | + $_on = '$s?(' . $boucle->modificateur['tri_sens'] . "==$_sens" . '):(' . $boucle->modificateur['tri_champ'] . "==$_champ)"; |
|
| 2718 | 2718 | |
| 2719 | - $p->code = "lien_ou_expose($_url,$_libelle,$_on" . ($_class ? ",$_class" : '') . ')'; |
|
| 2720 | - //$p->code = "''"; |
|
| 2721 | - $p->interdire_scripts = false; |
|
| 2719 | + $p->code = "lien_ou_expose($_url,$_libelle,$_on" . ($_class ? ",$_class" : '') . ')'; |
|
| 2720 | + //$p->code = "''"; |
|
| 2721 | + $p->interdire_scripts = false; |
|
| 2722 | 2722 | |
| 2723 | - return $p; |
|
| 2723 | + return $p; |
|
| 2724 | 2724 | } |
| 2725 | 2725 | |
| 2726 | 2726 | |
@@ -2741,21 +2741,21 @@ discard block |
||
| 2741 | 2741 | * Pile complétée par le code à générer |
| 2742 | 2742 | */ |
| 2743 | 2743 | function balise_SAUTER_dist($p) { |
| 2744 | - $id_boucle = $p->id_boucle; |
|
| 2744 | + $id_boucle = $p->id_boucle; |
|
| 2745 | 2745 | |
| 2746 | - if (empty($p->boucles[$id_boucle])) { |
|
| 2747 | - $msg = ['zbug_champ_hors_boucle', ['champ' => '#SAUTER']]; |
|
| 2748 | - erreur_squelette($msg, $p); |
|
| 2749 | - } else { |
|
| 2750 | - $_saut = interprete_argument_balise(1, $p); |
|
| 2751 | - $_compteur = "\$Numrows['$id_boucle']['compteur_boucle']"; |
|
| 2752 | - $_total = "(\$Numrows['$id_boucle']['total'] ?? null)"; |
|
| 2746 | + if (empty($p->boucles[$id_boucle])) { |
|
| 2747 | + $msg = ['zbug_champ_hors_boucle', ['champ' => '#SAUTER']]; |
|
| 2748 | + erreur_squelette($msg, $p); |
|
| 2749 | + } else { |
|
| 2750 | + $_saut = interprete_argument_balise(1, $p); |
|
| 2751 | + $_compteur = "\$Numrows['$id_boucle']['compteur_boucle']"; |
|
| 2752 | + $_total = "(\$Numrows['$id_boucle']['total'] ?? null)"; |
|
| 2753 | 2753 | |
| 2754 | - $p->code = "vide($_compteur=\$iter->skip($_saut,$_total))"; |
|
| 2755 | - } |
|
| 2756 | - $p->interdire_scripts = false; |
|
| 2754 | + $p->code = "vide($_compteur=\$iter->skip($_saut,$_total))"; |
|
| 2755 | + } |
|
| 2756 | + $p->interdire_scripts = false; |
|
| 2757 | 2757 | |
| 2758 | - return $p; |
|
| 2758 | + return $p; |
|
| 2759 | 2759 | } |
| 2760 | 2760 | |
| 2761 | 2761 | |
@@ -2777,22 +2777,22 @@ discard block |
||
| 2777 | 2777 | * Pile complétée par le code à générer |
| 2778 | 2778 | */ |
| 2779 | 2779 | function balise_PUBLIE_dist($p) { |
| 2780 | - if (!$_type = interprete_argument_balise(1, $p)) { |
|
| 2781 | - $_type = _q($p->type_requete); |
|
| 2782 | - $_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p); |
|
| 2783 | - } else { |
|
| 2784 | - $_id = interprete_argument_balise(2, $p); |
|
| 2785 | - } |
|
| 2780 | + if (!$_type = interprete_argument_balise(1, $p)) { |
|
| 2781 | + $_type = _q($p->type_requete); |
|
| 2782 | + $_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p); |
|
| 2783 | + } else { |
|
| 2784 | + $_id = interprete_argument_balise(2, $p); |
|
| 2785 | + } |
|
| 2786 | 2786 | |
| 2787 | - $connect = ''; |
|
| 2788 | - if (isset($p->boucles[$p->id_boucle])) { |
|
| 2789 | - $connect = $p->boucles[$p->id_boucle]->sql_serveur; |
|
| 2790 | - } |
|
| 2787 | + $connect = ''; |
|
| 2788 | + if (isset($p->boucles[$p->id_boucle])) { |
|
| 2789 | + $connect = $p->boucles[$p->id_boucle]->sql_serveur; |
|
| 2790 | + } |
|
| 2791 | 2791 | |
| 2792 | - $p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')"; |
|
| 2793 | - $p->interdire_scripts = false; |
|
| 2792 | + $p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')"; |
|
| 2793 | + $p->interdire_scripts = false; |
|
| 2794 | 2794 | |
| 2795 | - return $p; |
|
| 2795 | + return $p; |
|
| 2796 | 2796 | } |
| 2797 | 2797 | |
| 2798 | 2798 | /** |
@@ -2821,12 +2821,12 @@ discard block |
||
| 2821 | 2821 | * Pile complétée par le code à générer |
| 2822 | 2822 | */ |
| 2823 | 2823 | function balise_PRODUIRE_dist($p) { |
| 2824 | - $balise_inclure = charger_fonction('INCLURE', 'balise'); |
|
| 2825 | - $p = $balise_inclure($p); |
|
| 2824 | + $balise_inclure = charger_fonction('INCLURE', 'balise'); |
|
| 2825 | + $p = $balise_inclure($p); |
|
| 2826 | 2826 | |
| 2827 | - $p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code); |
|
| 2827 | + $p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code); |
|
| 2828 | 2828 | |
| 2829 | - return $p; |
|
| 2829 | + return $p; |
|
| 2830 | 2830 | } |
| 2831 | 2831 | |
| 2832 | 2832 | /** |
@@ -2845,13 +2845,13 @@ discard block |
||
| 2845 | 2845 | * Pile complétée par le code à générer |
| 2846 | 2846 | */ |
| 2847 | 2847 | function balise_LARGEUR_ECRAN_dist($p) { |
| 2848 | - $_class = interprete_argument_balise(1, $p); |
|
| 2849 | - if (!$_class) { |
|
| 2850 | - $_class = 'null'; |
|
| 2851 | - } |
|
| 2852 | - $p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))"; |
|
| 2848 | + $_class = interprete_argument_balise(1, $p); |
|
| 2849 | + if (!$_class) { |
|
| 2850 | + $_class = 'null'; |
|
| 2851 | + } |
|
| 2852 | + $p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))"; |
|
| 2853 | 2853 | |
| 2854 | - return $p; |
|
| 2854 | + return $p; |
|
| 2855 | 2855 | } |
| 2856 | 2856 | |
| 2857 | 2857 | |
@@ -2867,14 +2867,14 @@ discard block |
||
| 2867 | 2867 | * Pile complétée par le code à générer |
| 2868 | 2868 | **/ |
| 2869 | 2869 | function balise_CONST_dist($p) { |
| 2870 | - $_const = interprete_argument_balise(1, $p); |
|
| 2871 | - if (!strlen($_const)) { |
|
| 2872 | - $p->code = "''"; |
|
| 2873 | - } |
|
| 2874 | - else { |
|
| 2875 | - $p->code = "(defined($_const)?constant($_const):'')"; |
|
| 2876 | - } |
|
| 2877 | - $p->interdire_scripts = false; |
|
| 2878 | - |
|
| 2879 | - return $p; |
|
| 2870 | + $_const = interprete_argument_balise(1, $p); |
|
| 2871 | + if (!strlen($_const)) { |
|
| 2872 | + $p->code = "''"; |
|
| 2873 | + } |
|
| 2874 | + else { |
|
| 2875 | + $p->code = "(defined($_const)?constant($_const):'')"; |
|
| 2876 | + } |
|
| 2877 | + $p->interdire_scripts = false; |
|
| 2878 | + |
|
| 2879 | + return $p; |
|
| 2880 | 2880 | } |
@@ -37,11 +37,11 @@ |
||
| 37 | 37 | include_spip('inc/filtres'); |
| 38 | 38 | |
| 39 | 39 | // Inserer le css d'admin |
| 40 | - $css = "<link rel='stylesheet' href='" . url_absolue(direction_css(find_in_path('spip_admin.css'))) |
|
| 40 | + $css = "<link rel='stylesheet' href='".url_absolue(direction_css(find_in_path('spip_admin.css'))) |
|
| 41 | 41 | . "' type='text/css' />\n"; |
| 42 | 42 | if ($f = find_in_path('spip_admin_perso.css')) { |
| 43 | 43 | $css .= "<link rel='stylesheet' href='" |
| 44 | - . url_absolue(direction_css($f)) . "' type='text/css' />\n"; |
|
| 44 | + . url_absolue(direction_css($f))."' type='text/css' />\n"; |
|
| 45 | 45 | } |
| 46 | 46 | |
| 47 | 47 | ($pos = stripos($contenu, '</head>')) |
@@ -17,7 +17,7 @@ discard block |
||
| 17 | 17 | **/ |
| 18 | 18 | |
| 19 | 19 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 20 | - return; |
|
| 20 | + return; |
|
| 21 | 21 | } |
| 22 | 22 | |
| 23 | 23 | /** |
@@ -34,33 +34,33 @@ discard block |
||
| 34 | 34 | * Contenu HTML, avec boutons d'administrations et sa CSS |
| 35 | 35 | **/ |
| 36 | 36 | function affiche_boutons_admin($contenu) { |
| 37 | - include_spip('inc/filtres'); |
|
| 37 | + include_spip('inc/filtres'); |
|
| 38 | 38 | |
| 39 | - // Inserer le css d'admin |
|
| 40 | - $css = "<link rel='stylesheet' href='" . url_absolue(direction_css(find_in_path('spip_admin.css'))) |
|
| 41 | - . "' type='text/css' />\n"; |
|
| 42 | - if ($f = find_in_path('spip_admin_perso.css')) { |
|
| 43 | - $css .= "<link rel='stylesheet' href='" |
|
| 44 | - . url_absolue(direction_css($f)) . "' type='text/css' />\n"; |
|
| 45 | - } |
|
| 39 | + // Inserer le css d'admin |
|
| 40 | + $css = "<link rel='stylesheet' href='" . url_absolue(direction_css(find_in_path('spip_admin.css'))) |
|
| 41 | + . "' type='text/css' />\n"; |
|
| 42 | + if ($f = find_in_path('spip_admin_perso.css')) { |
|
| 43 | + $css .= "<link rel='stylesheet' href='" |
|
| 44 | + . url_absolue(direction_css($f)) . "' type='text/css' />\n"; |
|
| 45 | + } |
|
| 46 | 46 | |
| 47 | - ($pos = stripos($contenu, '</head>')) |
|
| 48 | - || ($pos = stripos($contenu, '<body>')) |
|
| 49 | - || ($pos = 0); |
|
| 50 | - $contenu = substr_replace($contenu, $css, $pos, 0); |
|
| 47 | + ($pos = stripos($contenu, '</head>')) |
|
| 48 | + || ($pos = stripos($contenu, '<body>')) |
|
| 49 | + || ($pos = 0); |
|
| 50 | + $contenu = substr_replace($contenu, $css, $pos, 0); |
|
| 51 | 51 | |
| 52 | 52 | |
| 53 | - // Inserer la balise #FORMULAIRE_ADMIN, en float |
|
| 54 | - $boutons_admin = inclure_balise_dynamique( |
|
| 55 | - balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'), |
|
| 56 | - false |
|
| 57 | - ); |
|
| 53 | + // Inserer la balise #FORMULAIRE_ADMIN, en float |
|
| 54 | + $boutons_admin = inclure_balise_dynamique( |
|
| 55 | + balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'), |
|
| 56 | + false |
|
| 57 | + ); |
|
| 58 | 58 | |
| 59 | - ($pos = strripos($contenu, '</body>')) |
|
| 60 | - || ($pos = strripos($contenu, '</html>')) |
|
| 61 | - || ($pos = strlen($contenu)); |
|
| 62 | - $contenu = substr_replace($contenu, $boutons_admin, $pos, 0); |
|
| 59 | + ($pos = strripos($contenu, '</body>')) |
|
| 60 | + || ($pos = strripos($contenu, '</html>')) |
|
| 61 | + || ($pos = strlen($contenu)); |
|
| 62 | + $contenu = substr_replace($contenu, $boutons_admin, $pos, 0); |
|
| 63 | 63 | |
| 64 | 64 | |
| 65 | - return $contenu; |
|
| 65 | + return $contenu; |
|
| 66 | 66 | } |
@@ -17,7 +17,7 @@ discard block |
||
| 17 | 17 | */ |
| 18 | 18 | |
| 19 | 19 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 20 | - return; |
|
| 20 | + return; |
|
| 21 | 21 | } |
| 22 | 22 | |
| 23 | 23 | include_spip('inc/actions'); |
@@ -29,20 +29,20 @@ discard block |
||
| 29 | 29 | * @uses ajax_retour() |
| 30 | 30 | **/ |
| 31 | 31 | function exec_informer_dist() { |
| 32 | - $id = intval(_request('id')); |
|
| 33 | - $col = intval(_request('col')); |
|
| 34 | - $exclus = intval(_request('exclus')); |
|
| 35 | - $do = _request('do'); |
|
| 32 | + $id = intval(_request('id')); |
|
| 33 | + $col = intval(_request('col')); |
|
| 34 | + $exclus = intval(_request('exclus')); |
|
| 35 | + $do = _request('do'); |
|
| 36 | 36 | |
| 37 | - if (preg_match('/^\w*$/', $do)) { |
|
| 38 | - if (!$do) { |
|
| 39 | - $do = 'aff'; |
|
| 40 | - } |
|
| 37 | + if (preg_match('/^\w*$/', $do)) { |
|
| 38 | + if (!$do) { |
|
| 39 | + $do = 'aff'; |
|
| 40 | + } |
|
| 41 | 41 | |
| 42 | - $informer = charger_fonction('informer', 'inc'); |
|
| 43 | - $res = $informer($id, $col, $exclus, _request('rac'), _request('type'), $do); |
|
| 44 | - } else { |
|
| 45 | - $res = ''; |
|
| 46 | - } |
|
| 47 | - ajax_retour($res); |
|
| 42 | + $informer = charger_fonction('informer', 'inc'); |
|
| 43 | + $res = $informer($id, $col, $exclus, _request('rac'), _request('type'), $do); |
|
| 44 | + } else { |
|
| 45 | + $res = ''; |
|
| 46 | + } |
|
| 47 | + ajax_retour($res); |
|
| 48 | 48 | } |
@@ -298,9 +298,9 @@ |
||
| 298 | 298 | and ($e = $flux['args']['contexte']['_etape']) > 1 |
| 299 | 299 | and $ext = $flux['args']['ext'] |
| 300 | 300 | and $f = $flux['data'] |
| 301 | - and file_exists($f . "_$e.$ext") |
|
| 301 | + and file_exists($f."_$e.$ext") |
|
| 302 | 302 | ) { |
| 303 | - $flux['data'] = $f . "_$e"; |
|
| 303 | + $flux['data'] = $f."_$e"; |
|
| 304 | 304 | } |
| 305 | 305 | |
| 306 | 306 | return $flux; |
@@ -66,7 +66,7 @@ discard block |
||
| 66 | 66 | */ |
| 67 | 67 | |
| 68 | 68 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 69 | - return; |
|
| 69 | + return; |
|
| 70 | 70 | } |
| 71 | 71 | |
| 72 | 72 | /** |
@@ -77,46 +77,46 @@ discard block |
||
| 77 | 77 | * @return array |
| 78 | 78 | */ |
| 79 | 79 | function cvtmulti_recuperer_post_precedents($form) { |
| 80 | - include_spip('inc/filtres'); |
|
| 81 | - if ( |
|
| 82 | - $form |
|
| 83 | - and $c = _request('cvtm_prev_post') |
|
| 84 | - and $c = decoder_contexte_ajax($c, $form) |
|
| 85 | - ) { |
|
| 86 | - #var_dump($c); |
|
| 80 | + include_spip('inc/filtres'); |
|
| 81 | + if ( |
|
| 82 | + $form |
|
| 83 | + and $c = _request('cvtm_prev_post') |
|
| 84 | + and $c = decoder_contexte_ajax($c, $form) |
|
| 85 | + ) { |
|
| 86 | + #var_dump($c); |
|
| 87 | 87 | |
| 88 | - # reinjecter dans la bonne variable pour permettre de retrouver |
|
| 89 | - # toutes les saisies dans un seul tableau |
|
| 90 | - if ($_SERVER['REQUEST_METHOD'] == 'POST') { |
|
| 91 | - $store = &$_POST; |
|
| 92 | - } else { |
|
| 93 | - $store = &$_GET; |
|
| 94 | - } |
|
| 88 | + # reinjecter dans la bonne variable pour permettre de retrouver |
|
| 89 | + # toutes les saisies dans un seul tableau |
|
| 90 | + if ($_SERVER['REQUEST_METHOD'] == 'POST') { |
|
| 91 | + $store = &$_POST; |
|
| 92 | + } else { |
|
| 93 | + $store = &$_GET; |
|
| 94 | + } |
|
| 95 | 95 | |
| 96 | - foreach ($c as $k => $v) { // on ecrase pas si saisi a nouveau ! |
|
| 97 | - if (!isset($store[$k])) { |
|
| 98 | - $_REQUEST[$k] = $store[$k] = $v; |
|
| 99 | - } // mais si tableau des deux cotes, on merge avec priorite a la derniere saisie |
|
| 100 | - elseif ( |
|
| 101 | - is_array($store[$k]) |
|
| 102 | - and is_array($v) |
|
| 103 | - and $z = array_keys($v) |
|
| 104 | - and !is_numeric(reset($z)) |
|
| 105 | - and $z = array_keys($store[$k]) |
|
| 106 | - and !is_numeric(reset($z)) |
|
| 107 | - ) { |
|
| 108 | - $_REQUEST[$k] = $store[$k] = array_merge($v, $store[$k]); |
|
| 109 | - } |
|
| 110 | - } |
|
| 96 | + foreach ($c as $k => $v) { // on ecrase pas si saisi a nouveau ! |
|
| 97 | + if (!isset($store[$k])) { |
|
| 98 | + $_REQUEST[$k] = $store[$k] = $v; |
|
| 99 | + } // mais si tableau des deux cotes, on merge avec priorite a la derniere saisie |
|
| 100 | + elseif ( |
|
| 101 | + is_array($store[$k]) |
|
| 102 | + and is_array($v) |
|
| 103 | + and $z = array_keys($v) |
|
| 104 | + and !is_numeric(reset($z)) |
|
| 105 | + and $z = array_keys($store[$k]) |
|
| 106 | + and !is_numeric(reset($z)) |
|
| 107 | + ) { |
|
| 108 | + $_REQUEST[$k] = $store[$k] = array_merge($v, $store[$k]); |
|
| 109 | + } |
|
| 110 | + } |
|
| 111 | 111 | |
| 112 | - // vider pour eviter un second appel a verifier_n |
|
| 113 | - // en cas de double implementation (unipotence) |
|
| 114 | - set_request('cvtm_prev_post'); |
|
| 112 | + // vider pour eviter un second appel a verifier_n |
|
| 113 | + // en cas de double implementation (unipotence) |
|
| 114 | + set_request('cvtm_prev_post'); |
|
| 115 | 115 | |
| 116 | - return [$c['_etape'], $c['_etapes']]; |
|
| 117 | - } |
|
| 116 | + return [$c['_etape'], $c['_etapes']]; |
|
| 117 | + } |
|
| 118 | 118 | |
| 119 | - return false; |
|
| 119 | + return false; |
|
| 120 | 120 | } |
| 121 | 121 | |
| 122 | 122 | /** |
@@ -129,28 +129,28 @@ discard block |
||
| 129 | 129 | * @return array |
| 130 | 130 | */ |
| 131 | 131 | function cvtmulti_sauver_post($form, $je_suis_poste, &$valeurs) { |
| 132 | - if (!isset($valeurs['_cvtm_prev_post'])) { |
|
| 133 | - $post = ['_etape' => $valeurs['_etape'], '_etapes' => $valeurs['_etapes']]; |
|
| 134 | - foreach (array_keys($valeurs) as $champ) { |
|
| 135 | - if (substr($champ, 0, 1) !== '_') { |
|
| 136 | - if ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request'])) { |
|
| 137 | - if (($v = _request($champ)) !== null) { |
|
| 138 | - $post[$champ] = $v; |
|
| 139 | - } |
|
| 140 | - } |
|
| 141 | - } |
|
| 142 | - } |
|
| 143 | - include_spip('inc/filtres'); |
|
| 144 | - $c = encoder_contexte_ajax($post, $form); |
|
| 145 | - if (!isset($valeurs['_hidden'])) { |
|
| 146 | - $valeurs['_hidden'] = ''; |
|
| 147 | - } |
|
| 148 | - $valeurs['_hidden'] .= "<input type='hidden' name='cvtm_prev_post' value='$c' />"; |
|
| 149 | - // marquer comme fait, pour eviter double encodage (unipotence) |
|
| 150 | - $valeurs['_cvtm_prev_post'] = true; |
|
| 151 | - } |
|
| 132 | + if (!isset($valeurs['_cvtm_prev_post'])) { |
|
| 133 | + $post = ['_etape' => $valeurs['_etape'], '_etapes' => $valeurs['_etapes']]; |
|
| 134 | + foreach (array_keys($valeurs) as $champ) { |
|
| 135 | + if (substr($champ, 0, 1) !== '_') { |
|
| 136 | + if ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request'])) { |
|
| 137 | + if (($v = _request($champ)) !== null) { |
|
| 138 | + $post[$champ] = $v; |
|
| 139 | + } |
|
| 140 | + } |
|
| 141 | + } |
|
| 142 | + } |
|
| 143 | + include_spip('inc/filtres'); |
|
| 144 | + $c = encoder_contexte_ajax($post, $form); |
|
| 145 | + if (!isset($valeurs['_hidden'])) { |
|
| 146 | + $valeurs['_hidden'] = ''; |
|
| 147 | + } |
|
| 148 | + $valeurs['_hidden'] .= "<input type='hidden' name='cvtm_prev_post' value='$c' />"; |
|
| 149 | + // marquer comme fait, pour eviter double encodage (unipotence) |
|
| 150 | + $valeurs['_cvtm_prev_post'] = true; |
|
| 151 | + } |
|
| 152 | 152 | |
| 153 | - return $valeurs; |
|
| 153 | + return $valeurs; |
|
| 154 | 154 | } |
| 155 | 155 | |
| 156 | 156 | |
@@ -164,14 +164,14 @@ discard block |
||
| 164 | 164 | * @return array |
| 165 | 165 | */ |
| 166 | 166 | function cvtmulti_formulaire_charger($flux) { |
| 167 | - if ( |
|
| 168 | - is_array($flux['data']) |
|
| 169 | - and isset($flux['data']['_etapes']) |
|
| 170 | - ) { |
|
| 171 | - $flux['data'] = cvtmulti_formulaire_charger_etapes($flux['args'], $flux['data']); |
|
| 172 | - } |
|
| 167 | + if ( |
|
| 168 | + is_array($flux['data']) |
|
| 169 | + and isset($flux['data']['_etapes']) |
|
| 170 | + ) { |
|
| 171 | + $flux['data'] = cvtmulti_formulaire_charger_etapes($flux['args'], $flux['data']); |
|
| 172 | + } |
|
| 173 | 173 | |
| 174 | - return $flux; |
|
| 174 | + return $flux; |
|
| 175 | 175 | } |
| 176 | 176 | |
| 177 | 177 | /** |
@@ -181,19 +181,19 @@ discard block |
||
| 181 | 181 | * @return array |
| 182 | 182 | */ |
| 183 | 183 | function cvtmulti_formulaire_charger_etapes($args, $valeurs) { |
| 184 | - if (!isset($valeurs['_etape'])) { |
|
| 185 | - $form = $args['form']; |
|
| 186 | - $je_suis_poste = $args['je_suis_poste']; |
|
| 187 | - $nb_etapes = $valeurs['_etapes']; |
|
| 188 | - $etape = _request('_etape'); |
|
| 189 | - $etape = min(max($etape, 1), $nb_etapes); |
|
| 190 | - set_request('_etape', $etape); |
|
| 191 | - $valeurs['_etape'] = $etape; |
|
| 184 | + if (!isset($valeurs['_etape'])) { |
|
| 185 | + $form = $args['form']; |
|
| 186 | + $je_suis_poste = $args['je_suis_poste']; |
|
| 187 | + $nb_etapes = $valeurs['_etapes']; |
|
| 188 | + $etape = _request('_etape'); |
|
| 189 | + $etape = min(max($etape, 1), $nb_etapes); |
|
| 190 | + set_request('_etape', $etape); |
|
| 191 | + $valeurs['_etape'] = $etape; |
|
| 192 | 192 | |
| 193 | - // sauver les posts de cette etape pour les avoir a la prochaine etape |
|
| 194 | - $valeurs = cvtmulti_sauver_post($form, $je_suis_poste, $valeurs); |
|
| 195 | - } |
|
| 196 | - return $valeurs; |
|
| 193 | + // sauver les posts de cette etape pour les avoir a la prochaine etape |
|
| 194 | + $valeurs = cvtmulti_sauver_post($form, $je_suis_poste, $valeurs); |
|
| 195 | + } |
|
| 196 | + return $valeurs; |
|
| 197 | 197 | } |
| 198 | 198 | |
| 199 | 199 | |
@@ -206,8 +206,8 @@ discard block |
||
| 206 | 206 | * @return array |
| 207 | 207 | */ |
| 208 | 208 | function cvtmulti_formulaire_verifier($flux) { |
| 209 | - $flux['data'] = cvtmulti_formulaire_verifier_etapes($flux['args'], $flux['data']); |
|
| 210 | - return $flux; |
|
| 209 | + $flux['data'] = cvtmulti_formulaire_verifier_etapes($flux['args'], $flux['data']); |
|
| 210 | + return $flux; |
|
| 211 | 211 | } |
| 212 | 212 | |
| 213 | 213 | /** |
@@ -218,87 +218,87 @@ discard block |
||
| 218 | 218 | * @return array |
| 219 | 219 | */ |
| 220 | 220 | function cvtmulti_formulaire_verifier_etapes($args, $erreurs) { |
| 221 | - #var_dump('Pipe verifier'); |
|
| 221 | + #var_dump('Pipe verifier'); |
|
| 222 | 222 | |
| 223 | - if ( |
|
| 224 | - $form = $args['form'] |
|
| 225 | - and ($e = cvtmulti_recuperer_post_precedents($form)) !== false |
|
| 226 | - ) { |
|
| 227 | - // recuperer l'etape saisie et le nombre d'etapes total |
|
| 228 | - [$etape, $etapes] = $e; |
|
| 229 | - $etape_demandee = intval(_request('aller_a_etape')); // possibilite de poster un entier dans aller_a_etape |
|
| 223 | + if ( |
|
| 224 | + $form = $args['form'] |
|
| 225 | + and ($e = cvtmulti_recuperer_post_precedents($form)) !== false |
|
| 226 | + ) { |
|
| 227 | + // recuperer l'etape saisie et le nombre d'etapes total |
|
| 228 | + [$etape, $etapes] = $e; |
|
| 229 | + $etape_demandee = intval(_request('aller_a_etape')); // possibilite de poster un entier dans aller_a_etape |
|
| 230 | 230 | |
| 231 | - $args['etape_saisie'] = $etape; |
|
| 232 | - $args['etapes'] = $etapes; |
|
| 233 | - // lancer les verifs pour chaque etape deja saisie de 1 a $etape |
|
| 234 | - $erreurs_etapes = []; |
|
| 235 | - $derniere_etape_ok = 0; |
|
| 236 | - $e = 0; |
|
| 237 | - while ($e < max($etape, $etape_demandee - 1) and $e < $etapes) { |
|
| 238 | - $e++; |
|
| 239 | - $erreurs_etapes[$e] = []; |
|
| 240 | - if ($verifier = charger_fonction("verifier_$e", "formulaires/$form/", true)) { |
|
| 241 | - $erreurs_etapes[$e] = call_user_func_array($verifier, $args['args']); |
|
| 242 | - } elseif ($verifier = charger_fonction('verifier_etape', "formulaires/$form/", true)) { |
|
| 243 | - $a = $args['args']; |
|
| 244 | - array_unshift($a, $e); |
|
| 245 | - $erreurs_etapes[$e] = call_user_func_array($verifier, $a); |
|
| 246 | - } |
|
| 247 | - // et on appelle un pipeline dedie aux etapes, plus easy |
|
| 248 | - $args['etape'] = $e; |
|
| 249 | - $args['etape_demandee'] = $etape_demandee; |
|
| 250 | - $erreurs_etapes[$e] = pipeline( |
|
| 251 | - 'formulaire_verifier_etape', |
|
| 252 | - [ |
|
| 253 | - 'args' => $args, |
|
| 254 | - 'data' => $erreurs_etapes[$e] |
|
| 255 | - ] |
|
| 256 | - ); |
|
| 231 | + $args['etape_saisie'] = $etape; |
|
| 232 | + $args['etapes'] = $etapes; |
|
| 233 | + // lancer les verifs pour chaque etape deja saisie de 1 a $etape |
|
| 234 | + $erreurs_etapes = []; |
|
| 235 | + $derniere_etape_ok = 0; |
|
| 236 | + $e = 0; |
|
| 237 | + while ($e < max($etape, $etape_demandee - 1) and $e < $etapes) { |
|
| 238 | + $e++; |
|
| 239 | + $erreurs_etapes[$e] = []; |
|
| 240 | + if ($verifier = charger_fonction("verifier_$e", "formulaires/$form/", true)) { |
|
| 241 | + $erreurs_etapes[$e] = call_user_func_array($verifier, $args['args']); |
|
| 242 | + } elseif ($verifier = charger_fonction('verifier_etape', "formulaires/$form/", true)) { |
|
| 243 | + $a = $args['args']; |
|
| 244 | + array_unshift($a, $e); |
|
| 245 | + $erreurs_etapes[$e] = call_user_func_array($verifier, $a); |
|
| 246 | + } |
|
| 247 | + // et on appelle un pipeline dedie aux etapes, plus easy |
|
| 248 | + $args['etape'] = $e; |
|
| 249 | + $args['etape_demandee'] = $etape_demandee; |
|
| 250 | + $erreurs_etapes[$e] = pipeline( |
|
| 251 | + 'formulaire_verifier_etape', |
|
| 252 | + [ |
|
| 253 | + 'args' => $args, |
|
| 254 | + 'data' => $erreurs_etapes[$e] |
|
| 255 | + ] |
|
| 256 | + ); |
|
| 257 | 257 | |
| 258 | - if ($derniere_etape_ok == $e - 1 and !(is_countable($erreurs_etapes[$e]) ? count($erreurs_etapes[$e]) : 0)) { |
|
| 259 | - $derniere_etape_ok = $e; |
|
| 260 | - } |
|
| 261 | - // possibilite de poster dans _retour_etape_x ou aller_a_etape |
|
| 262 | - if (!is_null(_request("_retour_etape_$e"))) { |
|
| 263 | - $etape_demandee = $e; |
|
| 264 | - } |
|
| 265 | - // Il se peut que les verifications ait décidé de faire sauter des étapes |
|
| 266 | - if ($aller_a_etape = intval(_request('aller_a_etape'))) { |
|
| 267 | - $etape_demandee = $aller_a_etape; // possibilite de poster un entier dans aller_a_etape |
|
| 268 | - } |
|
| 269 | - } |
|
| 258 | + if ($derniere_etape_ok == $e - 1 and !(is_countable($erreurs_etapes[$e]) ? count($erreurs_etapes[$e]) : 0)) { |
|
| 259 | + $derniere_etape_ok = $e; |
|
| 260 | + } |
|
| 261 | + // possibilite de poster dans _retour_etape_x ou aller_a_etape |
|
| 262 | + if (!is_null(_request("_retour_etape_$e"))) { |
|
| 263 | + $etape_demandee = $e; |
|
| 264 | + } |
|
| 265 | + // Il se peut que les verifications ait décidé de faire sauter des étapes |
|
| 266 | + if ($aller_a_etape = intval(_request('aller_a_etape'))) { |
|
| 267 | + $etape_demandee = $aller_a_etape; // possibilite de poster un entier dans aller_a_etape |
|
| 268 | + } |
|
| 269 | + } |
|
| 270 | 270 | |
| 271 | 271 | |
| 272 | - // si la derniere etape OK etait la derniere |
|
| 273 | - // on renvoie le flux inchange et ca declenche traiter |
|
| 274 | - if ( |
|
| 275 | - $derniere_etape_ok == $etapes |
|
| 276 | - and (!$etape_demandee or $etape_demandee >= $etapes) |
|
| 277 | - ) { |
|
| 278 | - return $erreurs; |
|
| 279 | - } else { |
|
| 280 | - $etape = $derniere_etape_ok + 1; |
|
| 281 | - if ($etape_demandee > 0 and $etape_demandee < $etape) { |
|
| 282 | - $etape = $etape_demandee; |
|
| 283 | - } |
|
| 284 | - $etape = min($etape, $etapes); |
|
| 285 | - #var_dump("prochaine etape $etape"); |
|
| 286 | - // retourner les erreurs de l'etape ciblee |
|
| 287 | - $erreurs = $erreurs_etapes[$etape] ?? []; |
|
| 288 | - // Ne pas se tromper dans le texte du message d'erreur : la clé '_etapes' n'est pas une erreur ! |
|
| 289 | - if ($erreurs) { |
|
| 290 | - if (!isset($erreurs['message_erreur'])) { |
|
| 291 | - $erreurs['message_erreur'] = singulier_ou_pluriel(is_countable($erreurs) ? count($erreurs) : 0, 'avis_1_erreur_saisie', 'avis_nb_erreurs_saisie'); |
|
| 292 | - } |
|
| 293 | - } else { |
|
| 294 | - $erreurs['message_erreur'] = ''; |
|
| 295 | - } |
|
| 296 | - $erreurs['_etapes'] = "etape suivante $etape"; |
|
| 297 | - set_request('_etape', $etape); |
|
| 298 | - } |
|
| 299 | - } |
|
| 272 | + // si la derniere etape OK etait la derniere |
|
| 273 | + // on renvoie le flux inchange et ca declenche traiter |
|
| 274 | + if ( |
|
| 275 | + $derniere_etape_ok == $etapes |
|
| 276 | + and (!$etape_demandee or $etape_demandee >= $etapes) |
|
| 277 | + ) { |
|
| 278 | + return $erreurs; |
|
| 279 | + } else { |
|
| 280 | + $etape = $derniere_etape_ok + 1; |
|
| 281 | + if ($etape_demandee > 0 and $etape_demandee < $etape) { |
|
| 282 | + $etape = $etape_demandee; |
|
| 283 | + } |
|
| 284 | + $etape = min($etape, $etapes); |
|
| 285 | + #var_dump("prochaine etape $etape"); |
|
| 286 | + // retourner les erreurs de l'etape ciblee |
|
| 287 | + $erreurs = $erreurs_etapes[$etape] ?? []; |
|
| 288 | + // Ne pas se tromper dans le texte du message d'erreur : la clé '_etapes' n'est pas une erreur ! |
|
| 289 | + if ($erreurs) { |
|
| 290 | + if (!isset($erreurs['message_erreur'])) { |
|
| 291 | + $erreurs['message_erreur'] = singulier_ou_pluriel(is_countable($erreurs) ? count($erreurs) : 0, 'avis_1_erreur_saisie', 'avis_nb_erreurs_saisie'); |
|
| 292 | + } |
|
| 293 | + } else { |
|
| 294 | + $erreurs['message_erreur'] = ''; |
|
| 295 | + } |
|
| 296 | + $erreurs['_etapes'] = "etape suivante $etape"; |
|
| 297 | + set_request('_etape', $etape); |
|
| 298 | + } |
|
| 299 | + } |
|
| 300 | 300 | |
| 301 | - return $erreurs; |
|
| 301 | + return $erreurs; |
|
| 302 | 302 | } |
| 303 | 303 | |
| 304 | 304 | /** |
@@ -310,17 +310,17 @@ discard block |
||
| 310 | 310 | * @return array |
| 311 | 311 | */ |
| 312 | 312 | function cvtmulti_styliser($flux) { |
| 313 | - if ( |
|
| 314 | - strncmp($flux['args']['fond'], 'formulaires/', 12) == 0 |
|
| 315 | - and isset($flux['args']['contexte']['_etapes']) |
|
| 316 | - and isset($flux['args']['contexte']['_etape']) |
|
| 317 | - and ($e = $flux['args']['contexte']['_etape']) > 1 |
|
| 318 | - and $ext = $flux['args']['ext'] |
|
| 319 | - and $f = $flux['data'] |
|
| 320 | - and file_exists($f . "_$e.$ext") |
|
| 321 | - ) { |
|
| 322 | - $flux['data'] = $f . "_$e"; |
|
| 323 | - } |
|
| 313 | + if ( |
|
| 314 | + strncmp($flux['args']['fond'], 'formulaires/', 12) == 0 |
|
| 315 | + and isset($flux['args']['contexte']['_etapes']) |
|
| 316 | + and isset($flux['args']['contexte']['_etape']) |
|
| 317 | + and ($e = $flux['args']['contexte']['_etape']) > 1 |
|
| 318 | + and $ext = $flux['args']['ext'] |
|
| 319 | + and $f = $flux['data'] |
|
| 320 | + and file_exists($f . "_$e.$ext") |
|
| 321 | + ) { |
|
| 322 | + $flux['data'] = $f . "_$e"; |
|
| 323 | + } |
|
| 324 | 324 | |
| 325 | - return $flux; |
|
| 325 | + return $flux; |
|
| 326 | 326 | } |
@@ -28,7 +28,7 @@ |
||
| 28 | 28 | return; |
| 29 | 29 | } |
| 30 | 30 | if ($opt) { |
| 31 | - $phrase .= ' :: ' . str_replace("\n", ' ', join(', ', $opt)); |
|
| 31 | + $phrase .= ' :: '.str_replace("\n", ' ', join(', ', $opt)); |
|
| 32 | 32 | } |
| 33 | 33 | spip_log($phrase, 'journal'); |
| 34 | 34 | } |
@@ -11,7 +11,7 @@ discard block |
||
| 11 | 11 | \***************************************************************************/ |
| 12 | 12 | |
| 13 | 13 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 14 | - return; |
|
| 14 | + return; |
|
| 15 | 15 | } |
| 16 | 16 | |
| 17 | 17 | |
@@ -24,11 +24,11 @@ discard block |
||
| 24 | 24 | * @param array $opt |
| 25 | 25 | */ |
| 26 | 26 | function inc_journal_dist($phrase, $opt = []) { |
| 27 | - if (!strlen($phrase)) { |
|
| 28 | - return; |
|
| 29 | - } |
|
| 30 | - if ($opt) { |
|
| 31 | - $phrase .= ' :: ' . str_replace("\n", ' ', join(', ', $opt)); |
|
| 32 | - } |
|
| 33 | - spip_log($phrase, 'journal'); |
|
| 27 | + if (!strlen($phrase)) { |
|
| 28 | + return; |
|
| 29 | + } |
|
| 30 | + if ($opt) { |
|
| 31 | + $phrase .= ' :: ' . str_replace("\n", ' ', join(', ', $opt)); |
|
| 32 | + } |
|
| 33 | + spip_log($phrase, 'journal'); |
|
| 34 | 34 | } |
@@ -31,11 +31,11 @@ discard block |
||
| 31 | 31 | case is_null($var): |
| 32 | 32 | return 'null'; |
| 33 | 33 | case is_string($var): |
| 34 | - return '"' . addcslashes($var, "\"\\\n\r/") . '"'; |
|
| 34 | + return '"'.addcslashes($var, "\"\\\n\r/").'"'; |
|
| 35 | 35 | case is_bool($var): |
| 36 | 36 | return $var ? 'true' : 'false'; |
| 37 | 37 | case is_scalar($var): |
| 38 | - return (string)$var; |
|
| 38 | + return (string) $var; |
|
| 39 | 39 | case is_object($var):// blam |
| 40 | 40 | $var = get_object_vars($var); |
| 41 | 41 | $asso = true; |
@@ -50,19 +50,19 @@ discard block |
||
| 50 | 50 | if ($asso) { |
| 51 | 51 | $ret = '{'; |
| 52 | 52 | foreach ($var as $key => $elt) { |
| 53 | - $ret .= $sep . '"' . $key . '":' . var2js($elt); |
|
| 53 | + $ret .= $sep.'"'.$key.'":'.var2js($elt); |
|
| 54 | 54 | $sep = ','; |
| 55 | 55 | } |
| 56 | 56 | |
| 57 | - return $ret . '}'; |
|
| 57 | + return $ret.'}'; |
|
| 58 | 58 | } else { |
| 59 | 59 | $ret = '['; |
| 60 | 60 | foreach ($var as $elt) { |
| 61 | - $ret .= $sep . var2js($elt); |
|
| 61 | + $ret .= $sep.var2js($elt); |
|
| 62 | 62 | $sep = ','; |
| 63 | 63 | } |
| 64 | 64 | |
| 65 | - return $ret . ']'; |
|
| 65 | + return $ret.']'; |
|
| 66 | 66 | } |
| 67 | 67 | } |
| 68 | 68 | |
@@ -82,7 +82,7 @@ discard block |
||
| 82 | 82 | // flag indiquant qu'on est en iframe et qu'il faut proteger nos |
| 83 | 83 | // donnees dans un <textarea> ; attention $_FILES a ete vide par array_pop |
| 84 | 84 | if (defined('FILE_UPLOAD')) { |
| 85 | - return '<textarea>' . spip_htmlspecialchars($var) . '</textarea>'; |
|
| 85 | + return '<textarea>'.spip_htmlspecialchars($var).'</textarea>'; |
|
| 86 | 86 | } else { |
| 87 | 87 | return $var; |
| 88 | 88 | } |
@@ -11,7 +11,7 @@ discard block |
||
| 11 | 11 | \***************************************************************************/ |
| 12 | 12 | |
| 13 | 13 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 14 | - return; |
|
| 14 | + return; |
|
| 15 | 15 | } |
| 16 | 16 | |
| 17 | 17 | // Les fonctions de toggg pour faire du JSON |
@@ -25,63 +25,63 @@ discard block |
||
| 25 | 25 | */ |
| 26 | 26 | |
| 27 | 27 | function var2js($var) { |
| 28 | - $asso = false; |
|
| 29 | - switch (true) { |
|
| 30 | - case is_null($var): |
|
| 31 | - return 'null'; |
|
| 32 | - case is_string($var): |
|
| 33 | - return '"' . addcslashes($var, "\"\\\n\r/") . '"'; |
|
| 34 | - case is_bool($var): |
|
| 35 | - return $var ? 'true' : 'false'; |
|
| 36 | - case is_scalar($var): |
|
| 37 | - return (string)$var; |
|
| 38 | - case is_object($var):// blam |
|
| 39 | - $var = get_object_vars($var); |
|
| 40 | - $asso = true; |
|
| 41 | - // $var devient un array, on continue |
|
| 42 | - case is_array($var): |
|
| 43 | - $keys = array_keys($var); |
|
| 44 | - $ikey = count($keys); |
|
| 45 | - while (!$asso && $ikey--) { |
|
| 46 | - $asso = $ikey !== $keys[$ikey]; |
|
| 47 | - } |
|
| 48 | - $sep = ''; |
|
| 49 | - if ($asso) { |
|
| 50 | - $ret = '{'; |
|
| 51 | - foreach ($var as $key => $elt) { |
|
| 52 | - $ret .= $sep . '"' . $key . '":' . var2js($elt); |
|
| 53 | - $sep = ','; |
|
| 54 | - } |
|
| 28 | + $asso = false; |
|
| 29 | + switch (true) { |
|
| 30 | + case is_null($var): |
|
| 31 | + return 'null'; |
|
| 32 | + case is_string($var): |
|
| 33 | + return '"' . addcslashes($var, "\"\\\n\r/") . '"'; |
|
| 34 | + case is_bool($var): |
|
| 35 | + return $var ? 'true' : 'false'; |
|
| 36 | + case is_scalar($var): |
|
| 37 | + return (string)$var; |
|
| 38 | + case is_object($var):// blam |
|
| 39 | + $var = get_object_vars($var); |
|
| 40 | + $asso = true; |
|
| 41 | + // $var devient un array, on continue |
|
| 42 | + case is_array($var): |
|
| 43 | + $keys = array_keys($var); |
|
| 44 | + $ikey = count($keys); |
|
| 45 | + while (!$asso && $ikey--) { |
|
| 46 | + $asso = $ikey !== $keys[$ikey]; |
|
| 47 | + } |
|
| 48 | + $sep = ''; |
|
| 49 | + if ($asso) { |
|
| 50 | + $ret = '{'; |
|
| 51 | + foreach ($var as $key => $elt) { |
|
| 52 | + $ret .= $sep . '"' . $key . '":' . var2js($elt); |
|
| 53 | + $sep = ','; |
|
| 54 | + } |
|
| 55 | 55 | |
| 56 | - return $ret . '}'; |
|
| 57 | - } else { |
|
| 58 | - $ret = '['; |
|
| 59 | - foreach ($var as $elt) { |
|
| 60 | - $ret .= $sep . var2js($elt); |
|
| 61 | - $sep = ','; |
|
| 62 | - } |
|
| 56 | + return $ret . '}'; |
|
| 57 | + } else { |
|
| 58 | + $ret = '['; |
|
| 59 | + foreach ($var as $elt) { |
|
| 60 | + $ret .= $sep . var2js($elt); |
|
| 61 | + $sep = ','; |
|
| 62 | + } |
|
| 63 | 63 | |
| 64 | - return $ret . ']'; |
|
| 65 | - } |
|
| 66 | - } |
|
| 64 | + return $ret . ']'; |
|
| 65 | + } |
|
| 66 | + } |
|
| 67 | 67 | |
| 68 | - return false; |
|
| 68 | + return false; |
|
| 69 | 69 | } |
| 70 | 70 | |
| 71 | 71 | if (!function_exists('json_encode')) { |
| 72 | - function json_encode($v) { |
|
| 73 | - return var2js($v); |
|
| 74 | - } |
|
| 72 | + function json_encode($v) { |
|
| 73 | + return var2js($v); |
|
| 74 | + } |
|
| 75 | 75 | } |
| 76 | 76 | |
| 77 | 77 | function json_export($var) { |
| 78 | - $var = json_encode($var, JSON_THROW_ON_ERROR); |
|
| 78 | + $var = json_encode($var, JSON_THROW_ON_ERROR); |
|
| 79 | 79 | |
| 80 | - // flag indiquant qu'on est en iframe et qu'il faut proteger nos |
|
| 81 | - // donnees dans un <textarea> ; attention $_FILES a ete vide par array_pop |
|
| 82 | - if (defined('FILE_UPLOAD')) { |
|
| 83 | - return '<textarea>' . spip_htmlspecialchars($var) . '</textarea>'; |
|
| 84 | - } else { |
|
| 85 | - return $var; |
|
| 86 | - } |
|
| 80 | + // flag indiquant qu'on est en iframe et qu'il faut proteger nos |
|
| 81 | + // donnees dans un <textarea> ; attention $_FILES a ete vide par array_pop |
|
| 82 | + if (defined('FILE_UPLOAD')) { |
|
| 83 | + return '<textarea>' . spip_htmlspecialchars($var) . '</textarea>'; |
|
| 84 | + } else { |
|
| 85 | + return $var; |
|
| 86 | + } |
|
| 87 | 87 | } |
@@ -11,7 +11,7 @@ discard block |
||
| 11 | 11 | \***************************************************************************/ |
| 12 | 12 | |
| 13 | 13 | if (!defined('_ECRIRE_INC_VERSION')) { |
| 14 | - return; |
|
| 14 | + return; |
|
| 15 | 15 | } |
| 16 | 16 | |
| 17 | 17 | /* |
@@ -22,12 +22,12 @@ discard block |
||
| 22 | 22 | * http://zoumzamzouilam/truc/chose/machin..." |
| 23 | 23 | */ |
| 24 | 24 | function inc_lien_court($url) { |
| 25 | - $long_url = defined('_MAX_LONG_URL') ? _MAX_LONG_URL : 40; |
|
| 26 | - $coupe_url = defined('_MAX_COUPE_URL') ? _MAX_COUPE_URL : 35; |
|
| 25 | + $long_url = defined('_MAX_LONG_URL') ? _MAX_LONG_URL : 40; |
|
| 26 | + $coupe_url = defined('_MAX_COUPE_URL') ? _MAX_COUPE_URL : 35; |
|
| 27 | 27 | |
| 28 | - if (strlen($url) > $long_url) { |
|
| 29 | - $url = substr($url, 0, $coupe_url) . '...'; |
|
| 30 | - } |
|
| 28 | + if (strlen($url) > $long_url) { |
|
| 29 | + $url = substr($url, 0, $coupe_url) . '...'; |
|
| 30 | + } |
|
| 31 | 31 | |
| 32 | - return $url; |
|
| 32 | + return $url; |
|
| 33 | 33 | } |
@@ -26,7 +26,7 @@ |
||
| 26 | 26 | $coupe_url = defined('_MAX_COUPE_URL') ? _MAX_COUPE_URL : 35; |
| 27 | 27 | |
| 28 | 28 | if (strlen($url) > $long_url) { |
| 29 | - $url = substr($url, 0, $coupe_url) . '...'; |
|
| 29 | + $url = substr($url, 0, $coupe_url).'...'; |
|
| 30 | 30 | } |
| 31 | 31 | |
| 32 | 32 | return $url; |
