Subversion Repositories wimsdev

new_data=:$seq_title\

  new_data=:$seq_title\

$seq_desc

  $seq_desc

!set listdoc=!makelist doc_ i for i=1 to $docpubliccnt

  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt

!set listc=!filelist $wims_home/log/classes/$wims_class/doc

  !set listc=!filelist $wims_home/log/classes/$wims_class/doc

!set listc=!lines2items $listc

  !set listc=!lines2items $listc

!set listc=!replace internal c by c_$ $ in $listc

  !set listc=!replace internal c by c_$ $ in $listc

!set listexam=!makelist exam_ i for i=1 to $examcnt

  !set listexam=!makelist exam_ i for i=1 to $examcnt

!set listsheet=!makelist sheet_ i for i=1 to $sheetcnt

  !set listsheet=!makelist sheet_ i for i=1 to $sheetcnt

!set listvote=!makelist vote_ i for i=1 to $votecnt

  !set listvote=!makelist vote_ i for i=1 to $votecnt

!set listtool=!makelist tool_ i for i=1 to $toolcnt

  !set listtool=!makelist tool_ i for i=1 to $toolcnt

!set listglossary=!makelist glossary_ i for i=1 to $glossarycnt

  !set listglossary=!makelist glossary_ i for i=1 to $glossarycnt

list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary

  list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary

list=!nonempty items $list

  list=!nonempty items $list

list1=debut

  list1=debut

!for x in $list

  !for x in $list

  list1=!append item $($x) to $list1

    list1=!append item $($x) to $list1

!next

  !next

list1=$(list1[2..-1])

  list1=$(list1[2..-1])

listcnt=!replace internal ,0, by , in ,$list1,

  listcnt=!replace internal ,0, by , in ,$list1,

listcnt=!nonempty items $listcnt

  listcnt=!nonempty items $listcnt

listcnt=!itemcnt $listcnt

  listcnt=!itemcnt $listcnt

!for j = 1 to $listcnt

  !for j = 1 to $listcnt

  jj=!positionof item $j in $list1

    jj=!positionof item $j in $list1

  !if $jj!=

    !if $jj!=

    listfinal=!append item $(list[$jj]) to $listfinal

      listfinal=!append item $(list[$jj]) to $listfinal

  !endif

    !endif

!next

  !next

list=!replace internal _ by $ $ in $(listfinal)

  list=!replace internal _ by $ $ in $(listfinal)

new_data=!append line $list to $new_data

  new_data=!append line $list to $new_data

!writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\

  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\

s_ =!record 0 of .sequences

  s_ =!record 0 of .sequences

s_=!line 2 to -1 of s_

  s_=!line 2 to -1 of s_

!if $seq= $[$seq_cnt+1]

  !if $seq= $[$seq_cnt+1]

  seq_cnt=$[$seq_cnt+1]

    seq_cnt=$[$seq_cnt+1]

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

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

 $s_

    $s_