Subversion Repositories wimsdev

 !for j =1 to $seq_cnt

  !for j =1 to $seq_cnt

  !set s_=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$j

    !set s_=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$j

  !set s_=!line 3 of $s_

    !set s_=!line 3 of $s_

  !set scnt=!itemcnt $s_

    !set scnt=!itemcnt $s_

  list_exsh=!append line $j\

    list_exsh=!append line $j\

  to $list_exsh

    to $list_exsh

  !for k=1 to $scnt

    !for k=1 to $scnt

   !if exam isin $(s_[$k]) or sheet isin $(s_[$k])

      !if exam isin $(s_[$k]) or sheet isin $(s_[$k])

     list_exsh=!append item $(s_[$k]) to $list_exsh

        list_exsh=!append item $(s_[$k]) to $list_exsh

   !endif

      !endif

  !next k

    !next k

!next j

  !next j

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

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

!endif 

!endif