Subversion Repositories wimsdev

Rev

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

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