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