Subversion Repositories wimsdev

Rev

Rev 2356 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2356 Rev 9970
Line 3... Line 3...
3 
  !set s_=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$j
 3 
  !set s_=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$j
4 
  !set s_=!line 3 of $s_
 4 
  !set s_=!line 3 of $s_
5 
  !set scnt=!itemcnt $s_
 5 
  !set scnt=!itemcnt $s_
6 
  list_exsh=!append line $j\
 6 
  list_exsh=!append line $j\
7 
  to $list_exsh
 7 
  to $list_exsh
- 
 
 8 
  list_all=!append line $j to $list_all
8 
  !for k=1 to $scnt
 9 
  !for k=1 to $scnt
9 
   !if exam isin $(s_[$k]) or sheet isin $(s_[$k])
 10 
    !if exam isin $(s_[$k]) or sheet isin $(s_[$k])
10 
     list_exsh=!append item $(s_[$k]) to $list_exsh
 11 
     list_exsh=!append item $(s_[$k]) to $list_exsh
11 
   !endif
 12 
    !endif
- 
 
 13 
    list_all=!append item $(s_[$k]) to $list_all
12 
  !next k
 14 
  !next k
13 
!next j
 15 
 !next j
14 
 
 16 
 
15 
!writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
 17 
 !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
16 
$list_exsh\
 18 
$list_exsh\
17 
 
 19 
 
- 
 
 20 
!!create .seqinverse with all ressources
- 
 
 21 
 !reset seqinverse
- 
 
 22 
 scnt=!linecnt $list_all
- 
 
 23 
 !for ll_ = 1 to $scnt
- 
 
 24 
   l_=!line $ll_ of $list_all
- 
 
 25 
   num=!item 1 of $l_
- 
 
 26 
   cnt_=!itemcnt $l_
- 
 
 27 
   !for v_ = 2 to $cnt_
- 
 
 28 
     test=!select $seqinverse where column 1 = $(l_[$v_])
- 
 
 29 
     !if $test!=$empty
- 
 
 30 
      seqinverse=!replace $test by $test,$num in $seqinverse
- 
 
 31 
     !else
- 
 
 32 
      seqinverse=!append line $(l_[$v_]),:$num to $seqinverse
- 
 
 33 
     !endif
- 
 
 34 
   !next
- 
 
 35 
 !next
- 
 
 36 
 seqinverse=!replace internal ,: by : in $seqinverse
- 
 
 37 
 !writefile wimshome/log/classes/$wims_class/seq/.seqinverse $seqinverse
18 
!endif
38 
!endif