Subversion Repositories wimsdev

Rev

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 $ $ in $add
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