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