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 

#Pour commencer, on verifie la classe

!read scripts/check.class

!if $error!=$empty

 !exit

!endif

!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 for type $type1

 !exit

!else

 !if  $q>$cnt

  error=element of type $type1 #$q does not exist in class #$qclass

  !exit

 !endif

!endif

# L'element existe. on initialise la varible wims_$type1

wims_$type1=$q

qfile=wimshome/log/classes/$qclass/$type/.$type1$q

qproperties=!record $q of $listfile