Subversion Repositories wimsdev

#### !language independant
###
### this job allow to launch series of exercices with menu items link

directworksheet=!replace internal . by , in $directworksheet
!distribute item $directworksheet into sh,exo
!if P isin $sh
  sh=!char 2 to -1 of $sh
  don=!record 0 of wimshome/$wims_sesdir/.sheets
  don=!line $sh of $don
  file=wimshome/public_html/bases/sheet/$don.def
!else
  maxsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  !bound sh between 1 and $maxsh default $empty
  file=wimshome/log/classes/$wims_class/sheets/.sheet$sh
!endif

maxexo=!recordcnt $file
!setdef wims_sheetmax=$maxexo in wimshome/sessions/$wims_session/var.stat

!bound exo between 1 and $maxexo default $empty
!if $sh!=$empty and $exo!=$empty
  requires=!getscorerequire sheet=$sh
  means=!getscoremean sheet=$sh
  scores=!getscore sheet=$sh
  !readproc adm/mkdepsheet.proc $sh
  dep=!row $exo of $deps
  dep=!trim $dep
  !if $dep!=$empty
    !exit
  !endif
  d=!record $exo of $file
  !distribute line $d into r1,r2,r3
  !restart module=$r1&cmd=new&worksheet=$(directworksheet[1])&$r2
!endif