Subversion Repositories wimsdev

# LinkSheet
# Ajoute tous les exercices de la feuille qsheet a l'examen qexam de la classe qclass

# Pour commencer, on verifie la classe
!read scripts/check.class
!if $error!=$empty
  !exit
!endif

# Ensuite, on verifie que la feuille $qsheet existe.
type=sheets
!read scripts/check.proc
!if $error!=$empty
  !exit
!endif

# On verifie que la feuille n'est pas "EN PREPARATION"
sheet_status=!line 1 of $qproperties
!ifval $sheet_status <1
  error=sheet $qsheet must be active
  !exit
!endif

# On enregistre le nombre d'exercices qu'elle contient.
exocnt=!recordcnt $qfile

# Ensuite, on verifie que l'examen $qexam existe.
type=exams
!read scripts/check.proc
!if $error!=$empty
  !exit
!endif

# On verifie que l'examen n'est pas "Actif"
exam_status=!line 1 of $qproperties
!ifval $exam_status >0
  error=exam $qexam mustn't be active
  !exit
!endif

!default exo_dependences=$empty
!default exo_autogen=$empty

exocnt = $[min($exocnt,$MAX_EXOS)]

!for qexo=1 to $exocnt
        # On boucle sur chaque exercice de la feuille
        !read scripts/check.exo
        exo_id=$qsheet.$qexo
        !appendfile wimshome/log/classes/$qclass/exams/.exam$qexam \
:$exo_weight\
$exo_id\
$exo_title\
$exo_dependences\
$exo_autogen\

!next qexo

qexo=ALL
exocnt=!recordcnt wimshome/log/classes/$qclass/exams/.exam$qexam