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 | ||