Subversion Repositories wimsdev

Rev

Rev 1790 | Go to most recent revision | 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.  !endif
  18.  !if $l1=module
  19.    !set lmod=$l2
  20.  !endif
  21.  !if $l1 notwordof module cmd session
  22.    !set nadd=$nadd $l
  23.  !endif
  24. !next i
  25. !default lmod=home
  26. !default lcmd=new
  27. !set nadd=!translate internal $ $ to & in $nadd
  28. !set prompt=!item 2 to -1 of $parms
  29. !default prompt=!module title $lmod
  30.  
  31. !default prompt=$name_prompt
  32.  
  33. !if $prim=exercise
  34.  !href target=wims_exo module=$lmod&cmd=$lcmd$nadd $prompt
  35. !endif
  36. !if $prim=doc
  37.  !href target=wims_exo module=$lmod&cmd=$lcmd$nadd $prompt
  38. !endif
  39. !if $prim=tool
  40.  !href target=wims_tool module=$lmod&cmd=$lcmd$nadd $prompt
  41. !endif
  42. !if $prim=example
  43.  !href target=wims_example module=$lmod&cmd=$lcmd$nadd $prompt
  44. !endif
  45. !if $prim=help
  46.  !href target=wims_help module=$lmod&cmd=$lcmd$nadd $prompt
  47. !endif
  48.  
  49.