Subversion Repositories wimsdev

Rev

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

Rev 18344 Rev 18348
Line 61... Line 61...
61 
!if $prim=exercise
 61 
!if $prim=exercise
62 
  !!use also docsh in adm/class/adddoc/adddocsh.proc
 62 
  !!use also docsh in adm/class/adddoc/adddocsh.proc
63 
  !read docu/docsh $nadd
 63 
  !read docu/docsh $nadd
64 
  !set nadd=$docsh_out
 64 
  !set nadd=$docsh_out
65 
  !reset ww_
 65 
  !reset ww_
66 
  !if $get_wksheet!=$empty and $get_wksheet!=0
 66 
  !if $get_wksheet!=0 and $get_wksheet!=$empty
- 
 
 67 
    !if $get_wksheet>0
67 
    !set ww_=&worksheet=$get_wksheet
 68 
      !set ww_=&worksheet=$get_wksheet
68 
  !endif
 69 
    !endif
69 
  !read getparm $nadd$ww_ worksheet cmd
 70 
    !read getparm $nadd$ww_ worksheet cmd
70 
  !if $get_worksheet!=$empty
 71 
    !if $get_worksheet!=$empty
71 
    !set work=!getexoindex module=$lmod param=$nadd sheet=$get_worksheet
 72 
      !set work=!getexoindex module=$lmod param=$nadd sheet=$get_worksheet
72 
  !else
 73 
    !else
73 
    !set work=!getexoindex module=$lmod param=$nadd
 74 
      !set work=!getexoindex module=$lmod param=$nadd
74 
  !endif
 75 
    !endif
75 
  !if $work!=$empty
 76 
    !if $work!=$empty
76 
    !read docu/scoreprint $work
 77 
      !read docu/scoreprint $work
77 
    !default ww_=&worksheet=$tmp_sheet
 78 
      !default ww_=&worksheet=$tmp_sheet
- 
 
 79 
    !endif
78 
  !endif
 80 
  !endif
79 
  !href target=wims_exo module=$lmod&cmd=$lcmd&$nadd$ww_ $prompt
 81 
  !href target=wims_exo module=$lmod&cmd=$lcmd&$nadd$ww_ $prompt
80 
  !if $lcmd=new
 82 
  !if $lcmd=new
81 
    !set nadd=!replace internal &+ by & in $nadd
 83 
    !set nadd=!replace internal &+ by & in $nadd
82 
    !set nadd=!char 2 to -1 of $nadd
 84 
    !set nadd=!char 2 to -1 of $nadd