Rev 9963 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9963 | Rev 13228 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | # AddExam |
1 | # AddExam |
2 | # permet d'ajouter un examen dans la classe qclass |
2 | # permet d'ajouter un examen dans la classe qclass |
3 | 3 | ||
4 | !read scripts/check.class |
4 | !read scripts/check.class |
5 | !if $error!=$empty |
5 | !if $error!=$empty |
6 | !exit |
6 | !exit |
7 | !endif |
7 | !endif |
8 | 8 | ||
9 | ################################# |
9 | ################################# |
10 | FORMAT OF THE /exams/.exams INDEX FILE : |
10 | FORMAT OF THE /exams/.exams INDEX FILE : |
11 | #:EXAM STATUS |
11 | #:EXAM STATUS |
Line 30... | Line 30... | ||
30 | # IP/Hours/Both - open for IP and/or hours defined |
30 | # IP/Hours/Both - open for IP and/or hours defined |
31 | ###################################################### |
31 | ###################################################### |
32 | 32 | ||
33 | examcnt=!recordcnt wimshome/log/classes/$qclass/exams/.exams |
33 | examcnt=!recordcnt wimshome/log/classes/$qclass/exams/.exams |
34 | !if $examcnt >= $MAX_EXAMS |
34 | !if $examcnt >= $MAX_EXAMS |
35 | error= error : The number of exams is limited to $MAX_EXAMS. You may not create exam #$[$examcnt+1]. |
35 | error= error : The number of exams is limited to $MAX_EXAMS. You may not create exam #$[$examcnt+1]. |
36 | !exit |
36 | !exit |
37 | !endif |
37 | !endif |
38 | 38 | ||
39 | data1=!nonempty lines $data1 |
39 | data1=!nonempty lines $data1 |
40 | n1=!linecnt $data1 |
40 | n1=!linecnt $data1 |
41 | !for i=1 to $n1 |
41 | !for i=1 to $n1 |
42 | l=!line $i of $data1 |
42 | l=!line $i of $data1 |
43 | l=!translate = to $\ |
43 | l=!translate = to $\ |
44 | $ in $l |
44 | $ in $l |
45 | !distribute lines $l into n_,v_ |
45 | !distribute lines $l into n_,v_ |
46 | exam_$n_=$v_ |
46 | exam_$n_=$v_ |
47 | !next i |
47 | !next i |
48 | 48 | ||
49 | exam_creation=!char 1 to 8 of $wims_now |
49 | exam_creation=!char 1 to 8 of $wims_now |
50 | exam_creation=!eval $exam_creation |
50 | exam_creation=!eval $exam_creation |
51 | !default exam_expiration=$[$exam_creation+10000] |
51 | !default exam_expiration=$[$exam_creation+10000] |
Line 84... | Line 84... | ||
84 | $exam_cut_hours |
84 | $exam_cut_hours |
85 | 85 | ||
86 | examcnt=!recordcnt wimshome/log/classes/$qclass/exams/.exams |
86 | examcnt=!recordcnt wimshome/log/classes/$qclass/exams/.exams |
87 | 87 | ||
88 | !if $examcnt!=$nb |
88 | !if $examcnt!=$nb |
89 | error= error in exam count ($examcnt records / $nb files) |
89 | error= error in exam count ($examcnt records / $nb files) |
90 | !exit |
90 | !exit |
91 | !endif |
91 | !endif |
92 | 92 | ||
93 | !writefile wimshome/log/classes/$qclass/exams/.exam$examcnt |
93 | !writefile wimshome/log/classes/$qclass/exams/.exam$examcnt |
94 | !writefile wimshome/log/classes/$qclass/.E$examcnt $exam_opening |
94 | !writefile wimshome/log/classes/$qclass/.E$examcnt $exam_opening |
95 | 95 | ||
96 |
|
96 | exam_id=$examcnt |