Rev 4298 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4298 | Rev 12501 | ||
|---|---|---|---|
| Line 3... | Line 3... | ||
| 3 | ### this job allow to launch series of exercices with menu items link |
3 | ### this job allow to launch series of exercices with menu items link |
| 4 | 4 | ||
| 5 | directworksheet=!replace internal . by , in $directworksheet |
5 | directworksheet=!replace internal . by , in $directworksheet |
| 6 | !distribute item $directworksheet into sh,exo |
6 | !distribute item $directworksheet into sh,exo |
| 7 | !if P isin $sh |
7 | !if P isin $sh |
| 8 | sh=!char 2 to -1 of $sh |
8 | sh=!char 2 to -1 of $sh |
| 9 | don=!record 0 of wimshome/$wims_sesdir/.sheets |
9 | don=!record 0 of wimshome/$wims_sesdir/.sheets |
| 10 | don=!line $sh of $don |
10 | don=!line $sh of $don |
| 11 | file=wimshome/public_html/bases/sheet/$don.def |
11 | file=wimshome/public_html/bases/sheet/$don.def |
| 12 | !else |
12 | !else |
| 13 | maxsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
13 | maxsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
| 14 | !bound sh between 1 and $maxsh default $empty |
14 | !bound sh between 1 and $maxsh default $empty |
| 15 | file=wimshome/log/classes/$wims_class/sheets/.sheet$sh |
15 | file=wimshome/log/classes/$wims_class/sheets/.sheet$sh |
| 16 | !endif |
16 | !endif |
| 17 | 17 | ||
| 18 | maxexo=!recordcnt $file |
18 | maxexo=!recordcnt $file |
| 19 | !setdef wims_sheetmax=$maxexo in wimshome/sessions/$wims_session/var.stat |
19 | !setdef wims_sheetmax=$maxexo in wimshome/sessions/$wims_session/var.stat |
| 20 | 20 | ||
| 21 | !bound exo between 1 and $maxexo default $empty |
21 | !bound exo between 1 and $maxexo default $empty |
| 22 | !if $sh!=$empty and $exo!=$empty |
22 | !if $sh!=$empty and $exo!=$empty |
| 23 | requires=!getscorerequire sheet=$sh |
23 | requires=!getscorerequire sheet=$sh |
| 24 | means=!getscoremean sheet=$sh |
24 | means=!getscoremean sheet=$sh |
| 25 | scores=!getscore sheet=$sh |
25 | scores=!getscore sheet=$sh |
| 26 | !readproc adm/mkdepsheet.proc $sh |
26 | !readproc adm/mkdepsheet.proc $sh |
| 27 | dep=!row $exo of $deps |
27 | dep=!row $exo of $deps |
| 28 | dep=!trim $dep |
28 | dep=!trim $dep |
| 29 | !if $dep!=$empty |
29 | !if $dep!=$empty |
| 30 | !exit |
30 | !exit |
| 31 | !endif |
31 | !endif |
| 32 | d=!record $exo of $file |
32 | d=!record $exo of $file |
| 33 | !distribute line $d into r1,r2,r3 |
33 | !distribute line $d into r1,r2,r3 |
| 34 | !restart module=$r1&cmd=new&worksheet=$(directworksheet[1])&$r2 |
34 | !restart module=$r1&cmd=new&worksheet=$(directworksheet[1])&$r2 |
| 35 | !endif |
35 | !endif |