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 |