Subversion Repositories wimsdev

numexam=!listintersect $numexam and $aexams

!if $numexam=$empty

  !reset listname

  !for k in $aexams

    current=!record $k of wimshome/log/classes/$wims_class/exams/.exams

    current=!line 4 of $current

    current=!replace internal , by $empty in $current

    listname=!append item $k | $current to $listname

  !next

  !exit

!else

  !! it could actually just copy the file, but I think this way is safer

  !! does not copy "comment" and "option": do we need the two fields?

  nbexo=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$numexam

  listdon=$empty

  !for k=1 to $nbexo

    tmp=!record $k of wimshome/log/classes/$wims_class/exams/.exam$numexam

    tmpweight=!line 1 of $tmp

    tmpexo=!line 2 of $tmp

    tmptitle=!line 3 of $tmp

    tmpdep=!line 4 of $tmp

    exodon=:$tmpweight\

$tmpexo\

$tmptitle\

$tmpdep\

    listdon=!append line $exodon to $listdon

  !next k

  !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam $listdon

  !reset job,numexam

  !read var.proc

!endif