Subversion Repositories wimsdev

Rev

Rev 12586 | 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 glose
  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. !if $modu_lang iswordof en fr ca cn
  38.   !set ll=$modu_lang
  39. !endif
  40. !default ll=en
  41. !read docu/popup.$ll/search.phtml noremark
  42. !exit
  43.  
  44. :exercise
  45. :tool
  46. :doc
  47. :example
  48. :help
  49. :adm
  50. :glose
  51. !changeto docu/primitives/target.phtml
  52.