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] |