Subversion Repositories wimsdev

Rev

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

Rev 9688 Rev 10339
Line 4... Line 4...
4
    error=bad_maxsheets
4
    error=bad_maxsheets
5
    !reset job
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
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
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]
Line 28... Line 28...
28
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
28
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
29
 
29
 
30
scnt=$[$scnt+1]
30
scnt=$[$scnt+1]
31
sheet=$scnt
31
sheet=$scnt
32
message=$name_duplicateok
32
message=$name_duplicateok
33
!reset job
33
!reset job wims_ariane
34
!changeto var.proc
34
!changeto var.proc