Subversion Repositories wimsdev

Rev

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