Subversion Repositories wimsdev

Rev

Rev 5215 | Rev 9675 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5205 guerimand 1
!! add help to a series of exercise of a sheet
2
!!
3
 
4
!default step=0
5
!default picksheet=1
6
!bound note between 0 and 10 default 10
7
 
8
sheets=
9
!for i=1 to $sheettot
10
 sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
11
 !distribute lines $sh into a_,t_,title
12
 nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
5215 guerimand 13
 !if $nb>0
5205 guerimand 14
  sheets=!append line $i,$nb,$title to $sheets
15
 !endif
16
!next i
17
sheetcnt=!linecnt $sheets
5215 guerimand 18
lnumsheet=!column 1 of $sheets
5205 guerimand 19
 
20
!if $step=0
21
 !ifval $sheetcnt=0
22
  error=no_sheet
23
  !exit
24
 !endif
5215 guerimand 25
 !bound picksheet within $lnumsheet default $(lnumsheet[1])
5205 guerimand 26
 !exit
27
!endif
28
 
29
!if $step=1
5215 guerimand 30
 !bound picksheet within $lnumsheet default 0
5205 guerimand 31
 !bound exo between 1 and $nb default 0
32
 !ifval $exo*$picksheet=0
33
  error=bad_exo
34
  !exit
35
 !endif
36
 update_field=9
37
 t=cmd=new
38
 !if $t notin $iniparm
5211 guerimand 39
  update_content=module=$dir&$iniparm&cmd=new,$note
5205 guerimand 40
 !else
41
  update_content=module=$dir&$iniparm,$note
42
 !endif
43
 sheet=$picksheet
44
 !read adm/class/update.exo
45
 title=!module title $dir
46
 desc=!module description $dir
47
!endif