!set parm1=!text select /$namechars in $parm1
!set parm1=!char 1 to $namelim of $parm1
!if $parm1=$block or $parm1=$empty
!default parm2=??
!set parm2=!slashsubst $parm2
!set pp=!item 3 to -1 of $parms
!set pp=!slashsubst $pp
<a name="primi$serial"></a>
!if $doc/$block.$serial notitemof $foldlist and $printable!=yes
!href cmd=reply&job=read&foldin=$block.$serial#primi$serial $parm2
!else
$pp
!if $printable!=yes
<small>[
!href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
]</small>
!endif
!endif
!endif
!read $docdir/$doc/$parm1.def
!set prompt=!item 2 to -1 of $parms
!default prompt=$titb
!if $titb=$empty
!default prompt=<tt>$parm1</tt>
$prompt
<small>$n_nonavailable</small>
!else
<a name="primi$serial"></a>
$prompt
!if $printable=yes
!goto alwaysin
!endif
<small>[
!if $doc/$block.$serial notitemof $foldlist and robot notin $session
!href cmd=reply&job=read&foldin=$block.$serial#primi$serial $n_detail
]</small>
!else
!href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
]
</small>
:alwaysin
!set blocksave=$blocksave $block
!set block=$parm1
!read $docdir/$doc/$parm1.def content
!set block=!word -1 of $blocksave
!set blocksave=!word 1 to -2 of $blocksave
!set gotblock=!append item $parm1 to $gotblock
!endif
!endif