Subversion Repositories wimsdev

Rev

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

Rev 16087 Rev 16307
Line 1... Line 1...
1 
!! -------------- specific process for job=configfw  and type=4
 1 
!! -------------- delete an exo in type=3 zonetype=exowims
2 
 
 - 
 
3 
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 - 
 
4 
 
 2 
 
- 
 
 3 
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
5 
!! ---- delete exercise
 4 
!! ---- delete exercise
6 
!if $job2=delexo and $activetest=0
 5 
!if $activetest=0
7 
  !bound exonum between 1 and $nbexo default $empty
 6 
  !bound exonum between 1 and $nbexo default $empty
8 
  !if $exonum=$empty
 7 
  !if $exonum=$empty
9 
    error=badexonumber
 8 
    error=badexonumber
10 
    !reset job2
 9 
    job=configfw
11 
    !exit
 10 
    !changeto $job.proc
12 
  !endif
 11 
  !endif
13 
  data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.freework$freework
 12 
  data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
14 
  data=!line 1 of $data
 - 
 
15 
  !if $data=solution
- 
 
16 
     error=badexonumber
 - 
 
17 
    !reset job2
 - 
 
18 
    !exit
 - 
 
19 
  !endif
 - 
 
20 
  !read adm/recorddel $exonum wimshome/log/classes/$wims_class/freeworks/.freework$freework
 13 
  !read adm/recorddel $exonum wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
21 
  success=ok-delexo
 14 
  success=ok-delexo
22 
  nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 15 
  nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
23 
  wims_module_log=class $class: del No$exonum in freework $freework
 16 
  wims_module_log=class $class: del No$exonum in freework $freework
- 
 
 17 
  job=configfw
24 
  !reset job2
 18 
  !changeto $job.proc
25 
!endif
 19 
!endif
26 
 
 - 
 
27 
 
 - 
 
28 
 
 - 
 
29 
 
 - 
 
30 
 
 -