Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
3261 | obado | 1 | ############# listlinks.proc ################## |
2 | #permet de lister le nombre d'exercices de la feuille qsheet lies a l'examen qexam |
||
3 | #Pre-requis : $qsheet et $qexam existent |
||
4 | |||
5 | ############################## |
||
6 | #FORMAT of an EXO in an EXAM : |
||
7 | #:WEIGHT |
||
8 | #IDSCHEET.IDEXO,IDSCHEET.IDEXO |
||
9 | #TITLE_EXO |
||
10 | #DEPENDENCES |
||
11 | #autogen |
||
12 | |||
13 | exam_file=wimshome/log/classes/$qclass/exams/.exam$qexam |
||
14 | |||
15 | nblink=0 |
||
16 | listlinks=$empty |
||
17 | exo_in_exam_cnt=!recordcnt $exam_file |
||
18 | |||
19 | !for aa=1 to $exo_in_exam_cnt |
||
20 | record=!record $aa of $exam_file |
||
21 | list_exo=!line 2 of $record |
||
22 | cnt2=!itemcnt $list_exo |
||
23 | !for bb=1 to $cnt2 |
||
24 | exo=!item $bb of $list_exo |
||
25 | #On separe $exo au "." (on remplace les points par des virgules) |
||
26 | exo_l=!translate . to , in $exo |
||
27 | exo_sheet=!item 1 of $exo_l |
||
28 | !if $exo_sheet=$qsheet |
||
29 | !increase nblink |
||
30 | !if $listlinks=$empty |
||
31 | listlinks=$exo |
||
32 | !else |
||
33 | listlinks=$listlinks,$exo |
||
34 | !endif |
||
35 | !endif |
||
36 | !next bb |
||
37 | !next aa |