Rev 5211 | Rev 6431 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5211 | Rev 5215 | ||
---|---|---|---|
Line 8... | Line 8... | ||
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 |
|
13 | !if $nb>0 |
14 | sheets=!append line $i,$nb,$title to $sheets |
14 | sheets=!append line $i,$nb,$title to $sheets |
15 | !endif |
15 | !endif |
16 | !next i |
16 | !next i |
17 | sheetcnt=!linecnt $sheets |
17 | sheetcnt=!linecnt $sheets |
- | 18 | lnumsheet=!column 1 of $sheets |
|
18 | 19 | ||
19 | !if $step=0 |
20 | !if $step=0 |
20 | !ifval $sheetcnt=0 |
21 | !ifval $sheetcnt=0 |
21 | error=no_sheet |
22 | error=no_sheet |
22 | !exit |
23 | !exit |
23 | !endif |
24 | !endif |
24 | !bound picksheet |
25 | !bound picksheet within $lnumsheet default $(lnumsheet[1]) |
25 | !exit |
26 | !exit |
26 | !endif |
27 | !endif |
27 | 28 | ||
28 | !if $step=1 |
29 | !if $step=1 |
29 | !bound picksheet |
30 | !bound picksheet within $lnumsheet default 0 |
30 | !bound exo between 1 and $nb default 0 |
31 | !bound exo between 1 and $nb default 0 |
31 | !ifval $exo*$picksheet=0 |
32 | !ifval $exo*$picksheet=0 |
32 | error=bad_exo |
33 | error=bad_exo |
33 | !exit |
34 | !exit |
34 | !endif |
35 | !endif |