Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

!default dat1=19000101
!default dat2=24000101

datetest=0
!exit
!if $editable!=yes and ($dat1>20000101 or $dat2<21000101)
 today=!char 1 to 8 of $wims_now
 !if $today<$dat1
  datetest=-1
 !endif
 !if $today>$dat2
  datetest=1
 !endif
!endif