Subversion Repositories wimsdev

!if $seq_cnt!=
 !for j =1 to $seq_cnt
  !set s_=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$j
  !set s_=!line 3 of $s_
  !set scnt=!itemcnt $s_
  list_exsh=!append line $j\
  to $list_exsh
  list_all=!append line $j to $list_all
  !for k=1 to $scnt
    !if exam isin $(s_[$k]) or sheet isin $(s_[$k])
     list_exsh=!append item $(s_[$k]) to $list_exsh
    !endif
    list_all=!append item $(s_[$k]) to $list_all
  !next k
 !next j

 !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
$list_exsh\

!!create .seqinverse with all ressources
 !reset seqinverse
 scnt=!linecnt $list_all
 !for ll_ = 1 to $scnt
   l_=!line $ll_ of $list_all
   num=!item 1 of $l_
   cnt_=!itemcnt $l_
   !for v_ = 2 to $cnt_
     test=!select $seqinverse where column 1 = $(l_[$v_])
     !if $test!=$empty
      seqinverse=!replace $test by $test,$num in $seqinverse
     !else
      seqinverse=!append line $(l_[$v_]),:$num to $seqinverse
     !endif
   !next
 !next
 seqinverse=!replace internal ,: by : in $seqinverse
 !writefile wimshome/log/classes/$wims_class/seq/.seqinverse $seqinverse
!endif