Subversion Repositories wimsdev

Rev

Rev 23 | Rev 8355 | Go to most recent revision | 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)
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
13 
!endif