Subversion Repositories wimsdev

Rev

Rev 5204 | Rev 12387 | 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
5
 error=bad_sheet
6
 !exit
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
12
 error=active_sheet
13
 !exit
14
!endif
15
 
16
nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
17
!if $exo<1 or $exo>$nbexo
18
 error=bad_series
19
 !exit
20
!endif
21
 
22
update_field=2
3934 guerimand 23
t=$ 
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