Subversion Repositories wimsdev

Rev

Rev 12701 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12701 Rev 17871
Line 19... Line 19...
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
- 
 
 25 
!if $tmp=yes
- 
 
 26 
  msg2wims_primitives=!defof DF_msgprim in wimshome/public_html/scripts/primitives/allmsgprim
- 
 
 27 
  !sh cd $wims_home/log/classes/$wims_class/sheets/\
- 
 
 28 
cp -p sheet$sheet.src sheet$[$scnt+1].src\
- 
 
 29 
$wims_home/bin/msg2wims sheet$[$scnt+1].src sheet$[$scnt+1].def
- 
 
 30 
!endif
24 
 
 31 
 
25 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
 32 
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
26 
p=!replace line number 1 by 0 in $p
 33 
p=!replace line number 1 by 0 in $p
27 
 
 34 
 
28 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
 35 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p