Subversion Repositories wimsdev

Rev

Rev 18049 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18049 Rev 18051
Line 20... Line 20...
20 
  exodon=!line $k of $donnees
 20 
  exodon=!line $k of $donnees
21 
  test=!item 2 of $exodon
 21 
  test=!item 2 of $exodon
22 
  !if exercise iswordof $test
 22 
  !if exercise iswordof $test
23 
    liniparm=!item -2 of $exodon
 23 
    liniparm=!item -2 of $exodon
24 
    liniparm=!replace internal %2F by / in $liniparm
 24 
    liniparm=!replace internal %2F by / in $liniparm
- 
 
 25 
    liniparm=!replace internal &+ by & in $liniparm
25 
    title=!item -1 of $exodon
 26 
    title=!item -1 of $exodon
26 
    !! look at scripts/docu/primitives/target.phtml if the following is changed
 27 
    !! look at scripts/docu/primitives/target.phtml if the following is changed
27 
    !read getparm $liniparm module,worksheet,cmd
 28 
    !read getparm $liniparm module
28 
    test=!getdef category in wimshome/public_html/modules/$get_module/INDEX
 29 
    test=!getdef category in wimshome/public_html/modules/$get_module/INDEX
29 
    !if exercise isin $test or oef isin $test
 30 
    !if exercise isin $test or oef isin $test
30 
      !for name in cmd,worksheet,module
 - 
 
31 
        liniparm=!replace internal $name=$(get_$name) by $empty in $liniparm
 - 
 
32 
      !next name
 - 
 
33 
      liniparm=!singlespace $liniparm
 31 
      !read docu/docsh $liniparm
34 
      liniparm=!replace internal & by , in $liniparm
 - 
 
35 
      liniparm=!nonempty item $liniparm
 32 
      !set liniparm=$docsh_out
36 
      liniparm=!replace internal , by & in $liniparm
 - 
 
37 
      !if $(liniparm),$get_module notlineof $already
 33 
      !if $(liniparm),$get_module notlineof $already
38 
        already=!append line $(liniparm),$get_module to $already
 34 
        already=!append line $(liniparm),$get_module to $already
39 
        helpcmd=!item 1 of $exodon
 35 
        helpcmd=!item 1 of $exodon
40 
        helpcmd=!replace internal : by , in $helpcmd
 36 
        helpcmd=!replace internal : by , in $helpcmd
41 
        helpcmd=!replace internal / by , in $(helpcmd[1])
 37 
        helpcmd=!replace internal / by , in $(helpcmd[1])