Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3212 guerimand 1
 
2
donnees=$empty
3
!for k=1 to $livret_nbcomp
4
 title=!record $k of wimshome/log/classes/$wims_class/livret/.comps
5
 title=!line 1 of $title
6
 donnees=$donnees\
7
:$title
8
 nb=!recordcnt wimshome/log/classes/$wims_class/livret/.comp$k
9
 !for l=1 to $nb
10
  t=!record $l of wimshome/log/classes/$wims_class/livret/.comp$k
11
  t=!line 1 of $t
12
  donnees=$donnees\
13
$t
14
 !next l
15
!next k
16
file=wimshome/sessions/$wims_session/getfile/livret
17
!writefile $file $donnees
18
file=livret
19
 
20
!if $wims_deposit!=$empty
21
 nbcompnews=!recordcnt wimshome/sessions/$wims_session/user-deposit
22
 test=$[$maxcomp-$livret_nbcomp]
23
 !if $test>0 and $nbcompnews>0
24
  max=$[min($test,$nbcompnews)]
25
  !for k=1 to $max
26
   don=!record $k of wimshome/sessions/$wims_session/user-deposit
27
   tit=!line 1 of $don
28
   don=!line 2 to -1 of $don
29
   nb=!linecnt $don
30
   don=!replace internal $\
31
$ by $\
32
$: in $don
33
   !appendfile wimshome/log/classes/$wims_class/livret/.comps :$tit\
34
$nb
35
   !writefile wimshome/log/classes/$wims_class/livret/.comp$[$livret_nbcomp+$k] :$don
36
  !next k
37
  livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
38
 !else
39
  error=toomanycomp
40
 !endif
41
 !reset job
42
 !read var.proc
43
!endif
44
 
45
 
46
!exit
47
 
48
reclist=user,exo,sheet,exam,doc,sup,def,neighbor,log,forum,score,manual,cdt,vote,livret,seq
49
!bound job2 within first,upload,download,restore default first
50
 
51
!if $job2=upload and $wims_deposit=$empty
52
 job2=first
53
!endif
54
 
55
!if $job2!=first
56
 !read arch/$job2.proc
57
!endif
58
 
59
!if $job2 iswordof upload restore and $error!=$empty
60
 job2=first
61
!endif