Subversion Repositories wimsdev

Rev

Rev 9686 | Rev 10339 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
9679 guerimand 1 
!! duplicate a sheet
2 
 
3 
!if $scnt>=$max_sheets
4 
    error=bad_maxsheets
5 
    !reset job
6 
    !changeto var.proc
7 
!endif
8 
!bound sheet between 1 and $scnt default $empty
9 
 
10 
!if $sheet=$empty
9686 guerimand 11 
    error=bad_sheet
9679 guerimand 12 
    !reset job
13 
    !changeto var.proc
14 
!endif
15 
 
9688 guerimand 16 
exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
17 
!if $exocnt=0
18 
 !reset job
19 
 !changeto var.proc
20 
!endif
9679 guerimand 21 
 
22 
!sh cd $wims_home/log/classes/$wims_class/sheets/\
23 
cp .sheet$sheet .sheet$[$scnt+1]
24 
 
25 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
26 
p=!replace line number 1 by 0 in $p
27 
 
28 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
29 
 
30 
scnt=$[$scnt+1]
31 
sheet=$scnt
32 
message=$name_duplicateok
33 
!reset job
34 
!changeto var.proc