Rev 8355 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | !default dat1=19000101 |
| 2 | !default dat2=24000101 |
||
| 3 | |||
| 4 | datetest=0 |
||
| 5 | !if $editable!=yes and ($dat1>20000101 or $dat2<21000101) |
||
| 12490 | bpr | 6 | today=!char 1 to 8 of $wims_now |
| 7 | !if $today<$dat1 |
||
| 8 | datetest=-1 |
||
| 9 | !endif |
||
| 10 | !if $today>$dat2 |
||
| 11 | datetest=1 |
||
| 12 | !endif |
||
| 8355 | bpr | 13 | !endif |