Subversion Repositories wimsdev

# Utilise pour verifier l'existence d'une feuille ou d'un examen
# Check.proc verifie que l'element #$n de type $type existe

!if $type=$empty
 error no type defined in a check request
 !exit
!endif

!if $type=exams
 type1=exam
 q=!translate internal ./,;?* to $             $ in $qexam
!else
 type1=sheet
 q=!translate internal ./,;?* to $             $ in $qsheet
!endif

# Si le parametre $q contient un caractere special, on abandonne

!if $ $ isin $q
 q=
!endif

listfile=wimshome/log/classes/$qclass/$type/.$type

# On compte le nombre d'elements de type $qtype de la classe $qclass
cnt=!recordcnt $listfile

# Si l'element $q n'existe pas, on abandonne
!if $q=$empty
 error=undefined query id for type $type1
 !exit
!else
 !if  $q>$cnt
  error=element #$q of type $type1 does not exist in this class ($qclass)
  !exit
 !endif
!endif

# L'element existe. on initialise la variable $(type1)_id
!! WARNING : pour l'instant assigner une valeur à la variable wims_sheet fait planter WIMS !!
$(type1)_id=$q
qfile=wimshome/log/classes/$qclass/$type/.$type1$q
qproperties=!record $q of $listfile