Subversion Repositories wimsdev

Rev

Rev 1685 | 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. !goto $prim
  12.  
  13. :reload
  14. !if $printable=yes
  15.  !exit
  16. !endif
  17. !reset anchor
  18. !if $parm2!=$empty
  19.  !set anchor=#$parm2
  20. !endif
  21. !href cmd=reply&job=read$anchor $parm1
  22. !exit
  23.  
  24. :resource
  25.  !for w in $parms
  26.   !pedia $w
  27.    
  28.  !next w
  29. !exit
  30.  
  31. :calcform
  32.  !set gotcnt=!itemcnt $parms
  33.  !if $gotcnt<1
  34.   !exit
  35.  !endif
  36.  !set gotm=$parms
  37.  !read popup/search.phtml noremark
  38. !exit
  39.  
  40. :exercise
  41. :tool
  42. :doc
  43. :example
  44. :help
  45. :adm
  46. !changeto docu/primitives/target.phtml
  47.