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!= |
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 |