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