Subversion Repositories wimsdev

Rev

Rev 4176 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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