Subversion Repositories wimsdev

numsheet=!listintersect $numsheet and $asheets

!if $numsheet=$empty

  !reset listname

  !for k in $asheets

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

    current=!line 3 of $current

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

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

  !next

  !exit

!else

  key_title=!singlespace $keytitle

  key_title=!char 1 to $title_limit of $key_title

  nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$numsheet

  listdon=$empty

  tmp=$key_title

  !for k=1 to $nbexo

    !if $key_title=$empty

      tmp=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$numsheet

      tmp=!line 5 of $tmp

    !endif

    exodon=:1\

$numsheet.$k\

$tmp\

    listdon=!append line $exodon to $listdon

  !next k

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

  !reset job,numsheet

  !read var.proc

!endif