Subversion Repositories wimsdev

Rev

Rev 7681 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7681 Rev 12733
Line 1... Line 1...
1 
!if $wims_read_parm=$empty or \
 1 
!if $wims_read_parm=$empty or \
2 
	$wims_read_parm isitemof $gotblock,$waitblock,$(waitblock_$block)
 2 
	  $wims_read_parm isitemof $gotblock,$waitblock,$(waitblock_$block)
3 
 !exit
 3 
  !exit
4 
!endif
 4 
!endif
5 
 
 5 
 
6 
!reset titb,upbl,prev,next,dat1,dat2,datm
 6 
!reset titb,upbl,prev,next,dat1,dat2,datm
7 
!readproc $docdir/$doc/$wims_read_parm.def
 7 
!readproc $docdir/$doc/$wims_read_parm.def
8 
!default dat1=19000101
 8 
!default dat1=19000101
9 
!default dat2=24000101
 9 
!default dat2=24000101
10 
!if $titb=$empty or $today<$dat1 or $today>$dat2 or $upbl!=$block
 10 
!if $titb=$empty or $today<$dat1 or $today>$dat2 or $upbl!=$block
11 
 !exit
 11 
  !exit
12 
!endif
 12 
!endif
13 
!if $datm!=$empty and $datm>$Datm
 13 
!if $datm!=$empty and $datm>$Datm
14 
 Datm=$datm
 14 
  Datm=$datm
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
waitblock_$block=!append item $wims_read_parm to $(waitblock_$block)
 17 
waitblock_$block=!append item $wims_read_parm to $(waitblock_$block)