Rev 23 | Rev 10477 | 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 | ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam |
6 | ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam |
5 | !if $ecnt<$exo |
7 | !if $ecnt<$exo |
6 | ecnt=$exo |
8 | ecnt=$exo |
7 | !endif |
9 | !endif |
8 | !for e=1 to $ecnt |
10 | !for e=1 to $ecnt |
9 | exo_$e=!record $e of wimshome/log/classes/$wims_class/exams/.exam$exam |
11 | exo_$e=!record $e of wimshome/log/classes/$wims_class/exams/.exam$exam |
10 | # weight,choose,name |
12 | # weight,choose,name |
11 | exo_$e=!line 1 to |
13 | exo_$e=!line 1 to 7 of $(exo_$e)\ |
- | 14 | \ |
|
12 | \ |
15 | \ |
13 | \ |
16 | \ |
14 | \ |
17 | \ |
15 | \ |
18 | \ |
16 | \ |
19 | \ |
Line 24... | Line 27... | ||
24 | !endif |
27 | !endif |
25 | !endif |
28 | !endif |
26 | !writefile wimshome/log/classes/$wims_class/exams/.exam$exam |
29 | !writefile wimshome/log/classes/$wims_class/exams/.exam$exam |
27 | !for e=1 to $ecnt |
30 | !for e=1 to $ecnt |
28 | !if $e!=$exo or $update_field>=0 |
31 | !if $e!=$exo or $update_field>=0 |
29 | ef=!line 1 to |
32 | ef=!line 1 to 7 of $(exo_$e) |
30 | !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam :$ef |
33 | !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam :$ef |
31 | !endif |
34 | !endif |
32 | !next e |
35 | !next e |
33 | 36 |