Subversion Repositories wimsdev

Rev

Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 12733
Line 3... Line 3...
3 
 
 3 
 
4 
datetest=0
 4 
datetest=0
5 
!exit
 5 
!exit
6 
!if $editable!=yes and ($dat1>20000101 or $dat2<21000101)
 6 
!if $editable!=yes and ($dat1>20000101 or $dat2<21000101)
7 
 today=!char 1 to 8 of $wims_now
 7 
 today=!char 1 to 8 of $wims_now
8 
 !if $today<$dat1
 8 
  !if $today<$dat1
9 
  datetest=-1
 9 
    datetest=-1
10 
 !endif
 10 
  !endif
11 
 !if $today>$dat2
 11 
  !if $today>$dat2
12 
  datetest=1
 12 
    datetest=1
13 
 !endif
 13 
  !endif
14 
!endif
 14 
!endif