Subversion Repositories wimsdev

!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

 !exit

!endif

!reset titb

!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