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