Subversion Repositories wimsdev

Rev

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

Rev 12701 Rev 13825
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 8 of $(sheet_$s)\
 9 
  sheet_$s=!line 1 to 9 of $(sheet_$s)\
- 
 
 10 
\
- 
 
 11 
\
10 
\
 12 
\
11 
\
 13 
\
12 
\
 14 
\
13 
\
 15 
\
14 
\
 16 
\
Line 21... Line 23...
21 
  !mexec sheetshift.sh
 23 
  !mexec sheetshift.sh
22 
!endif
 24 
!endif
23 
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
 25 
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
24 
!for s=1 to $scnt
 26 
!for s=1 to $scnt
25 
  !if $s!=$sheet or $update_field!=0
 27 
  !if $s!=$sheet or $update_field!=0
26 
    sf=!line 1 to 8 of $(sheet_$s)
 28 
    sf=!line 1 to 9 of $(sheet_$s)
27 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
 29 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
28 
  !endif
 30 
  !endif
29 
!next s
 31 
!next s