| … | |
… | |
| 21 | return "Instructor tools for ".$self->{ce}->{courseName}; |
21 | return "Instructor tools for ".$self->{ce}->{courseName}; |
| 22 | } |
22 | } |
| 23 | |
23 | |
| 24 | sub body { |
24 | sub body { |
| 25 | my $self = shift; |
25 | my $self = shift; |
|
|
26 | my $r = $self->{r}; |
|
|
27 | my $ce = $self->{ce}; |
|
|
28 | my $courseName = $ce->{courseName}; |
|
|
29 | my $authen_args = $self->url_authen_args(); |
|
|
30 | |
|
|
31 | my $prof_url = $ce->{webworkURLs}->{oldProf}; |
|
|
32 | my $full_url = "$prof_url?course=$courseName&$authen_args"; |
| 26 | my $userEditorURL = "userList/?" . $self->url_args; |
33 | my $userEditorURL = "userList/?" . $self->url_args; |
| 27 | my $problemSetEditorURL = "problemSetList/?" . $self->url_args; |
34 | my $problemSetEditorURL = "problemSetList/?" . $self->url_args; |
| 28 | my $courseName = $self->{ce}->{courseName}; |
|
|
| 29 | |
35 | |
|
|
36 | return |
| 30 | return CGI::p("\n". |
37 | CGI::p("\n". |
| 31 | 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". |
| 32 | 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" |
| 33 | ) |
40 | )."\n".CGI::hr()."\n". |
|
|
41 | CGI::p( |
|
|
42 | CGI::b("NOTE: ") . |
|
|
43 | "The Instructor Tools in this preview release of WeBWorK |
|
|
44 | 2.0 are not stable or complete. If you reliable and |
|
|
45 | stable course editing features, than at this time you |
|
|
46 | will need to use the Professor tools from WeBWorK 1.8 |
|
|
47 | or earlier. Use the links below to go to the Professor |
|
|
48 | pages of your system's WeBWorK 1.x installation." |
|
|
49 | )."\n". |
|
|
50 | CGI::ul( |
|
|
51 | CGI::li( |
|
|
52 | CGI::a({-href=>$full_url}, "Go to Professor pages") |
|
|
53 | ). |
|
|
54 | CGI::li( |
|
|
55 | CGI::a({-href=>$full_url, -target=>"_new"}, "Open Professor pages in new window") |
|
|
56 | ) |
|
|
57 | ); |
| 34 | } |
58 | } |
| 35 | |
59 | |
| 36 | 1; |
60 | 1; |
| 37 | |
61 | |
| 38 | __END__ |
62 | __END__ |
Parent Directory
| 
Revision Log
| 
Patch