Rev 18051 | Rev 18053 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 18051 | Rev 18052 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !read getparm $module_init_parm wksheet |
1 | !read getparm $module_init_parm wksheet |
2 | - | ||
3 | !setdef wims_wksheet=$get_wksheet in wimshome/sessions/$wims_session/var.stat |
2 | !setdef wims_wksheet=$get_wksheet in wimshome/sessions/$wims_session/var.stat |
- | 3 | ||
4 | !if \ isin $parm1 |
4 | !if \ isin $parm1 |
5 | !for p in 1 |
5 | !for p in 1 |
6 | !set parm$p=!slashsubst $(parm$p) |
6 | !set parm$p=!slashsubst $(parm$p) |
7 | !next p |
7 | !next p |
8 | !endif |
8 | !endif |
Line 28... | Line 28... | ||
28 | !default prompt=$t_ |
28 | !default prompt=$t_ |
29 | !read docu/scoreprint $sh/$ex,$sev |
29 | !read docu/scoreprint $sh/$ex,$sev |
30 | !href target=wims_exo cmd=new&module=$m_&worksheet=$sh&$p_ $prompt |
30 | !href target=wims_exo cmd=new&module=$m_&worksheet=$sh&$p_ $prompt |
31 | !exit |
31 | !exit |
32 | !endif |
32 | !endif |
33 | !set add=!translate internal &+ to |
33 | !set add=!translate internal &+ to & in $add |
- | 34 | !read getparm $add wksheet |
|
34 | !set add=!translate internal & to $ $ in $add |
35 | !set add=!translate internal & to $ $ in $add |
35 | !set n=!wordcnt $add |
36 | !set n=!wordcnt $add |
36 | !reset nadd,lmod,lses,lcmd |
37 | !reset nadd,lmod,lses,lcmd |
37 | !for i=1 to $n |
38 | !for i=1 to $n |
38 | !set l=!word $i of $add |
39 | !set l=!word $i of $add |
Line 42... | Line 43... | ||
42 | !set lcmd=$l2 |
43 | !set lcmd=$l2 |
43 | !endif |
44 | !endif |
44 | !if $l1=module |
45 | !if $l1=module |
45 | !set lmod=$l2 |
46 | !set lmod=$l2 |
46 | !endif |
47 | !endif |
47 | !if $l1 notwordof module cmd session lang worksheet |
48 | !if $l1 notwordof module cmd session lang worksheet wksheet |
48 | !set nadd=$nadd $l |
49 | !set nadd=$nadd $l |
49 | !endif |
50 | !endif |
50 | !next i |
51 | !next i |
51 | !default lmod=home |
52 | !default lmod=home |
52 | !default lcmd=new |
53 | !default lcmd=new |