Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

!! -------------- specific process for job=configfw  and type=4

nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework

!! ---- delete exercise
!if $job2=delexo and $activetest=0
  !bound exonum between 1 and $nbexo default $empty
  !if $exonum=$empty
    error=badexonumber
    !reset job2
    !exit
  !endif
  data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.freework$freework
  data=!line 1 of $data
  !if $data=solution 
     error=badexonumber
    !reset job2
    !exit
  !endif
  !read adm/recorddel $exonum wimshome/log/classes/$wims_class/freeworks/.freework$freework
  success=ok-delexo
  nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
  wims_module_log=class $class: del No$exonum in freework $freework
  !reset job2
!endif