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