Subversion Repositories wimsdev

Rev

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

Rev 16158 Rev 16223
Line 20... Line 20...
20 
$ by $ $ in $seq_desc
 20 
$ by $ $ in $seq_desc
21 
  seq_title=!char 1 to $title_limit of $seq_title
 21 
  seq_title=!char 1 to $title_limit of $seq_title
22 
  seq_desc=!char 1 to $desc_limit of $seq_desc
 22 
  seq_desc=!char 1 to $desc_limit of $seq_desc
23 
  new_data=:$seq_title\
 23 
  new_data=:$seq_title\
24 
$seq_desc
 24 
$seq_desc
25 
!!  !! ---- check hidedate and showdate
 - 
 
26 
!!  today=!char 1 to 8 of $wims_now
 - 
 
27 
!!  thisyear=!char 1 to 4 of $today
 - 
 
28 
!!  !for k in hide,show
 - 
 
29 
!!    $(k)date=!text select char 0123456789 in $($(k)date)
 - 
 
30 
!!    expmon=!char 5 to 6 of $($(k)date)
 - 
 
31 
!!    expday=!char 7 to 8 of $($(k)date)
 - 
 
32 
!!    expyear=!char 1 to 4 of $($(k)date)
 - 
 
33 
!!    !if $expday<1 or $expday>31 or $expmon<1 or $expmon>12 \
 - 
 
34 
!!      or $expyear<$thisyear or $expyear>$thisyear+1 \
 - 
 
35 
!!      or $($(k)date)<$class_creation \
 - 
 
36 
!!      or $($(k)date)>$class_expiration \
 - 
 
37 
!!      or N isin $expmon$expday$expyear \
 - 
 
38 
!!      or $($(k)date)<=$today
 - 
 
39 
!!      !reset $(k)date
 - 
 
40 
!!    !endif
 - 
 
41 
!!  !next k
 - 
 
42 
!! ------ save
 - 
 
43 
 
 - 
 
44 
!! ------  manage of allow
 25 
!! ------  manage of allow
45 
  !if $tv_listname=$empty
 26 
  !if $tv_listname=$empty
46 
    !bound allowtype within all,none,select default all
 27 
    !bound allowtype within all,none,select default all
47 
  !else
 28 
  !else
48 
    !bound allowtype within all,none,select,techvar default all
 29 
    !bound allowtype within all,none,select,techvar default all
Line 114... Line 95...
114 
  !next j
 95 
  !next j
115 
  list=!replace internal _ by $ $ in $(listfinal)
 96 
  list=!replace internal _ by $ $ in $(listfinal)
116 
  new_data=!append line $list to $new_data
 97 
  new_data=!append line $list to $new_data
117 
  !bound visible within 0,1 default 0
 98 
  !bound visible within 0,1 default 0
118 
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
 99 
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
- 
 
 100 
\
119 
$visible
 101 
$visible
120 
 
 - 
 
121 
!!$hidedate\
 - 
 
122 
!!$showdate
 - 
 
123 
 
 102 
 
124 
  s_ =!record 0 of .sequences
 103 
  s_ =!record 0 of .sequences
125 
  s_=!line 2 to -1 of s_
 104 
  s_=!line 2 to -1 of s_
126 
  !if $seq= $[$seq_cnt+1]
 105 
  !if $seq= $[$seq_cnt+1]
127 
    seq_cnt=$[$seq_cnt+1]
 106 
    seq_cnt=$[$seq_cnt+1]