Subversion Repositories wimsdev

Rev

Rev 15342 | Rev 15870 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15342 Rev 15746
Line 125... Line 125...
125 
  !if $retest=again
 125 
  !if $retest=again
126 
    !reset status retest oef_default
 126 
    !reset status retest oef_default
127 
  !endif
 127 
  !endif
128 
!else
 128 
!else
129 
  !read $(class_header)Exindex
 129 
  !read $(class_header)Exindex
- 
 
 130 
  !! FIXME
- 
 
 131 
  !! mis pour mémoire, pour l'instant rien n'est changé.
- 
 
 132 
  !! essai de réparation de la perte de special_parm3
- 
 
 133 
  !! on trafique ensuite module_init_parm et special_parm3
- 
 
 134 
  !! mais si special_parm3 existe on n'en fait rien !
130 
  exocnt=!itemcnt $exolist
 135 
  exocnt=!itemcnt $exolist
- 
 
 136 
  !!!if $special_parm3!=$empty
- 
 
 137 
  !!  !read getparm $special_parm3 qnum
- 
 
 138 
  !!  qnum=$get_qnum
- 
 
 139 
  !!!else
131 
  !bound qnum between integer 1 and 9 default 1
 140 
  !bound qnum between integer 1 and 9 default 1
132 
  !bound qcmlevel between integer 1 and 9 default 3
 141 
  !bound qcmlevel between integer 1 and 9 default 3
133 
  !bound random within 0,1 default 1
 142 
  !bound random within 0,1 default 1
134 
  tmp=!replace internal & by ; in $module_init_parm
 143 
  tmp=!replace internal & by ; in $module_init_parm
135 
  !! URL encode \n
 144 
  !! URL encode \n
136 
  tmp=!replace internal $\
 145 
  tmp=!replace internal $\
137 
$ by %0A in $tmp
 146 
$ by %0A in $tmp
138 
 
 147 
 
139 
  tmp=intro_check=$intro_check;random=$random;$tmp
 148 
    tmp=intro_check=$intro_check;random=$random;$tmp
140 
  tmp=!replace internal scoredelay=; by scoredelay=0; in $tmp
 149 
    tmp=!replace internal scoredelay=; by scoredelay=0; in $tmp
141 
  #tmp=!replace internal exo=; by exo=0; in $tmp
 150 
    #tmp=!replace internal exo=; by exo=0; in $tmp
142 
  special_parm3=!nospace $tmp
 151 
    special_parm3=!nospace $tmp
- 
 
 152 
  !!!endif
143 
  !if $scoredelay!=$empty and $scoredelay!=0
 153 
  !if $scoredelay!=$empty and $scoredelay!=0
144 
    d_=!items2words $scoredelay
 154 
    d_=!items2words $scoredelay
145 
    !distribute words $d_ into delay1,delay2
 155 
    !distribute words $d_ into delay1,delay2
146 
    !bound delay1 between integer 0 and 2000 default 0
 156 
    !bound delay1 between integer 0 and 2000 default 0
147 
    !bound delay2 between integer $delay1 and 2000
 157 
    !bound delay2 between integer $delay1 and 2000