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 |