Subversion Repositories wimsdev

Rev

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

Rev 11848 Rev 12335
Line 4... Line 4...
4 
!if $cf_abandon!=$empty or $seq=$empty
 4 
!if $cf_abandon!=$empty or $seq=$empty
5 
 !reset cf_abandon
 5 
  !reset cf_abandon
6 
 job=show
 6 
  job=show
7 
 !exit
 7 
  !exit
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
!if $seq>$maxseq
 10 
!if $seq>$maxseq
11 
 error=toomanyseq
 11 
  error=toomanyseq
12 
 !exit
 12 
  !exit
13 
!endif
 13 
!endif
14 
 
 14 
 
15 
!if $cmd=reply
 15 
!if $cmd=reply
16 
 
 16 
 
17 
new_data=:$seq_title\
 17 
new_data=:$seq_title\
Line 46... Line 46...
46 
$visible
 46 
$visible
47 
 
 47 
 
48 
s_ =!record 0 of .sequences
 48 
s_ =!record 0 of .sequences
49 
s_=!line 2 to -1 of s_
 49 
s_=!line 2 to -1 of s_
50 
!if $seq= $[$seq_cnt+1]
 50 
!if $seq= $[$seq_cnt+1]
51 
 seq_cnt=$[$seq_cnt+1]
 51 
  seq_cnt=$[$seq_cnt+1]
52 
 !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
 52 
  !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
53 
 $s_
 53 
 $s_
54 
!endif
 54 
!endif