Subversion Repositories wimsdev

# DelExo :

# Supprime l'exercice qexo de 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'exo existe

# Ici, Wims empeche de traiter le fichier Exindex.

# !readdef wimshome/log/classes/$qclass/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

!if $qexo notlineof $exolist

  error=$qexo NOT exists in this Class !

  !exit

!endif

#######

# On supprime notre fichier d'exercice dans la classe :

# rm -f : Pas de confirmation d'effacement, pas de diagnostic, pas de code d'erreur lorsqu'un fichier n'existe pas.

# rm -R Efface recursivement les sous-repertoires.

!sh rm -f $wims_class_dir/src/$qexo.oef

!sh rm -f $wims_class_dir/def/$qexo.def

!sh rm -fR $wims_class_dir/src/images/$qexo

# l'option "no_build" permet de gagner du temps sur une suppression multiple,

# mais ne pas oublier d'appeler buildexos ensuite !

!if $option notsametext no_build

  # puis on supprime les indexes

  !sh rm $wims_class_dir/Exindex

  !sh rm $wims_class_dir/Extitles

  !sh rm $wims_class_dir/Exauthors

  # et on les reconstruit :

  compilation=!sh cd $wims_class_dir;. $wims_home/public_html/scripts/oef/mkindex

  compilation=!lines2items $compilation

!endif