Subversion Repositories wimsdev

Rev

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

Rev 10432 Rev 11462
Line 21... Line 21...
21 
!if $cmd iswordof reply new resume renew
 21 
!if $cmd iswordof reply new resume renew
22 
   error=
 22 
   error=
23 
   dossier=type
 23 
   dossier=type
24 
   !if $example=0 or $example=
 24 
   !if $example=0 or $example=
25 
      !if $debut=1
 25 
      !if $debut=1
26 
         !reset mtype
 - 
 
27 
         !reset N
 - 
 
28 
         !reset M
 - 
 
29 
         !reset source
 26 
         !reset mtype N M source
30 
          compute=no
 27 
          compute=no
31 
      !else
 28 
      !else
32 
          !for a in title,author,email,file,source
 29 
          !for a in title,author,email,file,source
33 
              !if $($a)=$empty
 30 
              !if $($a)=$empty
34 
                 error= $error $a
 31 
                 error= $error $a
Line 148... Line 145...
148 
     mod=!record 0 of $dossier/$a
 145 
     mod=!record 0 of $dossier/$a
149 
     modele =$modele\
 146 
     modele =$modele\
150 
     $mod
 147 
     $mod
151 
   !next
 148 
   !next
152 
 
 149 
 
153 
   modele=!replace internal IMAGES by $image_tag in  $modele
 150 
   modele=!replace internal IMAGES by $image_tag in $modele
154 
   modele=!replace internal VIDEO by $video_tag in  $modele
 151 
   modele=!replace internal VIDEO by $video_tag in $modele
155 
   modele=!replace internal READING by $reading_tag in  $modele
 152 
   modele=!replace internal READING by $reading_tag in $modele
156 
   modele=!replace internal _image_dir by \imagedir in  $modele
 153 
   modele=!replace internal _image_dir by \imagedir in $modele
157 
 
 154 
 
158 
   !for a in title,email,author
 155 
   !for a in title,email,author
159 
     b=!trim $($a)
 156 
     b=!trim $($a)
160 
     modele=!replace internal \$a{} by \$a{$b} in  $modele
 157 
     modele=!replace internal \$a{} by \$a{$b} in $modele
161 
   !next
 158 
   !next
162 
  !setdef quick_title=$title in wimshome/$sesdir/var.stat
 159 
  !setdef quick_title=$title in wimshome/$sesdir/var.stat
163 
  !setdef quick_source=$source in wimshome/$sesdir/var.stat
 160 
  !setdef quick_source=$source in wimshome/$sesdir/var.stat
164 
  !for a in file, reading_file, audio_file, image_file, video_file,N, M, MAX,try,alea,\
 161 
  !for a in file, reading_file, audio_file, image_file, video_file,N, M, MAX,try,alea,\
165 
      instruction,instruction2,\
 162 
      instruction,instruction2,\
Line 167... Line 164...
167 
      size,qcm_prompt1,qcm_prompt2,sens,aucune,partialscore,paste,\
 164 
      size,qcm_prompt1,qcm_prompt2,sens,aucune,partialscore,paste,\
168 
      specialhelp1,specialhelp2,specialhelp3,specialhelp4,helpprompt,reaccent,packs,player,\
 165 
      specialhelp1,specialhelp2,specialhelp3,specialhelp4,helpprompt,reaccent,packs,player,\
169 
        good_answer_text,bad_answer_text,incomplete_answer_text
 166 
        good_answer_text,bad_answer_text,incomplete_answer_text
170 
     b=!trim $($a)
 167 
     b=!trim $($a)
171 
     !setdef quick_$a=$b in wimshome/$sesdir/var.stat
 168 
     !setdef quick_$a=$b in wimshome/$sesdir/var.stat
172 
     modele=!replace internal \text{$a=} by \text{$a=$b} in  $modele
 169 
     modele=!replace internal \text{$a=} by \text{$a=$b} in $modele
173 
   !next
 170 
   !next
174 
   !for a in style_question,style_reponse,style_oef,style_css
 171 
   !for a in style_question,style_reponse,style_oef,style_css
175 
     b=!replace internal $\
 172 
     b=!replace internal $\
176 
$ by 	 in $($a)
 173 
$ by 	 in $($a)
177 
     b=!trim $b
 174 
     b=!trim $b
178 
     !setdef quick_$a=$b in wimshome/$sesdir/var.stat
 175 
     !setdef quick_$a=$b in wimshome/$sesdir/var.stat
179 
     modele=!replace internal _$a by $b in $modele
 176 
     modele=!replace internal _$a by $b in $modele
180 
   !next
 177 
   !next
181 
   modele=!replace internal \text{player_option=} by \text{player_option=$player_option autostart="false" loop="false"} in $modele
 178 
   modele=!replace internal \text{player_option=} by \text{player_option=$player_option} in $modele
182 
   modele=!replace internal \text{instruction=asis()} by \text{instruction=asis($instruction)} in $modele
 179 
   modele=!replace internal \text{instruction=asis()} by \text{instruction=asis($instruction)} in $modele
183 
   modele=!replace internal \text{instruction2=asis()} by \text{instruction2=asis($instruction2)} in $modele
 180 
   modele=!replace internal \text{instruction2=asis()} by \text{instruction2=asis($instruction2)} in $modele
184 
   modele=!replace internal \text{file=randitem()} by \text{file=randitem($($file))} in $modele
 181 
   modele=!replace internal \text{file=randitem()} by \text{file=randitem($($file))} in $modele
185 
   !if yes iswordof $reading_file1 $image_file1
 182 
   !if yes iswordof $reading_file1 $image_file1
186 
     help = !record 0 of $dossier/HELP
 183 
     help = !record 0 of $dossier/HELP
187 
     !if $raw=1
 184 
     !if $raw=1
188 
       help=!replace internal RAW(reading) by \special{expandlines \reading} in  $help
 185 
       help=!replace internal RAW(reading) by \special{expandlines \reading} in  $help
189 
     !else
 186 
     !else
190 
       help=!replace internal RAW(reading) by \reading in  $help
 187 
       help=!replace internal RAW(reading) by \reading in $help
191 
     !endif
 188 
     !endif
192 
   !endif
 189 
   !endif
193 
   modele = $modele $help
 190 
   modele = $modele $help
194 
   exo=$modele
 191 
   exo=$modele
195 
   exo1 = !replace internal & by & in $exo
 192 
   exo1 = !replace internal & by & in $exo