Subversion Repositories wimsdev

!! duplicate a sheet

!if $scnt>=$max_sheets
  error=bad_maxsheets
  !reset job wims_ariane
  !changeto var.proc
!endif
!bound sheet between 1 and $scnt default $empty

!if $sheet=$empty
  error=bad_sheet
  !reset job wims_ariane
  !changeto var.proc
!endif

exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
!if $exocnt=0
  !reset job wims_ariane
  !changeto var.proc
!endif

!sh cd $wims_home/log/classes/$wims_class/sheets/\
cp .sheet$sheet .sheet$[$scnt+1]
tmp=!fileexists $wims_home/log/classes/$wims_class/sheets/sheet$sheet.src
!if $tmp=yes
  msg2wims_primitives=!defof msgprim in wimshome/public_html/scripts/primitives/allmsgprim
  !sh cd $wims_home/log/classes/$wims_class/sheets/\
cp -p sheet$sheet.src sheet$[$scnt+1].src\
$wims_home/bin/msg2wims sheet$[$scnt+1].src sheet$[$scnt+1].def
!endif

p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
p=!replace line number 1 by 0 in $p

!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p

!! --- copy severity of the sheet:
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
sev=!line $[$sheet+1] of $fsev
!if $sev!=$empty
  n=!linecnt $fsev
  !while $n<$scnt+1
    fsev=$fsev\

    !increase n
  !endwhile
  fsev=!append line $sev to $fsev
  !writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
!endif
!! ---

scnt=$[$scnt+1]
sheet=$scnt
message=$name_duplicateok
!reset job wims_ariane
!changeto var.proc