Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 8903 | czzmrn | 1 | numexam=!listintersect $numexam and $aexams |
| 2 | !if $numexam=$empty |
||
| 3 | !exit |
||
| 4 | !else |
||
| 5 | !! 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? |
||
| 7 | nbexo=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$numexam |
||
| 8 | listdon=$empty |
||
| 9 | !for k=1 to $nbexo |
||
| 10 | tmp=!record $k of wimshome/log/classes/$wims_class/exams/.exam$numexam |
||
| 11 | tmpweight=!line 1 of $tmp |
||
| 12 | tmpexo=!line 2 of $tmp |
||
| 13 | tmptitle=!line 3 of $tmp |
||
| 14 | tmpdep=!line 4 of $tmp |
||
| 15 | exodon=:$tmpweight\ |
||
| 16 | $tmpexo\ |
||
| 17 | $tmptitle\ |
||
| 18 | $tmpdep\ |
||
| 19 | |||
| 20 | listdon=!append line $exodon to $listdon |
||
| 21 | !next k |
||
| 22 | !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam $listdon |
||
| 23 | !reset job,numexam |
||
| 24 | !read var.proc |
||
| 25 | !endif |