Subversion Repositories wimsdev

Rev

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

  1. !set parm1=!text select /$namechars in $parm1
  2. !set parm1=!char 1 to $namelim*2 of $parm1
  3.  
  4. !if \ isin $parm2$parm3$parm4
  5.  !for p in 2,3,4
  6.   !set parm$p=!slashsubst $(parm$p)
  7.  !next p
  8. !endif
  9. !if / isin $parm1
  10.  !set p_=!translate / to $ $ in $parm1
  11.  parm1=!word -1 of $p_
  12.  pdoc=!word 1 to -2 of $p_
  13.  pdoc=!translate $ $ to / in $pdoc
  14. !else
  15.  !set pdoc=$doc
  16. !endif
  17. !if $parm1=$empty or $parm1=.
  18.  !set parm1=$block
  19.  !set pdoc=$doc
  20. !endif
  21. !set pname=$parm2
  22. !reset titb
  23. !if c isin $pdoc and $wims_class!=$empty
  24.  !set dd=classes/$wims_class/doc
  25. !else
  26.  !set dd=doc
  27. !endif
  28. !read $dd/$pdoc/$parm1.def
  29. !default pname=$titb
  30. !default pname=$parm1
  31. !set parm3=!word 1 of $parm3
  32. !if $parm3!=$empty
  33.  !set anchor=#$parm3
  34. !else
  35.  !reset anchor
  36. !endif
  37. !set parm4=!word 1 of $parm4
  38. !if $parm4!=$empty
  39.  !set mparms=&$parm4
  40. !else
  41.  !reset mparms
  42. !endif
  43. !if $titb=$empty and $pdoc=$doc
  44.  $pname
  45. !else
  46.  !if $printable=yes and $pdoc=$doc
  47.   <a href=#$parm1>$pname</a>
  48.  !readproc docu/printlink.proc $parm1
  49.  !else
  50.   !if $pdoc=$doc
  51.    !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms$anchor $pname
  52.   !else
  53.    !href module=$pdoc&cmd=new&job=read&block=$parm1$mparms$anchor $pname  
  54.   !endif
  55.  !endif
  56. !endif
  57.