1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
!! update seq repertory when delete a sheet,exam,doc (public or not)
!distribute item $wims_read_parm into name_,number_
!! ------ checking of input data
po_=!positionof item $name_ in sheet,exam,c,doc
!if $po_=$empty
!exit
!endif
file_=!line $po_ of sheets/.sheets\
exams/.exams\
doc/.index\
doc/.docindex
nb_=!recordcnt wimshome/log/classes/$wims_class/$file_
!if NaN isin $[$number_/10] or $number_<=0 or $number_>$nb_
!exit
!endif
!! ------ effective update of seq directory
seqs_=!record 0 of wimshome/log/classes/$wims_class/seq/.sequences
nbseq_=!line 1 of $seqs_
seqs_=$nbseq_
!if $nbseq_=0
!exit
!endif
!for k_=1 to $nbseq_
don_=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$k_
!distribute lines $don_ into p1_,p2_,p3_,p4_
nbitem_=!itemcnt $p3_
!if $nbitem_>0
lseqs_=$empty
!for j_=1 to $nbitem_
!if $name_ isin $(p3_[$j_])
num_=!text select 0123456789 in $(p3_[$j_])
!if $num_>$number_
newit_=$name_ $[$num_-1]
!else
!if $num_<$number_
newit_=$(p3_[$j_])
!else
newit_=$empty
!endif
!endif
p3_=!replace internal item number $j_ by $newit_ in $p3_
!else
newit_=$(p3_[$j_])
!endif
!if sheet isin $newit_ or exam isin $newit_
lseqs_=!append item $newit_ to $lseqs_
!endif
!next j_
p3_=!nonempty item $p3_
lseqs_=!nonempty item $lseqs_
lseqs_=$k_,$lseqs_
!else
lseqs_=$k_
!endif
seqs_=!append line $lseqs_ to $seqs_
tmp_=$p1_\
$p2_\
$p3_\
$p4_
!writefile wimshome/log/classes/$wims_class/seq/.sequence$k_ :$tmp_
!next k_
!writefile wimshome/log/classes/$wims_class/seq/.sequences $seqs_
|
