View of /trunk/webwork2/lib/WeBWorK/ContentGenerator/Instructor/Index.pm

    1 ################################################################################
    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   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   my $userEditorURL = "userList/?" . $self->url_args;
   34   my $problemSetEditorURL = "problemSetList/?" . $self->url_args;
   35 
   36   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 need 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 }
   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