Subversion Repositories wimsdev

Rev

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

Rev 7290 Rev 12701
Line 3... Line 3...
3
# update_field is number of field to update
3
# update_field is number of field to update
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 8 of $(sheet_$s)\
10
\
10
\
11
\
11
\
12
\
12
\
13
\
13
\
14
\
14
\
15
\
15
\
16
 
16
 
17
!next s
17
!next s
18
!if $update_field!=0
18
!if $update_field!=0
19
 sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet)
19
  sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet)
20
!else
20
!else
21
 !mexec sheetshift.sh
21
  !mexec sheetshift.sh
22
!endif
22
!endif
23
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
23
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
24
!for s=1 to $scnt
24
!for s=1 to $scnt
25
 !if $s!=$sheet or $update_field!=0
25
  !if $s!=$sheet or $update_field!=0
26
  sf=!line 1 to 8 of $(sheet_$s)
26
    sf=!line 1 to 8 of $(sheet_$s)
27
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
27
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
28
 !endif
28
  !endif
29
!next s
29
!next s