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