Rev 9686 | Go to most recent revision | Details | 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 |
||
11 | error= |
||
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 |