Code Duplication    Length = 10-12 lines in 3 locations

ecrire/public/balises.php 3 locations

@@ 1273-1283 (lines=11) @@
1270
 * @return Champ
1271
 *     Pile complétée par le code à générer
1272
 **/
1273
function balise_CHEMIN_dist($p) {
1274
	$arg = interprete_argument_balise(1, $p);
1275
	if (!$arg) {
1276
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
1277
		erreur_squelette($msg, $p);
1278
	} else {
1279
		$p->code = 'find_in_path(' . $arg . ')';
1280
	}
1281
1282
	$p->interdire_scripts = false;
1283
1284
	return $p;
1285
}
1286
@@ 1308-1317 (lines=10) @@
1305
 * @return Champ
1306
 *     Pile complétée par le code à générer
1307
 **/
1308
function balise_CHEMIN_IMAGE_dist($p) {
1309
	$arg = interprete_argument_balise(1, $p);
1310
	if (!$arg) {
1311
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
1312
		erreur_squelette($msg, $p);
1313
	} else {
1314
		$p->code = 'chemin_image(' . $arg . ')';
1315
	}
1316
1317
	#$p->interdire_scripts = true;
1318
	return $p;
1319
}
1320
@@ 1726-1737 (lines=12) @@
1723
 * @return Champ
1724
 *     Pile complétée par le code à générer
1725
 **/
1726
function balise_HTTP_HEADER_dist($p) {
1727
1728
	$header = interprete_argument_balise(1, $p);
1729
	if (!$header) {
1730
		$err_b_s_a = array('zbug_balise_sans_argument', array('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
1739
	return $p;
1740
}