Subversion Repositories wimsdev

Rev

Rev 17871 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17871 Rev 17881
1 
!! duplicate a sheet
 1 
!! duplicate a sheet
2 
 
 2 
 
3 
!if $scnt>=$max_sheets
 3 
!if $scnt>=$max_sheets
4 
  error=bad_maxsheets
 4 
  error=bad_maxsheets
5 
  !reset job wims_ariane
 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 wims_ariane
 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 wims_ariane
 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]
24 
tmp=!fileexists $wims_home/log/classes/$wims_class/sheets/sheet$sheet.src
 24 
tmp=!fileexists $wims_home/log/classes/$wims_class/sheets/sheet$sheet.src
25 
!if $tmp=yes
 25 
!if $tmp=yes
26 
  msg2wims_primitives=!defof DF_msgprim in wimshome/public_html/scripts/primitives/allmsgprim
 26 
  msg2wims_primitives=!defof msgprim in wimshome/public_html/scripts/primitives/allmsgprim
27 
  !sh cd $wims_home/log/classes/$wims_class/sheets/\
 27 
  !sh cd $wims_home/log/classes/$wims_class/sheets/\
28 
cp -p sheet$sheet.src sheet$[$scnt+1].src\
 28 
cp -p sheet$sheet.src sheet$[$scnt+1].src\
29 
$wims_home/bin/msg2wims sheet$[$scnt+1].src sheet$[$scnt+1].def
 29 
$wims_home/bin/msg2wims sheet$[$scnt+1].src sheet$[$scnt+1].def
30 
!endif
 30 
!endif
31 
 
 31 
 
32 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
 32 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
33 
p=!replace line number 1 by 0 in $p
 33 
p=!replace line number 1 by 0 in $p
34 
 
 34 
 
35 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
 35 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
36 
 
 36 
 
37 
!! --- copy severity of the sheet:
 37 
!! --- copy severity of the sheet:
38 
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
 38 
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
39 
sev=!line $[$sheet+1] of $fsev
 39 
sev=!line $[$sheet+1] of $fsev
40 
!if $sev!=$empty
 40 
!if $sev!=$empty
41 
  n=!linecnt $fsev
 41 
  n=!linecnt $fsev
42 
  !while $n<$scnt+1
 42 
  !while $n<$scnt+1
43 
    fsev=$fsev\
 43 
    fsev=$fsev\
44 
 
 44 
 
45 
    !increase n
 45 
    !increase n
46 
  !endwhile
 46 
  !endwhile
47 
  fsev=!append line $sev to $fsev
 47 
  fsev=!append line $sev to $fsev
48 
  !writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
 48 
  !writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
49 
!endif
 49 
!endif
50 
!! ---
 50 
!! ---
51 
 
 51 
 
52 
scnt=$[$scnt+1]
 52 
scnt=$[$scnt+1]
53 
sheet=$scnt
 53 
sheet=$scnt
54 
message=$name_duplicateok
 54 
message=$name_duplicateok
55 
!reset job wims_ariane
 55 
!reset job wims_ariane
56 
!changeto var.proc
 56 
!changeto var.proc
57 
 
 57