Subversion Repositories wimsdev

!bound seq between integer 1 and $seq_cnt+1 default $empty

!if $cf_abandon!=$empty or $seq=$empty

 !reset cf_abandon

 job=show

 !exit

!endif

!if $seq>$maxseq

 error=toomanyseq

 !exit

!endif

!if $cmd=reply

new_data=:$seq_title\

$seq_desc

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

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

!set listc=!lines2items $listc

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

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

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

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

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

list=!nonempty items $list

list1=debut

!for x in $list

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

!next

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

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

listcnt=!nonempty items $listcnt

listcnt=!itemcnt $listcnt

!for j = 1 to $listcnt

  jj=!positionof item $j in $list1

  !if $jj!=

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

  !endif

!next

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

new_data=!append line $list to $new_data

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

$visible

s_ =!record 0 of .sequences

s_=!line 2 to -1 of s_

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

 seq_cnt=$[$seq_cnt+1]

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

 $s_

!endif