Code Duplication    Length = 10-12 lines in 3 locations

ecrire/public/balises.php 3 locations

@@ 1310-1320 (lines=11) @@
1307
 * @return Champ
1308
 *     Pile complétée par le code à générer
1309
 **/
1310
function balise_CHEMIN_dist($p) {
1311
	$arg = interprete_argument_balise(1, $p);
1312
	if (!$arg) {
1313
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
1314
		erreur_squelette($msg, $p);
1315
	} else {
1316
		$p->code = 'find_in_path(' . $arg . ')';
1317
	}
1318
1319
	$p->interdire_scripts = false;
1320
1321
	return $p;
1322
}
1323
@@ 1345-1354 (lines=10) @@
1342
 * @return Champ
1343
 *     Pile complétée par le code à générer
1344
 **/
1345
function balise_CHEMIN_IMAGE_dist($p) {
1346
	$arg = interprete_argument_balise(1, $p);
1347
	if (!$arg) {
1348
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
1349
		erreur_squelette($msg, $p);
1350
	} else {
1351
		$p->code = 'chemin_image(' . $arg . ')';
1352
	}
1353
1354
	#$p->interdire_scripts = true;
1355
	return $p;
1356
}
1357
@@ 1751-1762 (lines=12) @@
1748
 * @return Champ
1749
 *     Pile complétée par le code à générer
1750
 **/
1751
function balise_HTTP_HEADER_dist($p) {
1752
1753
	$header = interprete_argument_balise(1, $p);
1754
	if (!$header) {
1755
		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
1756
		erreur_squelette($err_b_s_a, $p);
1757
	} else {
1758
		$p->code = "'<'.'?php header(' . _q("
1759
			. $header
1760
			. ") . '); ?'.'>'";
1761
	}
1762
	$p->interdire_scripts = false;
1763
1764
	return $p;
1765
}