| … | |
… | |
| 221 | my $editURL = "$root/$courseName/instructor/pgProblemEditor/?" |
221 | my $editURL = "$root/$courseName/instructor/pgProblemEditor/?" |
| 222 | .$self->url_authen_args |
222 | .$self->url_authen_args |
| 223 | ."&file_type=course_info" |
223 | ."&file_type=course_info" |
| 224 | ; |
224 | ; |
| 225 | my $editText = "Edit message file"; |
225 | my $editText = "Edit message file"; |
| 226 | $editText = "Edit temporary message file" if $r->param("editMode") eq 'temporaryFile'; |
226 | $editText = "Edit temporary message file" if defined($r->param("editMode")) and $r->param("editMode") eq 'temporaryFile'; |
| 227 | print CGI::br(), CGI::a({-href=>$editURL}, $editText); |
227 | print CGI::br(), CGI::a({-href=>$editURL}, $editText); |
| 228 | } |
228 | } |
| 229 | |
229 | |
| 230 | } |
230 | } |
| 231 | |
231 | |