Subversion Repositories wimsdev

Rev

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