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