Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!!! fichier de récupération de code source !!!
2
 
3
!mexec catsrc.sh
4
 
5
!defread wimshome/sessions/$wims_session/tempsrc
6
 
7
!if $toef_var4!=1
8
 exalert=$(alerts[6;])
9
  !exit
10
!endif
11
 
12
!for i=1 to $toef_varcnt
13
  toef_var$(i)=!translate ¶ to $\
14
  $ in $(toef_var$(i))
15
  toef_var$(i)=!replace internal ? by ? in $(toef_var$(i))
16
!next i
17
 
18
### type1
19
!if $toef_var4=1
20
  titre=$toef_var1
21
  auteur=$toef_var2
22
  imel=$toef_var3
23
  exo=$toef_var4
24
  obsrecord=$toef_var5
25
  propsrecord=$toef_var6
26
  propsrepList=$toef_var7
27
  ckchnb=$toef_var8
28
  fixchnb=$toef_var9
29
  borng=$toef_var10
30
  bornd=$toef_var11
31
  chnb=$toef_var12
32
  enonceR=$toef_var13
33
  chbox_u_radio=$toef_var14
34
  indicList=$toef_var15
35
!endif
36
 
37
### reinitialisation
38
chexo=1
39
prefixdir=Dirqcm
40
!read $prefixdir/init
41
!exit