Subversion Repositories wimsdev

Rev

Rev 7241 | 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.   !!have replace the condition $pdoc=1 and $doc=1 by $doctype=devel
  26.   !if $doctype=devel and $wims_developer!=$empty
  27.     !set dd=$wims_priv_docdir
  28.   !else
  29.     !set dd=wimshome/public_html/bases/doc
  30.   !endif
  31. !endif
  32. !read $dd/$pdoc/$parm1.def
  33. !default pname=$titb
  34. !default pname=$parm1
  35. !set parm3=!word 1 of $parm3
  36. !if $parm3!=$empty
  37.   !set anchor=#$parm3
  38. !else
  39.   !reset anchor
  40. !endif
  41. !set parm4=!word 1 of $parm4
  42. !if $parm4!=$empty
  43.   !set mparms=&$parm4
  44. !else
  45.   !reset mparms
  46. !endif
  47. !if $titb=$empty
  48.   !if $editable=yes and $pdoc=$doc
  49.     !href cmd=reply&job=edit&doc=$pdoc&block=$parm1 $pname ($n_create)
  50.   !else
  51.     $pname
  52.   !endif
  53. !else
  54.   !if $printable=yes and $pdoc=$doc
  55.     <a href="#$parm1">$pname</a>
  56.     !readproc printlink.proc $parm1
  57.   !else
  58.     !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms$anchor $pname
  59.   !endif
  60. !endif
  61.