Subversion Repositories wimsdev

Rev

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 
 if $nb>0
 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 between 1 and $sheetcnt default 1
 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 between 1 and $sheetcnt default 0
 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