Subversion Repositories wimsdev

#Check Exo verifie l'exercice qexo de la feuille

#Pour commencer, on verifie la feuille

type=sheets

!read scripts/check.proc

!if $error!=$empty

 !exit

!endif

#si le parametre qexo contient un caractere special, on abandonne

qexo=!translate internal ./,;?* to $             $ in $qexo

!if $ $ isin $qexo

 qexo=

!endif

#On compte le nombre d'exercices de la feuille qsheet

exocnt=!recordcnt $qfile

#Si l'exo qexo n'existe pas, on abandonne

!if $qexo=$empty

 error=undefined qexo

 !exit

!else

 !if  $qexo>$exocnt

  error=exercice #$qexo does not exist

  !exit

 !endif

!endif

# L'exo existe. on initialise les variables

exo=!record $qexo of $qfile

exo_module=!line 1 of $exo

exo_params=!line 2 of $exo

exo_points=!line 3 of $exo

exo_weight=!line 4 of $exo

exo_title=!line 5 of $exo

exo_description=!line 6 of $exo