Subversion Repositories wimsdev

Rev

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