Subversion Repositories wimsdev

Rev

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_