Subversion Repositories wimsdev

# MovExo :

# Deplace l'exercice qexo de la classe $qclass a la classe $data1, a condition que les 2 classes soient liees a $rclass

# $option peut contenir le mot "copy" pour copier le fichier au lieu de le deplacer.

!read scripts/check.class

!if $error!=$empty

 !exit

!endif

src_class=$qclass

src_class_dir=$wims_class_dir

qclass=$data1

!read scripts/check.class

!if $error!=$empty

 !exit

!endif

!readdef $classdeffile

!if $class_type>0

  # on n'ajoute un exercice que si la destination est une simple classe

  error=class $qclass is a superclass

  !exit

!endif

#######

# On cree le dossiers src/ (s'il n'existe pas) pour pouvoir y placer notre exercice :

!sh mkdir $wims_class_dir/src

tool=mv

action=moved

!if copy iswordof $option

 tool=cp

 action=copied

!endif

# On deplace (ou copie) alors notre fichier d'exercice dans la nouvelle classe :

log=!sh $tool $src_class_dir/src/$qexo.oef $wims_class_dir/src/

# puis on reconstruit les index (au passage, on compile les exercices)

!if $tool!=cp

	!sh rm $src_class_dir/Exindex

	!sh rm $src_class_dir/Extitles

	compil_src = !sh cd $src_class_dir;. $wims_home/public_html/scripts/oef/mkindex

	compil_src = !lines2items $compil_src

	result_compil=!item 2 of $compil_src

	!if ERROR isin $result_compil

	  error = Compilation dans la classe Source : $result_compil

	  # On supprime alors l'exercice defectueux

	  !sh rm $src_class_dir/src/$qexo.oef

	  !exit

	!endif

!endif

!sh rm $wims_class_dir/Exindex

!sh rm $wims_class_dir/Extitles

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

compil_dest = !lines2items $compil_dest

result_compil=!item 2 of $compil_dest

!if ERROR isin $result_compil

  error = COMPILATION $result_compil

  #On supprime alors l'exercice defectueux

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

!endif