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