!!##language independant
!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 id="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
!set wims_ref_class=wims_button small
!href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
!endif
!endif
!endif
!read $docdir/$doc/$parm1.def
!set prompt=!item 2 to -1 of $parms
!default prompt=$titb
!if $titb=$empty
!default prompt=<span class="tt">$parm1</span>
$prompt
<span class="small">$n_nonavailable</span>
!else
<a id="primi$serial"></a>
$prompt
!if $printable=yes
!goto alwaysin
!endif
!set wims_ref_class=wims_button small
!if $doc/$block.$serial notitemof $foldlist and robot notin $session
!href cmd=reply&job=read&foldin=$block.$serial#primi$serial $wims_name_detail
!else
!href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
: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