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