Il s’agit d’un langage de script Perl, gérant les éléments XML d’un fichier XML et produisant un fichier « Html » en sortie. L’intérêt de cet exemple est qu’il peut s’appliquer à l’exemple de fichier XML vu en annexe 2.4 « Exemple de QCM simple conforme au schéma QCM.xsd ». On y trouve à la fois du code de sélection, de mise en forme et d’ajout de comportement (javascript).
<?xml version="1.0" encoding="ISO-8859-1"?>
<iw_pt>
<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
<html>
<head><title>
<iw_iterate var='element' list='dcr.*'>
<iw_value name='element.titre'/>
</iw_iterate>
</title>
<![CDATA[
<script language="JavaScript">
<!--
// hide
if (self != top) top.location.href = self.location.href;
this.name="principale";
function affiche2(lien) {
newwin=window.open(lien,'autre','width=130,height=110,directories=no,location=no,men
ubar=no,resizable=yes,status=no,toolbar=no,titlebar=no,fullscreen=no');
}
var browser = navigator.appName;
var version = navigator.appVersion.charAt(0);
/* GameQuiz v1.0 by MCQ.
Copyright (c) of MCQ, 2003.
*/
var rep = new Array;
var faite = new Array;
var score = 0;
//changez les reponses ci-dessous (a, b, c, ou d) pour chacune des 10 questions
function Engine(question, reponse, estCorrecte) {
if (estCorrecte != "vrai") {
if (!faite[question]) {
faite[question] = -1;
alert("Faux ! Ton score est de : " + score + " ");
}
else {
alert("Encore cette question ? Vois la suivante !");
}
}
else {
if (!faite[question]) {
faite[question] = -1;
score++;
alert("Bien ! Ton score est de : " + score);
}
else {
alert("Encore cette question ? Vois la suivante !");
}
}
}
function NextLevel (nombreQuestion) {
if (score > nombreQuestion) {
alert("Tricheur !");
}
if (score >= nombreQuestion && score <= nombreQuestion) {
alert(score + "/" + nombreQuestion + ". Fort bien !");
}
if (score >= (nombreQuestion - ((nombreQuestion * 20)/100)) && score <
nombreQuestion) {
alert(score + "/" + nombreQuestion + ". Bien, mais... pas
parfait.");
}
if (score >= (nombreQuestion - ((nombreQuestion * 50)/100)) && score <
(nombreQuestion -((nombreQuestion * 20)/100)) ) {
alert(score + "/" + nombreQuestion + ". Assez bien, mais des
erreurs...");
}
if (score < (nombreQuestion / 2)) {
alert(score + "/" + nombreQuestion + ". Pas terrible... un autre
essai ?");
}
// ======================================================
// lignes qui suivent pour vider le formulaire:
faite = new Array;
score = 0;
//=======================================================
// pour IE4 ou Nettcape 3 et +
if(browser == "Microsoft Internet Explorer" && version >= 4 || browser ==
"Netscape" && version >= 3) {
document.quest.reset();
}
}
// -->
</script>
]]>
</head>
<body>
<h1><center><font color="green">
<iw_iterate var='element' list='dcr.*'>
<iw_value name='element.titre'/>
</iw_iterate>
</font></center></h1>
<![CDATA[ <!-- <br> --> ]]>
<hr></hr>
<p><font color="red" size="+1"><bold>
<iw_iterate var='element' list='dcr.*'>
<iw_value name='element.enTeteModeEmploi'/>
</iw_iterate>
</bold></font></p>
<p><font color="blue" size="+1"><bold>
<iw_iterate var='element' list='dcr.*'>
<iw_value name='element.enTeteDescription'/>
</iw_iterate>
</bold></font></p>
<hr></hr>
<p><NOSCRIPT>JavaScript est désactivé. Utilisez un autre navigateur plus
récent...</NOSCRIPT> </p>
<form name="quest">
<iw_perl><![CDATA[
use TeamSite::DCRnode;
my $compteur1 = '1';
foreach my $question
( iwpt_dcr_list( 'dcr.QCM.chapitre.question' ) )
{
my $compteur2 = '1';
my $compteur3 = 0;
my $questionLibelle = iwpt_dcr_value('question.questionLibelle' ) ;
iwpt_output( "
<li>
<font color='black' size='+1'><bold> $questionLibelle
? </bold></font>
</li>
<br>
"
);
my @alist = $question->get_node_list('reponse');
foreach my $reponse ( iwpt_dcr_list('question.reponse') )
{
my $reponseLibelle = iwpt_dcr_value('reponse.reponseLibelle') ;
# print $alist[$compteur3]->get_attrib('estCorrecte'), "\n";
my $estCorrecte = $alist[$compteur3]->get_attrib('estCorrecte');
iwpt_output ( "
<input type='radio' name=$compteur1 value=$compteur2
onclick='Engine($compteur1, this.value,
this.estCorrecte)' estCorrecte=$estCorrecte>
<font color='#FF0000'> $compteur2 </font>
$reponseLibelle<br>
");
$compteur2 = $compteur2+1;
$compteur3 = $compteur3+1;
}
$compteur1= $compteur1 + 1;
}
$compteur1= $compteur1 - 1;
iwpt_output ("
<p> </p>
<p><input type='button' name='Resultats'
value='resultats' nombreQuestion='$compteur1'
onclick='NextLevel(this.nombreQuestion)'>
</p>
");
]]></iw_perl>
<p> </p>
<p> </p>
</form>
</body>
</html>
</iw_pt>
