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 |