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 |