Subversion Repositories wimsdev

Rev

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