Subversion Repositories wimsdev

Rev

Rev 9963 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9963 Rev 14384
Line 2... Line 2...
2 
# Ajoute tous les exercices de la feuille qsheet a l'examen qexam de la classe qclass
 2 
# Ajoute tous les exercices de la feuille qsheet a l'examen qexam de la classe qclass
3 
 
 3 
 
4 
#Pour commencer, on verifie la classe
 4 
# Pour commencer, on verifie la classe
5 
!read scripts/check.class
 5 
!read scripts/check.class
6 
!if $error!=$empty
 6 
!if $error!=$empty
7 
 !exit
 7 
  !exit
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
#ensuite, on verifie que la feuille $qsheet existe.
 10 
# Ensuite, on verifie que la feuille $qsheet existe.
11 
type=sheets
 11 
type=sheets
12 
!read scripts/check.proc
 12 
!read scripts/check.proc
13 
!if $error!=$empty
 13 
!if $error!=$empty
14 
 !exit
 14 
  !exit
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
#On verifie que la feuille n'est pas "EN PREPARATION"
 17 
# On verifie que la feuille n'est pas "EN PREPARATION"
18 
sheet_status=!line 1 of $qproperties
 18 
sheet_status=!line 1 of $qproperties
19 
!ifval $sheet_status <1
 19 
!ifval $sheet_status <1
20 
 error=sheet $qsheet must be active
 20 
  error=sheet $qsheet must be active
21 
 !exit
 21 
  !exit
22 
!endif
 22 
!endif
23 
 
 23 
 
24 
#on enregistre le nombre d'exercices qu'elle contient.
 24 
# On enregistre le nombre d'exercices qu'elle contient.
25 
exocnt=!recordcnt $qfile
 25 
exocnt=!recordcnt $qfile
26 
 
 26 
 
27 
#Ensuite, on verifie que l'examen $qexam existe.
 27 
# Ensuite, on verifie que l'examen $qexam existe.
28 
type=exams
 28 
type=exams
29 
!read scripts/check.proc
 29 
!read scripts/check.proc
30 
!if $error!=$empty
 30 
!if $error!=$empty
31 
 !exit
 31 
  !exit
32 
!endif
 32 
!endif
33 
 
 33 
 
34 
#On verifie que l'examen n'est pas "Actif"
 34 
# On verifie que l'examen n'est pas "Actif"
35 
exam_status=!line 1 of $qproperties
 35 
exam_status=!line 1 of $qproperties
36 
!ifval $exam_status >0
 36 
!ifval $exam_status >0
37 
 error=exam $qexam mustn't be active
 37 
  error=exam $qexam mustn't be active
38 
 !exit
 38 
  !exit
39 
!endif
 39 
!endif
40 
 
 40 
 
41 
!default exo_dependences=$empty
 41 
!default exo_dependences=$empty
42 
!default exo_autogen=$empty
 42 
!default exo_autogen=$empty
43 
 
 43 
 
44 
exocnt = $[min($exocnt,$MAX_EXOS)]
 44 
exocnt = $[min($exocnt,$MAX_EXOS)]
45 
 
 45 
 
46 
!for qexo=1 to $exocnt
 46 
!for qexo=1 to $exocnt
47 
	#On boucle sur chaque exercice de la feuille
 47 
	# On boucle sur chaque exercice de la feuille
48 
	!read scripts/check.exo
 48 
	!read scripts/check.exo
49 
	exo_id=$qsheet.$qexo
 49 
	exo_id=$qsheet.$qexo
50 
	!appendfile wimshome/log/classes/$qclass/exams/.exam$qexam \
 50 
	!appendfile wimshome/log/classes/$qclass/exams/.exam$qexam \
51 
:$exo_weight\
 51 
:$exo_weight\
52 
$exo_id\
 52 
$exo_id\