Subversion Repositories wimsdev

Rev

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