Subversion Repositories wimsdev

Rev

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

Rev 14646 Rev 16466
Line 13... Line 13...
13 
  nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 13 
  nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
14 
  sheets=!append line $i,$nb,$title to $sheets
 14 
  sheets=!append line $i,$nb,$title to $sheets
15 
!next i
 15 
!next i
16 
sheetcnt=!linecnt $sheets
 16 
sheetcnt=!linecnt $sheets
17 
lnumsheet=!column 1 of $sheets
 17 
lnumsheet=!column 1 of $sheets
- 
 
 18 
 
- 
 
 19 
tmptest=print=yes
- 
 
 20 
!if $tmptest isin $iniparm
- 
 
 21 
  error=printversion
- 
 
 22 
  !exit
- 
 
 23 
!endif
18 
 
 24 
 
19 
!if $step=0
 25 
!if $step=0
20 
  !ifval $sheetcnt=0
 26 
  !ifval $sheetcnt=0
21 
    error=no_sheet
 27 
    error=no_sheet
22 
    !exit
 28 
    !exit