Subversion Repositories wimsdev

Rev

Rev 6431 | Rev 12489 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6431 Rev 9675
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
-
 
14
  sheets=!append line $i,$nb,$title to $sheets
13
 sheets=!append line $i,$nb,$title to $sheets
15
 !endif
-
 
16
!next i
14
!next i
17
sheetcnt=!linecnt $sheets
15
sheetcnt=!linecnt $sheets
18
lnumsheet=!column 1 of $sheets
16
lnumsheet=!column 1 of $sheets
19
 
17
 
20
!if $step=0
18
!if $step=0