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