Rev 23 | Rev 15494 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 23 | Rev 2329 | ||
---|---|---|---|
Line -... | Line 1... | ||
- | 1 | !!!### language independant |
|
- | 2 | !! |
|
1 | # update_field is number of field to update |
3 | # update_field is number of field to update |
2 | # update_content is the new content. |
4 | # update_content is the new content. |
3 | 5 | ||
4 | scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams |
6 | scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams |
5 | !for s=1 to $scnt |
7 | !for s=1 to $scnt |
6 | exam_$s=!record $s of wimshome/log/classes/$wims_class/exams/.exams |
8 | exam_$s=!record $s of wimshome/log/classes/$wims_class/exams/.exams |
7 | exam_$s=$(exam_$s)\ |
9 | exam_$s=$(exam_$s)\ |
- | 10 | \ |
|
8 | \ |
11 | \ |
9 | \ |
12 | \ |
10 | \ |
13 | \ |
11 | \ |
14 | \ |
12 | \ |
15 | \ |
Line 20... | Line 23... | ||
20 | !mexec examshift.sh |
23 | !mexec examshift.sh |
21 | !endif |
24 | !endif |
22 | !writefile wimshome/log/classes/$wims_class/exams/.exams |
25 | !writefile wimshome/log/classes/$wims_class/exams/.exams |
23 | !for s=1 to $scnt |
26 | !for s=1 to $scnt |
24 | !if $s!=$exam or $update_field>0 |
27 | !if $s!=$exam or $update_field>0 |
25 | sf=!line 1 to |
28 | sf=!line 1 to 7 of $(exam_$s) |
26 | !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf |
29 | !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf |
27 | !endif |
30 | !endif |
28 | !next s |
31 | !next s |
29 | 32 |