Subversion Repositories wimsdev

Rev

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

  1.  
  2. !set add=$parm1
  3. !if ? isin $add
  4.   !set add=!translate internal ? to , in $add
  5.   !set add=!item 2 of $add
  6. !endif
  7. !set add=!translate internal & to $ $ in $add
  8. !set n=!wordcnt $add
  9. !reset nadd,lmod,lses,lcmd
  10. !for i=1 to $n
  11.   !set l=!word $i of $add
  12.   !set ll=!translate = to , in $l
  13.   !distribute items $ll into l1,l2
  14.   !if $l1=cmd and $l2 iswordof intro help
  15.     !set lcmd=$l2
  16.   !endif
  17.   !if $l1=module
  18.     !set lmod=$l2
  19.   !endif
  20.   !if $l1 notwordof module cmd session
  21.     !set nadd=$nadd $l
  22.   !endif
  23. !next i
  24. !default lmod=home
  25. !default lcmd=new
  26. !set nadd=!translate internal $ $ to & in $nadd
  27. !set prompt=!item 2 to -1 of $parms
  28. !default prompt=!module title $lmod
  29.  
  30. !default prompt=$name_prompt
  31.  
  32. !if $prim=exercise
  33.   !href target=wims_exo module=$lmod&cmd=$lcmd$nadd $prompt
  34. !endif
  35. !if $prim=doc
  36.   !href target=wims_exo module=$lmod&cmd=$lcmd$nadd $prompt
  37. !endif
  38. !if $prim=tool
  39.   !href target=wims_tool module=$lmod&cmd=$lcmd$nadd $prompt
  40. !endif
  41. !if $prim=example
  42.   !href target=wims_example module=$lmod&cmd=$lcmd$nadd $prompt
  43. !endif
  44. !if $prim=help
  45.   !href target=wims_help module=$lmod&cmd=$lcmd$nadd $prompt
  46. !endif
  47.