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 |