Subversion Repositories wimsdev

Rev

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

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