Rev 8903 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8903 | Rev 14271 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | numexam=!listintersect $numexam and $aexams |
1 | numexam=!listintersect $numexam and $aexams |
| 2 | !if $numexam=$empty |
2 | !if $numexam=$empty |
| - | 3 | !reset listname |
|
| - | 4 | !for k in $aexams |
|
| - | 5 | current=!record $k of wimshome/log/classes/$wims_class/exams/.exams |
|
| - | 6 | current=!line 4 of $current |
|
| - | 7 | current=!replace internal , by $empty in $current |
|
| - | 8 | listname=!append item $k | $current to $listname |
|
| - | 9 | !next |
|
| 3 | !exit |
10 | !exit |
| 4 | !else |
11 | !else |
| 5 | !! it could actually just copy the file, but I think this way is safer |
12 | !! it could actually just copy the file, but I think this way is safer |
| 6 | !! does not copy "comment" and "option": do we need the two fields? |
13 | !! does not copy "comment" and "option": do we need the two fields? |
| 7 | nbexo=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$numexam |
14 | nbexo=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$numexam |
| 8 | listdon=$empty |
15 | listdon=$empty |
| 9 | !for k=1 to $nbexo |
16 | !for k=1 to $nbexo |
| 10 | tmp=!record $k of wimshome/log/classes/$wims_class/exams/.exam$numexam |
17 | tmp=!record $k of wimshome/log/classes/$wims_class/exams/.exam$numexam |
| 11 | tmpweight=!line 1 of $tmp |
18 | tmpweight=!line 1 of $tmp |
| 12 | tmpexo=!line 2 of $tmp |
19 | tmpexo=!line 2 of $tmp |
| 13 | tmptitle=!line 3 of $tmp |
20 | tmptitle=!line 3 of $tmp |
| 14 | tmpdep=!line 4 of $tmp |
21 | tmpdep=!line 4 of $tmp |
| 15 | exodon=:$tmpweight\ |
22 | exodon=:$tmpweight\ |
| 16 | $tmpexo\ |
23 | $tmpexo\ |
| 17 | $tmptitle\ |
24 | $tmptitle\ |
| 18 | $tmpdep\ |
25 | $tmpdep\ |
| 19 | 26 | ||
| 20 | listdon=!append line $exodon to $listdon |
27 | listdon=!append line $exodon to $listdon |
| 21 | !next k |
28 | !next k |
| 22 | !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam $listdon |
29 | !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam $listdon |
| 23 | !reset job,numexam |
30 | !reset job,numexam |
| 24 | !read var.proc |
31 | !read var.proc |
| 25 | !endif |
32 | !endif |