Subversion Repositories wimsdev

Rev

Rev 18217 | Rev 18345 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18217 Rev 18343
Line 34... Line 34...
34 
!set add=!replace internal &+ by & in $add
 34 
!set add=!replace internal &+ by & in $add
35 
!set add=!replace internal %2F by / in $add
 35 
!set add=!replace internal %2F by / in $add
36 
!read getparm $add wksheet
 36 
!read getparm $add wksheet
37 
!set add=!translate internal & to $ $ in $add
 37 
!set add=!translate internal & to $ $ in $add
38 
!set n=!wordcnt $add
 38 
!set n=!wordcnt $add
39 
!reset nadd,lmod,lses,lcmd
 39 
!reset nadd,lmod,lses,lcmd naddw nadd1
40 
!for i=1 to $n
 40 
!for i=1 to $n
41 
  !set l=!word $i of $add
 41 
  !set l=!word $i of $add
42 
  !set ll=!translate = to , in $l
 42 
  !set ll=!translate = to , in $l
43 
  !distribute items $ll into l1,l2
 43 
  !distribute items $ll into l1,l2
44 
  !if $l1=cmd and $l2 iswordof intro help close
 44 
  !if $l1=cmd and $l2 iswordof intro help close
45 
    !set lcmd=$l2
 45 
    !set lcmd=$l2
46 
  !endif
 46 
  !endif
47 
  !if $l1=module
 47 
  !if $l1=module
48 
    !set lmod=$l2
 48 
    !set lmod=$l2
49 
  !endif
 49 
  !endif
50 
  !if $l1 notwordof module cmd session worksheet wksheet
 50 
  !if $l1 notwordof module cmd session wksheet worksheet
51 
    !set nadd=$nadd $l
 51 
    !set nadd=$nadd $l
- 
 
 52 
  !endif
- 
 
 53 
  !if $l1 iswordof worksheet
- 
 
 54 
    !set naddw=$l
52 
  !endif
 55 
  !endif
53 
!next i
 56 
!next i
54 
!default lmod=home
 57 
!default lmod=home
55 
!default lcmd=new
 58 
!default lcmd=new
56 
!set nadd=!trim $nadd
 59 
!set nadd=!trim $nadd
57 
!set nadd=!translate internal $ $ to & in $nadd
 60 
!set nadd=!translate internal $ $ to & in $nadd
- 
 
 61 
!set nadd1=$nadd
- 
 
 62 
!if $naddw!=
- 
 
 63 
  !set nadd1=$nadd&$naddw
- 
 
 64 
!endif
58 
!set prompt=!item 2 to -1 of $parms
 65 
!set prompt=!item 2 to -1 of $parms
59 
!default prompt=!module title_$lang $lmod
 66 
!default prompt=!module title_$lang $lmod
60 
!default prompt=!module title $lmod
 67 
!default prompt=!module title $lmod
61 
 
 68 
 
62 
!default prompt=$n_unknown
 69 
!default prompt=$n_unknown
Line 68... Line 75...
68 
    !set work=!getexoindex module=$lmod param=$nadd sheet=$get_wksheet
 75 
    !set work=!getexoindex module=$lmod param=$nadd sheet=$get_wksheet
69 
    !if $work!=$empty
 76 
    !if $work!=$empty
70 
      !read docu/scoreprint $work
 77 
      !read docu/scoreprint $work
71 
    !endif
 78 
    !endif
72 
  !endif
 79 
  !endif
73 
  !href target=wims_exo module=$lmod&cmd=$lcmd&$nadd$ww_ $prompt
 80 
  !href target=wims_exo module=$lmod&cmd=$lcmd&$nadd1$ww_ $prompt
74 
  !if $lcmd=new
 81 
  !if $lcmd=new
75 
    !set nadd=!replace internal &+ by & in $nadd
 82 
    !set nadd=!replace internal &+ by & in $nadd
76 
    !set nadd=!char 2 to -1 of $nadd
 83 
    !set nadd=!char 2 to -1 of $nadd
77 
    !set sheetdata=$sheetdata\
 84 
    !set sheetdata=$sheetdata\
78 
:$lmod\
 85 
:$lmod\