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