Subversion Repositories wimsdev

Rev

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

Rev 11134 Rev 12701
Line 2... Line 2...
2
 
2
 
3
!if $scnt>=$max_sheets
3
!if $scnt>=$max_sheets
4
    error=bad_maxsheets
4
  error=bad_maxsheets
5
    !reset job wims_ariane
5
  !reset job wims_ariane
6
    !changeto var.proc
6
  !changeto var.proc
7
!endif
7
!endif
8
!bound sheet between 1 and $scnt default $empty
8
!bound sheet between 1 and $scnt default $empty
9
 
9
 
10
!if $sheet=$empty
10
!if $sheet=$empty
11
    error=bad_sheet
11
  error=bad_sheet
12
    !reset job wims_ariane
12
  !reset job wims_ariane
13
    !changeto var.proc
13
  !changeto var.proc
14
!endif
14
!endif
15
 
15
 
16
exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
16
exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
17
!if $exocnt=0
17
!if $exocnt=0
18
 !reset job wims_ariane
18
  !reset job wims_ariane
19
 !changeto var.proc
19
  !changeto var.proc
20
!endif
20
!endif
21
 
21
 
22
!sh cd $wims_home/log/classes/$wims_class/sheets/\
22
!sh cd $wims_home/log/classes/$wims_class/sheets/\
23
cp .sheet$sheet .sheet$[$scnt+1]
23
cp .sheet$sheet .sheet$[$scnt+1]
24
 
24
 
Line 29... Line 29...
29
 
29
 
30
!! --- copy severity of the sheet:
30
!! --- copy severity of the sheet:
31
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
31
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
32
sev=!line $[$sheet+1] of $fsev
32
sev=!line $[$sheet+1] of $fsev
33
!if $sev!=$empty
33
!if $sev!=$empty
34
 n=!linecnt $fsev
34
  n=!linecnt $fsev
35
 !while $n<$scnt+1
35
  !while $n<$scnt+1
36
  fsev=$fsev\
36
    fsev=$fsev\
37
 
37
 
38
  !increase n
38
    !increase n
39
 !endwhile
39
  !endwhile
40
 fsev=!append line $sev to $fsev
40
  fsev=!append line $sev to $fsev
41
 !writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
41
  !writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
42
!endif
42
!endif
43
!! ---
43
!! ---
44
 
44
 
45
scnt=$[$scnt+1]
45
scnt=$[$scnt+1]
46
sheet=$scnt
46
sheet=$scnt