Parent Directory
| 
Revision Log
Revision 834 - (view) (download) (as text)
| 1 : | malsyned | 831 | ################################################################################ |
| 2 : | # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project | ||
| 3 : | # $Id$ | ||
| 4 : | ################################################################################ | ||
| 5 : | |||
| 6 : | package WeBWorK::ContentGenerator::Instructor::Index; | ||
| 7 : | use base qw(WeBWorK::ContentGenerator::Instructor); | ||
| 8 : | |||
| 9 : | =head1 NAME | ||
| 10 : | |||
| 11 : | WeBWorK::ContentGenerator::Instructor::Index - Menu interface to the Instructor pages | ||
| 12 : | |||
| 13 : | =cut | ||
| 14 : | |||
| 15 : | use strict; | ||
| 16 : | use warnings; | ||
| 17 : | use CGI qw(); | ||
| 18 : | |||
| 19 : | sub title { | ||
| 20 : | my $self = shift; | ||
| 21 : | return "Instructor tools for ".$self->{ce}->{courseName}; | ||
| 22 : | } | ||
| 23 : | |||
| 24 : | sub body { | ||
| 25 : | my $self = shift; | ||
| 26 : | malsyned | 834 | 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"; | ||
| 33 : | malsyned | 832 | my $userEditorURL = "userList/?" . $self->url_args; |
| 34 : | my $problemSetEditorURL = "problemSetList/?" . $self->url_args; | ||
| 35 : | malsyned | 831 | |
| 36 : | malsyned | 834 | return |
| 37 : | CGI::p("\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" | ||
| 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 : | ); | ||
| 58 : | malsyned | 831 | } |
| 59 : | |||
| 60 : | 1; | ||
| 61 : | |||
| 62 : | __END__ | ||
| 63 : | |||
| 64 : | =head1 AUTHOR | ||
| 65 : | |||
| 66 : | Written by Dennis Lambe Jr., malsyned (at) math.rochester.edu | ||
| 67 : | |||
| 68 : | =cut |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |