Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
16087 guerimand 1 
!! -------------- specific process for job=configfw  and type=4
2 
 
3 
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
4 
 
5 
!! ---- delete exercise
6 
!if $job2=delexo and $activetest=0
7 
  !bound exonum between 1 and $nbexo default $empty
8 
  !if $exonum=$empty
9 
    error=badexonumber
10 
    !reset job2
11 
    !exit
12 
  !endif
13 
  data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.freework$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
21 
  success=ok-delexo
22 
  nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
23 
  wims_module_log=class $class: del No$exonum in freework $freework
24 
  !reset job2
25 
!endif
26 
 
27 
 
28 
 
29 
 
30