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