Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | # update_field is number of field to update |
2 | # update_content is the new content. |
||
3 | |||
4 | scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams |
||
5 | !for s=1 to $scnt |
||
6 | exam_$s=!record $s of wimshome/log/classes/$wims_class/exams/.exams |
||
7 | exam_$s=$(exam_$s)\ |
||
8 | \ |
||
9 | \ |
||
10 | \ |
||
11 | \ |
||
12 | \ |
||
13 | \ |
||
14 | dd |
||
15 | |||
16 | !next s |
||
17 | !if $update_field>0 |
||
18 | exam_$exam=!replace line number $update_field by $update_content in $(exam_$exam) |
||
19 | !else |
||
20 | !mexec examshift.sh |
||
21 | !endif |
||
22 | !writefile wimshome/log/classes/$wims_class/exams/.exams |
||
23 | !for s=1 to $scnt |
||
24 | !if $s!=$exam or $update_field>0 |
||
25 | sf=!line 1 to 6 of $(exam_$s) |
||
26 | !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf |
||
27 | !endif |
||
28 | !next s |
||
29 |