| 1 | ################################################################################ |
|
|
| 2 | # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project |
|
|
| 3 | # $Id$ |
|
|
| 4 | ################################################################################ |
|
|
| 5 | |
|
|
| 6 | package WeBWorK::ContentGenerator::Instructor; |
1 | package WeBWorK::ContentGenerator::Instructor; |
| 7 | use base qw(WeBWorK::ContentGenerator); |
2 | use base qw(WeBWorK::ContentGenerator); |
| 8 | |
3 | |
| 9 | =head1 NAME |
4 | =head1 NAME |
| 10 | |
5 | |
| 11 | WeBWorK::ContentGenerator::Instructor - Menu interface to the Instructor pages |
6 | WeBWorK::ContentGenerator::Instructor - Abstract superclass for the Instructor pages |
| 12 | |
7 | |
| 13 | =cut |
8 | =cut |
| 14 | |
9 | |
| 15 | use strict; |
10 | use strict; |
| 16 | use warnings; |
11 | use warnings; |
| 17 | use CGI qw(); |
12 | use CGI qw(); |
| 18 | |
13 | |
| 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 $userEditorURL = "userEditor/?" . $self->url_args; |
|
|
| 27 | my $problemSetEditorURL = "problemSetEditor/?" . $self->url_args; |
|
|
| 28 | |
|
|
| 29 | return CGI::p("\n". |
|
|
| 30 | CGI::a({href=>$userEditorURL}, "User Editor"). CGI::br(). "\n". |
|
|
| 31 | CGI::a({href=>$problemSetEditorURL}, "Problem Set Editor").CGI::br()."\n" |
|
|
| 32 | ) |
|
|
| 33 | } |
|
|
| 34 | |
14 | |
| 35 | 1; |
15 | 1; |
| 36 | |
|
|
| 37 | __END__ |
|
|
| 38 | |
|
|
| 39 | =head1 AUTHOR |
|
|
| 40 | |
|
|
| 41 | Written by Dennis Lambe Jr., malsyned (at) math.rochester.edu |
|
|
| 42 | |
|
|
| 43 | =cut |
|
|
Parent Directory
| 
Revision Log
| 
Patch