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 |