Rev 9675 | Rev 12595 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9675 | Rev 12489 | ||
|---|---|---|---|
| Line 5... | Line 5... | ||
| 5 | !default picksheet=1 |
5 | !default picksheet=1 |
| 6 | !bound note between 0 and 10 default 10 |
6 | !bound note between 0 and 10 default 10 |
| 7 | 7 | ||
| 8 | sheets= |
8 | sheets= |
| 9 | !for i=1 to $sheettot |
9 | !for i=1 to $sheettot |
| 10 | sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets |
10 | sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets |
| 11 | !distribute lines $sh into a_,t_,title |
11 | !distribute lines $sh into a_,t_,title |
| 12 | nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i |
12 | nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i |
| 13 | sheets=!append line $i,$nb,$title to $sheets |
13 | sheets=!append line $i,$nb,$title to $sheets |
| 14 | !next i |
14 | !next i |
| 15 | sheetcnt=!linecnt $sheets |
15 | sheetcnt=!linecnt $sheets |
| 16 | lnumsheet=!column 1 of $sheets |
16 | lnumsheet=!column 1 of $sheets |
| 17 | 17 | ||
| 18 | !if $step=0 |
18 | !if $step=0 |
| 19 | !ifval $sheetcnt=0 |
19 | !ifval $sheetcnt=0 |
| 20 | error=no_sheet |
20 | error=no_sheet |
| - | 21 | !exit |
|
| - | 22 | !endif |
|
| - | 23 | !bound picksheet within $lnumsheet default $(lnumsheet[1]) |
|
| 21 | !exit |
24 | !exit |
| 22 | !endif |
- | |
| 23 | !bound picksheet within $lnumsheet default $(lnumsheet[1]) |
- | |
| 24 | !exit |
- | |
| 25 | !endif |
25 | !endif |
| 26 | 26 | ||
| 27 | !if $step=1 |
27 | !if $step=1 |
| 28 | !bound picksheet within $lnumsheet default 0 |
28 | !bound picksheet within $lnumsheet default 0 |
| 29 | !bound exo between 1 and $nb default 0 |
29 | !bound exo between 1 and $nb default 0 |
| 30 | !ifval $exo*$picksheet=0 |
30 | !ifval $exo*$picksheet=0 |
| 31 | error=bad_exo |
31 | error=bad_exo |
| 32 | !exit |
32 | !exit |
| 33 | !endif |
33 | !endif |
| 34 | update_field=9 |
34 | update_field=9 |
| 35 | t=cmd=new |
35 | t=cmd=new |
| 36 | !if $t notin $iniparm |
36 | !if $t notin $iniparm |
| 37 | update_content=module=$dir&$iniparm&cmd=new,$note |
37 | update_content=module=$dir&$iniparm&cmd=new,$note |
| 38 | !else |
38 | !else |
| 39 | update_content=module=$dir&$iniparm,$note |
39 | update_content=module=$dir&$iniparm,$note |
| 40 | !endif |
40 | !endif |
| 41 | sheet=$picksheet |
41 | sheet=$picksheet |
| 42 | !read adm/class/update.exo |
42 | !read adm/class/update.exo |
| 43 | title=!module title $dir |
43 | title=!module title $dir |
| 44 | desc=!module description $dir |
44 | desc=!module description $dir |
| 45 | !endif |
45 | !endif |