Rev 12701 | 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 |
||
13315 | bpr | 28 | tmp=!record $exo of wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
29 | tmp=!line 2 of $tmp |
||
30 | !read getparm $tmp exotrymax |
||
31 | !if $get_exotrymax notsametext $empty |
||
32 | iniparm=$iniparm&exotrymax=$get_exotrymax |
||
33 | !endif |
||
1980 | guerimand | 34 | update_content=$iniparm |
5204 | guerimand | 35 | !read adm/class/update.exo |
7342 | guerimand | 36 | !restart module=adm/class/sheet&+sheet=$sheet |