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