Subversion Repositories wimsdev

Rev

Rev 15988 | Rev 15998 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1406 bpr 1
 
3912 bpr 2
!bound seq between integer 1 and $seq_cnt+1 default $empty
1406 bpr 3
 
4
!if $cf_abandon!=$empty or $seq=$empty
12335 bpr 5
  !reset cf_abandon
6
  job=show
7
  !exit
1406 bpr 8
!endif
9
 
10
!if $seq>$maxseq
12335 bpr 11
  error=toomanyseq
12
  !exit
1406 bpr 13
!endif
14
 
15
!if $cmd=reply
15987 guerimand 16
  seq_desc=!replace internal $\
17
$ by $ $ in $seq_desc
15988 guerimand 18
  seq_title=!char 1 to $title_limit of $seq_title
19
  seq_desc=!char 1 to $desc_limit of $seq_desc
14049 bpr 20
  new_data=:$seq_title\
21
  $seq_desc
1406 bpr 22
 
14049 bpr 23
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
24
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
25
  !set listc=!lines2items $listc
26
  !set listc=!replace internal c by c_$ $ in $listc
27
  !set listexam=!makelist exam_ i for i=1 to $examcnt
28
  !set listsheet=!makelist sheet_ i for i=1 to $sheetcnt
29
  !set listvote=!makelist vote_ i for i=1 to $votecnt
30
  !set listtool=!makelist tool_ i for i=1 to $toolcnt
31
  !set listglossary=!makelist glossary_ i for i=1 to $glossarycnt
14769 guerimand 32
  !set listfreework=!makelist freework_ i for i=1 to $freeworkcnt
33
  list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary,$listfreework
14049 bpr 34
  list=!nonempty items $list
35
  list1=debut
36
  !for x in $list
37
    list1=!append item $($x) to $list1
38
  !next
39
  list1=$(list1[2..-1])
40
  listcnt=!replace internal ,0, by , in ,$list1,
41
  listcnt=!nonempty items $listcnt
42
  listcnt=!itemcnt $listcnt
43
  !for j = 1 to $listcnt
44
    jj=!positionof item $j in $list1
45
    !if $jj!=
46
      listfinal=!append item $(list[$jj]) to $listfinal
47
    !endif
14769 guerimand 48
  !next j
14049 bpr 49
  list=!replace internal _ by $ $ in $(listfinal)
50
  new_data=!append line $list to $new_data
15989 guerimand 51
  !bound visible within 0,1 default 0
14049 bpr 52
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
1406 bpr 53
$visible
54
 
14049 bpr 55
  s_ =!record 0 of .sequences
56
  s_=!line 2 to -1 of s_
57
  !if $seq= $[$seq_cnt+1]
58
    seq_cnt=$[$seq_cnt+1]
59
    !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
60
    $s_
61
  !endif
1406 bpr 62
!endif