Subversion Repositories wimsdev

!! add help to a series of exercise of a sheet
!!

!default step=0
!default picksheet=1
!bound note between 0 and 10 default 10

sheets=
!for i=1 to $sheettot
 sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 !distribute lines $sh into a_,t_,title
 nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 !if $nb>0
  sheets=!append line $i,$nb,$title to $sheets
 !endif
!next i
sheetcnt=!linecnt $sheets
lnumsheet=!column 1 of $sheets

!if $step=0
 !ifval $sheetcnt=0
  error=no_sheet
  !exit
 !endif
 !bound picksheet within $lnumsheet default $(lnumsheet[1])
 !exit
!endif

!if $step=1
 !bound picksheet within $lnumsheet default 0
 !bound exo between 1 and $nb default 0
 !ifval $exo*$picksheet=0
  error=bad_exo
  !exit
 !endif
 update_field=9
 t=cmd=new
 !if $t notin $iniparm
  update_content=module=$dir&$iniparm&cmd=new,$note
 !else
  update_content=module=$dir&$iniparm,$note
 !endif
 sheet=$picksheet
 !read adm/class/update.exo
 title=!module title $dir
 desc=!module description $dir
!endif