Subversion Repositories wimsdev

Rev

Rev 12733 | Details | Compare with Previous | Last modification | View Log | RSS feed

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