Subversion Repositories wimsdev

Rev

Rev 12335 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1406 bpr 1
 
2
!if $seq_abandon!=$empty
12335 bpr 3
  !reset seq_abandon
4
  job=show
5
  !exit
1406 bpr 6
!endif
7
!if $seq_set!=$empty
12335 bpr 8
  !reset seq_set
9
  seq_Title=!trim $seq_Title
10
  !if $seq_Title=$empty
11
    seq_Title=$wims_name_sequence
12
  !endif
13
  seq_description=!singlespace $seq_description
14
  seq_Title=!singlespace $seq_Title
15
  seq_Title=!char 1 to 50 of $seq_Title
16
  seq_description=!char 1 to 1024 of $seq_description
16343 bpr 17
  !setdef !set sequence_reverse=$seq_reverse\
1406 bpr 18
!set sequence_Title=$seq_Title\
19
!set sequence_description=$seq_description\
20
!set sequence_open=$seq_open\
21
   in wimshome/log/classes/$wims_class/seq/.def
22
!else
12335 bpr 23
  !for k in Title,description,reverse,open
24
    seq_$k=$(sequence_$k)
25
  !next k
1406 bpr 26
!endif