Subversion Repositories wimsdev

Rev

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

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