Subversion Repositories wimsdev

Rev

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