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