File: printlink.proc

package info (click to toggle)
wims 2%3A4.29a%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 185,704 kB
  • sloc: xml: 366,687; javascript: 120,570; ansic: 62,341; java: 62,170; sh: 7,744; perl: 3,937; yacc: 3,217; cpp: 1,915; lex: 1,805; makefile: 1,084; lisp: 914; pascal: 601; python: 520; php: 318; asm: 7
file content (17 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
!if $wims_read_parm=$empty or \
    $wims_read_parm isitemof $gotblock,$waitblock,$(waitblock_$block)
  !exit
!endif

!reset titb,upbl,prev,next,dat1,dat2,datm
!readproc $docdir/$doc/$wims_read_parm.def
!default dat1=19000101
!default dat2=24000101
!if $titb=$empty or $today<$dat1 or $today>$dat2 or $upbl!=$block
  !exit
!endif
!if $datm!=$empty and $datm>$Datm
  Datm=$datm
!endif

waitblock_$block=!append item $wims_read_parm to $(waitblock_$block)