Subversion Repositories wimsdev

# GetExam
# Fournit les informations de l'examen qexam


#Pour commencer, on verifie la classe
!read scripts/check.class
!if $error!=$empty
 !exit
!endif

#puis on verifie l'exam qexam
type=exams
!read scripts/check.proc
!if $error!=$empty
 !exit
!endif

exocnt=!recordcnt $qfile
exam_properties=!lines2items $qproperties\


opening_file=$wims_home/log/classes/$qclass/.E$qexam
exam_opening=!sh cat $opening_file
exam_properties=$exam_opening,$exam_properties,

exam_status = !line 1 of $qproperties
exam_expiration = !line 2 of $qproperties
line3 = !line 3 of $qproperties
exam_duration= !word 1 of $line3
exam_attempts = !word 2 of $line3
exam_title = !line 4 of $qproperties
exam_description = !line 5 of $qproperties
exam_cut_hours = !line 6 of $qproperties

########################
#FORMAT OF exam_properties :
#exam_properties=opening,status,expiration,Duration & Attempts,Title,Description,cut hours
#######################
#FORMAT of an EXO in an EXAM :
#:WEIGHT
#IDSCHEET.IDEXO, IDSCHEET.IDEXO, IDSCHEET.IDEXO, ...
#TITLE_EXO
#DEPENDENCES
#autogen

!for i=1 to $exocnt
 exo=!record $i of $qfile
 exo_weight=!line 1 of $exo
 exo_ids=!line 2 of $exo
 exo_title=!line 3 of $exo
 exo_dependences=!line 4 of $exo
 exo_autogen=!line 5 of $exo
 
 !if $exolist!=$empty
  exolist=$exolist,$i
  exotitlelist=$exotitlelist$separator$i:$exo_title
 !else 
  exolist=$i
  exotitlelist=$i:$exo_title
 !endif
!next i

#on ajoute "duration" et "attempts" de manire sŽparŽe
examdefs=$examdefs,duration,attempts
option=!listintersect $option and $examdefs
!if $option=$empty
 option=$examdefs
!endif