Subversion Repositories wimsdev

Rev

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

Rev 13825 Rev 13833
Line 4... Line 4...
4 
# update_content is the new content.
 4 
# update_content is the new content.
5 
 
 5 
 
6 
scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 6 
scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
7 
!for s=1 to $scnt
 7 
!for s=1 to $scnt
8 
  sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets
 8 
  sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets
9 
  sheet_$s=!line 1 to 9 of $(sheet_$s)\
 9 
  sheet_$s=!line 1 to 10 of $(sheet_$s)\
10 
\
 10 
\
11 
\
 11 
\
12 
\
 12 
\
13 
\
 13 
\
14 
\
 14 
\
Line 23... Line 23...
23 
  !mexec sheetshift.sh
 23 
  !mexec sheetshift.sh
24 
!endif
 24 
!endif
25 
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
 25 
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
26 
!for s=1 to $scnt
 26 
!for s=1 to $scnt
27 
  !if $s!=$sheet or $update_field!=0
 27 
  !if $s!=$sheet or $update_field!=0
28 
    sf=!line 1 to 9 of $(sheet_$s)
 28 
    sf=!line 1 to 10 of $(sheet_$s)
29 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
 29 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
30 
  !endif
 30 
  !endif
31 
!next s
 31 
!next s