Subversion Repositories wimsdev

Rev

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

Rev 18343 Rev 18345
Line 56... Line 56...
56 
!next i
 56 
!next i
57 
!default lmod=home
 57 
!default lmod=home
58 
!default lcmd=new
 58 
!default lcmd=new
59 
!set nadd=!trim $nadd
 59 
!set nadd=!trim $nadd
60 
!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
 - 
 
65 
!set prompt=!item 2 to -1 of $parms
 61 
!set prompt=!item 2 to -1 of $parms
66 
!default prompt=!module title_$lang $lmod
 62 
!default prompt=!module title_$lang $lmod
67 
!default prompt=!module title $lmod
 63 
!default prompt=!module title $lmod
68 
 
 64 
 
69 
!default prompt=$n_unknown
 65 
!default prompt=$n_unknown
70 
 
 66 
 
71 
!if $prim=exercise
 67 
!if $prim=exercise
72 
  !reset ww_
 68 
  !reset ww_ naddw work
- 
 
 69 
  !if $naddw!=
73 
  !if $get_wksheet!=$empty and $get_wksheet!=0
 70 
    !set ww_=$naddw
- 
 
 71 
  !else
74 
    !set ww_=&worksheet=$get_wksheet
 72 
    !set ww_=&worksheet=$get_wksheet
- 
 
 73 
    !if $get_wksheet!=$empty and $get_wksheet!=0
75 
    !set work=!getexoindex module=$lmod param=$nadd sheet=$get_wksheet
 74 
      !set work=!getexoindex module=$lmod param=$nadd sheet=$get_wksheet
- 
 
 75 
    !endif
- 
 
 76 
    !if $work=$empty
- 
 
 77 
      !set work=!getexoindex module=$lmod param=$nadd
- 
 
 78 
    !endif
76 
    !if $work!=$empty
 79 
    !if $work!=$empty
77 
      !read docu/scoreprint $work
 80 
      !read docu/scoreprint $work
- 
 
 81 
      !set ww_=&worksheet=$tmp_sheet
78 
    !endif
 82 
    !endif
79 
  !endif
 83 
  !endif
80 
  !href target=wims_exo module=$lmod&cmd=$lcmd&$nadd1$ww_ $prompt
 84 
  !href target=wims_exo module=$lmod&cmd=$lcmd&$nadd$ww_ $prompt
81 
  !if $lcmd=new
 85 
  !if $lcmd=new
82 
    !set nadd=!replace internal &+ by & in $nadd
 86 
    !set nadd=!replace internal &+ by & in $nadd
83 
    !set nadd=!char 2 to -1 of $nadd
 87 
    !set nadd=!char 2 to -1 of $nadd
84 
    !set sheetdata=$sheetdata\
 88 
    !set sheetdata=$sheetdata\
85 
:$lmod\
 89 
:$lmod\