Subversion Repositories wimsdev

Rev

Rev 12490 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##language independant
  2. !if $printable=yes
  3.   !exit
  4. !endif
  5. !set parm1=!text select /$namechars in $parm1
  6. !set parm1=!char 1 to $namelim*2 of $parm1
  7. !if / isin $parm1
  8.   !set p_=!translate / to , in $parm1
  9.   !distribute items $p_ into pdoc,parm1
  10. !else
  11.   !set pdoc=$doc
  12. !endif
  13. !if $parm1=$empty or $parm1=.
  14.   !set parm1=$block
  15.   !set pdoc=$doc
  16. !endif
  17.  
  18. !set parm2=!word 1 of $parm2
  19. !if $parm2!=$empty
  20.   !set wims_ref_anchor=#$parm2
  21. !endif
  22.  
  23. !set pp=!item 3 to -1 of $parms
  24. !set pp=!replace internal $     $ by $\
  25. $ in $pp
  26. !set pp=!slashsubst $pp
  27.  
  28. !if $printable=yes
  29.   $pp
  30.   !exit
  31. !endif
  32. !set wims_form_method=post
  33. !form reply
  34. <input type="hidden" name="job" value="read">
  35. <input type="hidden" name="doc" value="$doc">
  36. <input type="hidden" name="block" value="$parm1">
  37. $pp
  38.  
  39. !formend
  40.