Subversion Repositories wimsdev

donnees=$empty

!for k=1 to $livret_nbcomp

  title=!record $k of wimshome/log/classes/$wims_class/livret/.comps

  title=!line 1 of $title

  donnees=$donnees\

:$title

  nb=!recordcnt wimshome/log/classes/$wims_class/livret/.comp$k

  !for l=1 to $nb

    t=!record $l of wimshome/log/classes/$wims_class/livret/.comp$k

    t=!line 1 of $t

    donnees=$donnees\

$t

  !next l

!next k

file=wimshome/sessions/$wims_session/getfile/livret

!writefile $file $donnees

file=livret

!if $wims_deposit!=$empty

  nbcompnews=!recordcnt wimshome/sessions/$wims_session/user-deposit

  test=$[$maxcomp-$livret_nbcomp]

  !if $test>0 and $nbcompnews>0

    max=$[min($test,$nbcompnews)]

    !for k=1 to $max

      don=!record $k of wimshome/sessions/$wims_session/user-deposit

      tit=!line 1 of $don

      don=!line 2 to -1 of $don

      nb=!linecnt $don

      don=!replace internal $\

$ by $\

$: in $don

      !appendfile wimshome/log/classes/$wims_class/livret/.comps :$tit\

$nb

      !writefile wimshome/log/classes/$wims_class/livret/.comp$[$livret_nbcomp+$k] :$don

    !next k

    livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps

  !else

    error=toomanycomp

  !endif

  !reset job

  !read var.proc

!endif

!exit

reclist=user,exo,sheet,exam,doc,sup,def,neighbor,log,forum,score,manual,cdt,vote,livret,seq

!bound job2 within first,upload,download,restore default first

!if $job2=upload and $wims_deposit=$empty

 job2=first

!endif

!if $job2!=first

 !read arch/$job2.proc

!endif

!if $job2 iswordof upload restore and $error!=$empty

 job2=first

!endif