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