Subversion Repositories wimsdev

Rev

Rev 4118 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4118 Rev 11661
Line 1... Line 1...
1 
#Check.ExoClass verifie l'existence de l'exercice qexo dans la classe qclass
 1 
# Check.ExoClass verifie l'existence de l'exercice qexo dans la classe qclass
2 
 
 2 
 
3 
#On ne commence que si la classe existe
 3 
# On ne commence que si la classe existe
4 
!read scripts/check.class
 4 
!read scripts/check.class
5 
!if $error!=$empty
 5 
!if $error!=$empty
6 
 !exit
 6 
 !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
#Si le parametre qexo contient des caracteres illegaux, on abandonne
 9 
# Si le parametre qexo contient des caracteres illegaux, on abandonne
10 
badchars=!text select ?*#~!@ in $qexo
 10 
badchars=!text select ?*#~!@ in $qexo
11 
!if .. isin $qexo or $badchars!=$empty
 11 
!if .. isin $qexo or $badchars!=$empty
12 
 error=illegal file name for qexo
 12 
 error=illegal file name for qexo
13 
 !exit
 13 
 !exit
14 
!endif
 14 
!endif
Line 17... Line 17...
17 
!if $qexo=$empty
 17 
!if $qexo=$empty
18 
 error=undefined qexo
 18 
 error=undefined qexo
19 
 !exit
 19 
 !exit
20 
!endif
 20 
!endif
21 
 
 21 
 
22 
#reste a verifier que l'on ecrase pas un exo existant
 22 
# Reste a verifier que l'on ecrase pas un exo existant
23 
# !readdef wimshome/log/classes/$qclass/Exindex
 23 
# !readdef wimshome/log/classes/$qclass/Exindex
24 
#ici les securites wims empechent de traiter le fichier Exindex. On contourne donc en listant les fichiers du dossier def/
 24 
# Ici, les securites wims empechent de traiter le fichier Exindex. On contourne donc en listant les fichiers du dossier def/
25 
# (au passage, on cree le dossier def/ (s'il n'existe pas deja) : on s'assure ainsi de lister le bon dossier:
 25 
# (au passage, on cree le dossier def/ (s'il n'existe pas deja) : on s'assure ainsi de lister le bon dossier:
26 
!sh mkdir $wims_class_dir/def
 26 
!sh mkdir $wims_class_dir/def
27 
exolist=!sh cd $wims_class_dir/def; ls | sort
 27 
exolist=!sh cd $wims_class_dir/def; ls | sort
28 
exolist=!translate  .def  to $$ in $exolist
 28 
exolist=!translate  .def  to $$ in $exolist
29 
 
 29 
 
30 
#on supprime un eventuel ".def" du parametre qexo
 30 
# On supprime un eventuel ".def" du parametre qexo
31 
qexo=!translate  .def  to $$ in $qexo
 31 
qexo=!translate  .def  to $$ in $qexo
32 
 
 32 
 
33 
# Puis on le compare a la liste d'exos existants
 33 
# Puis on le compare a la liste d'exos existants
34 
!if $qexo islineof $exolist
34 
!if $qexo islineof $exolist
35 
  exo_exists=yes
 35 
  exo_exists=yes
36 
!else
 36 
!else
37 
  exo_exists=no
 37 
  exo_exists=no
38 
!endif
 38 
!endif