Rev 8355 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8355 | Rev 12490 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !default dat1=19000101 |
1 | !default dat1=19000101 |
2 | !default dat2=24000101 |
2 | !default dat2=24000101 |
3 | 3 | ||
4 | datetest=0 |
4 | datetest=0 |
5 | !if $editable!=yes and ($dat1>20000101 or $dat2<21000101) |
5 | !if $editable!=yes and ($dat1>20000101 or $dat2<21000101) |
6 | today=!char 1 to 8 of $wims_now |
6 | today=!char 1 to 8 of $wims_now |
7 | !if $today<$dat1 |
7 | !if $today<$dat1 |
8 | datetest=-1 |
8 | datetest=-1 |
9 | !endif |
9 | !endif |
10 | !if $today>$dat2 |
10 | !if $today>$dat2 |
11 | datetest=1 |
11 | datetest=1 |
12 | !endif |
12 | !endif |
13 | !endif |
13 | !endif |