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