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
!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