Subversion Repositories wimsdev

Rev

Rev 9679 | Rev 9688 | 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
 
16
 
17
!sh cd $wims_home/log/classes/$wims_class/sheets/\
18
cp .sheet$sheet .sheet$[$scnt+1]
19
 
20
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
21
p=!replace line number 1 by 0 in $p
22
 
23
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
24
 
25
scnt=$[$scnt+1]
26
sheet=$scnt
27
message=$name_duplicateok
28
!reset job
29
!changeto var.proc