Subversion Repositories wimsdev

# Check.ExoClass verifie l'existence de l'exercice qexo dans la classe qclass

# On ne commence que si la classe existe

!read scripts/check.class

!if $error!=$empty

 !exit

!endif

# Si le parametre qexo contient des caracteres illegaux, on abandonne

badchars=!text select ?*#~!@ in $qexo

!if .. isin $qexo or $badchars!=$empty

 error=illegal file name for qexo

 !exit

!endif

#Si le parametre qexo n'existe pas, on abandonne

!if $qexo=$empty

 error=undefined qexo

 !exit

!endif

# Reste a verifier que l'on ecrase pas un exo existant

# !readdef wimshome/log/classes/$qclass/Exindex

# Ici, les securites wims empechent de traiter le fichier Exindex. On contourne donc en listant les fichiers du dossier def/

# (au passage, on cree le dossier def/ (s'il n'existe pas deja) : on s'assure ainsi de lister le bon dossier:

!sh mkdir $wims_class_dir/def

exolist=!sh cd $wims_class_dir/def; ls | sort

exolist=!translate  .def  to $$ in $exolist

# On supprime un eventuel ".def" du parametre qexo

qexo=!translate  .def  to $$ in $qexo

# Puis on le compare a la liste d'exos existants

!if $qexo islineof $exolist

  exo_exists=yes

!else

  exo_exists=no

!endif