Subversion Repositories wimsdev

Rev

Rev 5205 | Rev 5215 | 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
13
 if $nb>0
14
  sheets=!append line $i,$nb,$title to $sheets
15
 !endif
16
!next i
17
sheetcnt=!linecnt $sheets
18
 
19
!if $step=0
20
 !ifval $sheetcnt=0
21
  error=no_sheet
22
  !exit
23
 !endif
24
 !bound picksheet between 1 and $sheetcnt default 1
25
 !exit
26
!endif
27
 
28
!if $step=1
29
 !bound picksheet between 1 and $sheetcnt default 0
30
 !bound exo between 1 and $nb default 0
31
 !ifval $exo*$picksheet=0
32
  error=bad_exo
33
  !exit
34
 !endif
35
 update_field=9
36
 t=cmd=new
37
 !if $t notin $iniparm
5211 guerimand 38
  update_content=module=$dir&$iniparm&cmd=new,$note
5205 guerimand 39
 !else
40
  update_content=module=$dir&$iniparm,$note
41
 !endif
42
 sheet=$picksheet
43
 !read adm/class/update.exo
44
 title=!module title $dir
45
 desc=!module description $dir
46
!endif
47
 
48