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