Subversion Repositories wimsdev

Rev

Rev 4176 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5665 obado 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!
2
!! DEPRECATED : now use adm/class/update.exo
3
!!!!!!!!!!!!!!!!!!!!!!!!!!!
4
error= scripts/update.exo is deprecated. use adm/class/update.exo instead.
5
!exit
6
 
7
!! 
8
!! update a field of an exo of a sheet
4176 obado 9
!!
5665 obado 10
!! needed information :
11
!! sheet : sheet to modify
12
!! exo : id of exo to be modified in the sheet
13
!! update_field : is the numbrer of the field to be modified.
14
!! update_content : new content
15
number_field=9
4176 obado 16
ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$qsheet
17
!for e=1 to $ecnt
18
 exo_$e=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$qsheet
5665 obado 19
 exo_$e=!line 1 to $number_field of $(exo_$e)\
4176 obado 20
\
21
\
22
\
23
\
24
\
25
\
26
\
27
\
5665 obado 28
\
4176 obado 29
 
30
!next e
31
!if $update_field>=0
32
 !if $update_field>0
5665 obado 33
  tmp=!linecnt $(exo_$exo)
34
  !if $update_field > $tmp
35
   !for tmp2 = 1 to $[$update_field-$tmp]
36
    exo_$exo=!append line $ $ to $(exo_$exo)
37
   !next
38
  !endif
4176 obado 39
  exo_$exo=!replace line number $update_field by $update_content in $(exo_$exo)
40
 !else
41
  exo_$exo=$update_content
42
 !endif
43
!endif
44
!writefile wimshome/log/classes/$wims_class/sheets/.sheet$qsheet
45
!for e=1 to $ecnt
46
 !if $e!=$exo or $update_field>=0
5665 obado 47
  ef=!line 1 to $number_field of $(exo_$e)
4176 obado 48
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$qsheet :$ef
49
 !endif
50
!next e
51