Subversion Repositories wimsdev

Rev

Rev 16087 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
16307 guerimand 1
!! -------------- delete an exo in type=3 zonetype=exowims
16087 guerimand 2
 
16307 guerimand 3
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
16087 guerimand 4
!! ---- delete exercise
16307 guerimand 5
!if $activetest=0
16087 guerimand 6
  !bound exonum between 1 and $nbexo default $empty
7
  !if $exonum=$empty
8
    error=badexonumber
16307 guerimand 9
    job=configfw
10
    !changeto $job.proc
16087 guerimand 11
  !endif
16307 guerimand 12
  data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
13
  !read adm/recorddel $exonum wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
16087 guerimand 14
  success=ok-delexo
16307 guerimand 15
  nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
16087 guerimand 16
  wims_module_log=class $class: del No$exonum in freework $freework
16307 guerimand 17
  job=configfw
18
  !changeto $job.proc
16087 guerimand 19
!endif