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