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
  seq_desc=!replace internal $\
$ by $ $ in $seq_desc
  seq_title=!char 1 to $title_limit of $seq_title
  seq_desc=!char 1 to $desc_limit of $seq_desc
  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
  !set listtool=!makelist tool_ i for i=1 to $toolcnt
  !set listglossary=!makelist glossary_ i for i=1 to $glossarycnt
  !set listfreework=!makelist freework_ i for i=1 to $freeworkcnt
  list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary,$listfreework
  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 j
  list=!replace internal _ by $ $ in $(listfinal)
  new_data=!append line $list to $new_data
  !bound visible within 0,1 default 0
  !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
!endif