Subversion Repositories wimsdev

Rev

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

  1.  
  2. !distribute items $wims_read_parm into serial, prim, parm1, parm2, parm3, parm4
  3. !set parms=!items 3 to -1 of $wims_read_parm
  4.  
  5. !if $prim=$empty or $prim iswordof def define comment
  6.  !exit
  7. !endif
  8. !if $prim notwordof reload resource calcform exercise tool doc example help adm
  9.  !changeto docu/primitives/$prim.phtml
  10. !endif
  11.  
  12. !goto $prim
  13.  
  14. :reload
  15. !if $printable=yes
  16.  !exit
  17. !endif
  18. !reset anchor
  19. !if $parm2!=$empty
  20.  !set anchor=#$parm2
  21. !endif
  22. !href cmd=reply&job=read$anchor $parm1
  23. !exit
  24.  
  25. :resource
  26.  !for w in $parms
  27.   !pedia $w
  28.    
  29.  !next w
  30. !exit
  31.  
  32. :calcform
  33.  !set gotcnt=!itemcnt $parms
  34.  !if $gotcnt<1
  35.   !exit
  36.  !endif
  37.  !set gotm=$parms
  38.  !read popup/search.phtml noremark
  39. !exit
  40.  
  41. :exercise
  42. :tool
  43. :doc
  44. :example
  45. :help
  46. :adm
  47. !changeto docu/primitives/target.phtml
  48.  
  49.