Subversion Repositories wimsdev

Rev

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

Rev 10339 Rev 11134
Line 24... Line 24...
24 
 
 24 
 
25 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
 25 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
26 
p=!replace line number 1 by 0 in $p
 26 
p=!replace line number 1 by 0 in $p
27 
 
 27 
 
28 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
 28 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
- 
 
 29 
 
- 
 
 30 
!! --- copy severity of the sheet:
- 
 
 31 
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
- 
 
 32 
sev=!line $[$sheet+1] of $fsev
- 
 
 33 
!if $sev!=$empty
- 
 
 34 
 n=!linecnt $fsev
- 
 
 35 
 !while $n<$scnt+1
- 
 
 36 
  fsev=$fsev\
- 
 
 37 
 
- 
 
 38 
  !increase n
- 
 
 39 
 !endwhile
- 
 
 40 
 fsev=!append line $sev to $fsev
- 
 
 41 
 !writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
- 
 
 42 
!endif
- 
 
 43 
!! ---
29 
 
 44 
 
30 
scnt=$[$scnt+1]
 45 
scnt=$[$scnt+1]
31 
sheet=$scnt
 46 
sheet=$scnt
32 
message=$name_duplicateok
 47 
message=$name_duplicateok
33 
!reset job wims_ariane
 48 
!reset job wims_ariane