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]