1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
!distribute item $num into sheet,exo
nbsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
!if $sheet<1 or $sheet>$nbsh
error=bad_sheet
!exit
!endif
don=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
t=!line 1 of $don
!if $t!=0
error=active_sheet
!exit
!endif
nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
!if $exo<1 or $exo>$nbexo
error=bad_series
!exit
!endif
update_field=2
t=$
tmp=!replace internal & by $t in $iniparm
tmp2=!getopt scoredelay in $tmp
tmp3=!replace internal + by , in $tmp2
iniparm=!replace internal scoredelay=$tmp2 by scoredelay=$tmp3 in $iniparm
tmp=!record $exo of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
tmp=!line 2 of $tmp
!read getparm $tmp exotrymax
!if $get_exotrymax notsametext $empty
iniparm=$iniparm&exotrymax=$get_exotrymax
!endif
update_content=$iniparm
!read adm/class/update.exo
!restart module=adm/class/sheet&+sheet=$sheet
|
