Subversion Repositories wimsdev

Rev

Rev 3912 | Rev 12335 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3912 Rev 11848
Line 16... Line 16...
16 
 
 16 
 
17 
new_data=:$seq_title\
 17 
new_data=:$seq_title\
18 
$seq_desc
 18 
$seq_desc
19 
 
 19 
 
20 
!set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
 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
21 
!set listc=!makelist c_ i for i=1 to $doccnt
 23 
!set listc=!replace internal c by c_$ $ in $listc
22 
!set listexam=!makelist exam_ i for i=1 to $examcnt
 24 
!set listexam=!makelist exam_ i for i=1 to $examcnt
23 
!set listsheet=!makelist sheet_ i for i=1 to $sheetcnt
 25 
!set listsheet=!makelist sheet_ i for i=1 to $sheetcnt
24 
!set listvote=!makelist vote_ i for i=1 to $votecnt
 26 
!set listvote=!makelist vote_ i for i=1 to $votecnt
25 
list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote
 27 
list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote
26 
list=!nonempty items $list
 28 
list=!nonempty items $list
Line 48... Line 50...
48 
!if $seq= $[$seq_cnt+1]
 50 
!if $seq= $[$seq_cnt+1]
49 
 seq_cnt=$[$seq_cnt+1]
 51 
 seq_cnt=$[$seq_cnt+1]
50 
 !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
 52 
 !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
51 
 $s_
 53 
 $s_
52 
!endif
 54 
!endif
53 
 
 -