Subversion Repositories wimsdev

Rev

Rev 12733 | Rev 16213 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##language independant
  2. !set parm1=!text select /$namechars in $parm1
  3. !set parm1=!char 1 to $namelim of $parm1
  4.  
  5. !if $parm1=$block or $parm1=$empty
  6.   !default parm2=??
  7.   !set parm2=!slashsubst $parm2
  8.   !set pp=!item 3 to -1 of $parms
  9.   !set pp=!slashsubst $pp
  10.   <a id="primi$serial"></a>
  11.   !if $doc/$block.$serial notitemof $foldlist and $printable!=yes
  12.     !set wims_ref_class=wims_button
  13.     !href cmd=reply&job=read&foldin=$block.$serial#primi$serial $parm2
  14.  !else
  15.     $pp
  16.     !if $printable!=yes
  17.       <span class="small">[
  18.       !set wims_ref_class=wims_button
  19.       !href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
  20.      ]</span>
  21.     !endif
  22.   !endif
  23.   !exit
  24. !endif
  25.  
  26. !reset titb
  27. !read $docdir/$doc/$parm1.def
  28. !set prompt=!item 2 to -1 of $parms
  29. !default prompt=$titb
  30. !if $titb=$empty
  31.   !default prompt=<span class="tt">$parm1</span>
  32.   $prompt
  33.   <span class="small">$n_nonavailable</span>
  34. !else
  35.   <a id="primi$serial"></a>
  36.   $prompt
  37.   !if $printable=yes
  38.     !goto alwaysin
  39.   !endif
  40.   <span class="small">[
  41.   !set wims_ref_class=wims_button
  42.   !if $doc/$block.$serial notitemof $foldlist and robot notin $session
  43.     !href cmd=reply&job=read&foldin=$block.$serial#primi$serial $wims_name_detail
  44.    ]</span>
  45.   !else
  46.     !href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
  47.    ]
  48.     </span>
  49.     :alwaysin
  50.     !set blocksave=$blocksave $block
  51.     !set block=$parm1
  52.     !read $docdir/$doc/$parm1.def content
  53.     !set block=!word -1 of $blocksave
  54.     !set blocksave=!word 1 to -2 of $blocksave
  55.     !set gotblock=!append item $parm1 to $gotblock
  56.   !endif
  57. !endif
  58.