Subversion Repositories wimsdev

Rev

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