| … | |
… | |
| 29 | my $authen_args = $self->url_authen_args(); |
29 | my $authen_args = $self->url_authen_args(); |
| 30 | |
30 | |
| 31 | my $prof_url = $ce->{webworkURLs}->{oldProf}; |
31 | my $prof_url = $ce->{webworkURLs}->{oldProf}; |
| 32 | my $full_url = "$prof_url?course=$courseName&$authen_args"; |
32 | my $full_url = "$prof_url?course=$courseName&$authen_args"; |
| 33 | my $userEditorURL = "users/?" . $self->url_args; |
33 | my $userEditorURL = "users/?" . $self->url_args; |
| 34 | my $problemSetEditorURL = "set/?" . $self->url_args; |
34 | my $problemSetEditorURL = "sets/?" . $self->url_args; |
| 35 | |
35 | |
| 36 | return |
36 | return |
| 37 | CGI::p("\n". |
37 | CGI::p("\n". |
| 38 | CGI::a({href=>$userEditorURL}, "Users"). " - View and edit data and settings for users of $courseName" . CGI::br(). "\n". |
38 | CGI::a({href=>$userEditorURL}, "Users"). " - View and edit data and settings for users of $courseName" . CGI::br(). "\n". |
| 39 | CGI::a({href=>$problemSetEditorURL}, "Problem Sets"). " - View and edit settings for problem sets in $courseName".CGI::br()."\n" |
39 | CGI::a({href=>$problemSetEditorURL}, "Problem Sets"). " - View and edit settings for problem sets in $courseName".CGI::br()."\n" |