Subversion Repositories wimsdev

Rev

Rev 14049 | Rev 15987 | 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
16
 
14049 bpr 17
  new_data=:$seq_title\
18
  $seq_desc
1406 bpr 19
 
14049 bpr 20
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
21
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
22
  !set listc=!lines2items $listc
23
  !set listc=!replace internal c by c_$ $ in $listc
24
  !set listexam=!makelist exam_ i for i=1 to $examcnt
25
  !set listsheet=!makelist sheet_ i for i=1 to $sheetcnt
26
  !set listvote=!makelist vote_ i for i=1 to $votecnt
27
  !set listtool=!makelist tool_ i for i=1 to $toolcnt
28
  !set listglossary=!makelist glossary_ i for i=1 to $glossarycnt
14769 guerimand 29
  !set listfreework=!makelist freework_ i for i=1 to $freeworkcnt
30
  list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary,$listfreework
14049 bpr 31
  list=!nonempty items $list
32
  list1=debut
33
  !for x in $list
34
    list1=!append item $($x) to $list1
35
  !next
36
  list1=$(list1[2..-1])
37
  listcnt=!replace internal ,0, by , in ,$list1,
38
  listcnt=!nonempty items $listcnt
39
  listcnt=!itemcnt $listcnt
40
  !for j = 1 to $listcnt
41
    jj=!positionof item $j in $list1
42
    !if $jj!=
43
      listfinal=!append item $(list[$jj]) to $listfinal
44
    !endif
14769 guerimand 45
  !next j
14049 bpr 46
  list=!replace internal _ by $ $ in $(listfinal)
47
  new_data=!append line $list to $new_data
48
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
1406 bpr 49
$visible
50
 
14049 bpr 51
  s_ =!record 0 of .sequences
52
  s_=!line 2 to -1 of s_
53
  !if $seq= $[$seq_cnt+1]
54
    seq_cnt=$[$seq_cnt+1]
55
    !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
56
    $s_
57
  !endif
1406 bpr 58
!endif