Rev 7342 | Rev 12701 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1980 | guerimand | 1 | !distribute item $num into sheet,exo |
2 | |||
3 | nbsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
4 | !if $sheet<1 or $sheet>$nbsh |
||
12387 | bpr | 5 | error=bad_sheet |
6 | !exit |
||
1980 | guerimand | 7 | !endif |
8 | |||
9 | don=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets |
||
10 | t=!line 1 of $don |
||
11 | !if $t!=0 |
||
12387 | bpr | 12 | error=active_sheet |
13 | !exit |
||
1980 | guerimand | 14 | !endif |
15 | |||
16 | nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
||
17 | !if $exo<1 or $exo>$nbexo |
||
12387 | bpr | 18 | error=bad_series |
19 | !exit |
||
1980 | guerimand | 20 | !endif |
21 | |||
22 | update_field=2 |
||
12387 | bpr | 23 | t=$ |
3934 | guerimand | 24 | tmp=!replace internal & by $t in $iniparm |
25 | tmp2=!getopt scoredelay in $tmp |
||
26 | tmp3=!replace internal + by , in $tmp2 |
||
27 | iniparm=!replace internal scoredelay=$tmp2 by scoredelay=$tmp3 in $iniparm |
||
1980 | guerimand | 28 | update_content=$iniparm |
5204 | guerimand | 29 | !read adm/class/update.exo |
7342 | guerimand | 30 | !restart module=adm/class/sheet&+sheet=$sheet |
3934 | guerimand | 31 |