Subversion Repositories wimsdev

Rev

Rev 13771 | 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. !if $prim=$empty or $prim iswordof def define comment
  5.   !exit
  6. !endif
  7. !if $prim notwordof reload resource calcform exercise tool doc example help adm href
  8.   !changeto primitives/$prim.phtml
  9. !endif
  10. !goto $prim
  11.  
  12. :reload
  13. !if $printable=yes
  14.   !exit
  15. !endif
  16. !reset anchor
  17. !if $parm2!=$empty
  18.   !set anchor=#$parm2
  19. !endif
  20. !href cmd=reply&job=read$anchor $parm1
  21. !exit
  22.  
  23. :resource
  24. !for w in $parms
  25.   !pedia $w
  26.    
  27. !next w
  28. !exit
  29.  
  30. :calcform
  31. !set gotcnt=!itemcnt $parms
  32. !if $gotcnt<1
  33.   !exit
  34. !endif
  35. !set gotm=$parms
  36. !if $modu_lang iswordof en fr ca cn
  37.   !set ll=$modu_lang
  38. !endif
  39. !default ll=en
  40. !read popup.$ll/search.phtml noremark
  41. !exit
  42.  
  43. :exercise
  44. :tool
  45. :doc
  46. :example
  47. :help
  48. :adm
  49. !changeto primitives/target.phtml
  50.  
  51. :href
  52. !! redirect to scripts/docu
  53. !changeto docu/primitives/href.phtml
  54.