Code Duplication    Length = 11-12 lines in 3 locations

ecrire/public/balises.php 3 locations

@@ 1272-1282 (lines=11) @@
1269
 * @return Champ
1270
 *     Pile complétée par le code à générer
1271
 **/
1272
function balise_CHEMIN_dist($p) {
1273
	$arg = interprete_argument_balise(1, $p);
1274
	if (!$arg) {
1275
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
1276
		erreur_squelette($msg, $p);
1277
	} else {
1278
		$p->code = 'find_in_path(' . $arg . ')';
1279
	}
1280
1281
	$p->interdire_scripts = false;
1282
1283
	return $p;
1284
}
1285
@@ 1307-1318 (lines=12) @@
1304
 * @return Champ
1305
 *     Pile complétée par le code à générer
1306
 **/
1307
function balise_CHEMIN_IMAGE_dist($p) {
1308
	$arg = interprete_argument_balise(1, $p);
1309
	if (!$arg) {
1310
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
1311
		erreur_squelette($msg, $p);
1312
	} else {
1313
		$p->code = 'chemin_image(' . $arg . ')';
1314
	}
1315
1316
	$p->interdire_scripts = false;
1317
	return $p;
1318
}
1319
1320
1321
/**
@@ 1708-1719 (lines=12) @@
1705
 * @return Champ
1706
 *     Pile complétée par le code à générer
1707
 **/
1708
function balise_HTTP_HEADER_dist($p) {
1709
1710
	$header = interprete_argument_balise(1, $p);
1711
	if (!$header) {
1712
		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
1713
		erreur_squelette($err_b_s_a, $p);
1714
	} else {
1715
		$p->code = "'<'.'?php header(' . _q("
1716
			. $header
1717
			. ") . '); ?'.'>'";
1718
	}
1719
	$p->interdire_scripts = false;
1720
1721
	return $p;
1722
}