Subversion Repositories wimsdev

#############      listlinks.proc      ##################

#permet de lister le nombre d'exercices de la feuille qsheet lies a l'examen qexam 

#Pre-requis : $qsheet et $qexam existent

##############################

#FORMAT of an EXO in an EXAM :

#:WEIGHT

#IDSCHEET.IDEXO,IDSCHEET.IDEXO

#TITLE_EXO

#DEPENDENCES

#autogen

exam_file=wimshome/log/classes/$qclass/exams/.exam$qexam

nblink=0

listlinks=$empty

exo_in_exam_cnt=!recordcnt $exam_file

!for aa=1 to $exo_in_exam_cnt

 record=!record $aa of $exam_file

 list_exo=!line 2 of $record

 cnt2=!itemcnt $list_exo 

 !for bb=1 to $cnt2

  exo=!item $bb of $list_exo

  #On separe $exo au "." (on remplace les points par des virgules)

  exo_l=!translate . to , in $exo

  exo_sheet=!item 1 of $exo_l

  !if $exo_sheet=$qsheet

   !increase nblink

   !if $listlinks=$empty

    listlinks=$exo

   !else

    listlinks=$listlinks,$exo

   !endif

  !endif

 !next bb

!next aa