--- trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor.pm	2003/05/14 18:05:13	828
+++ trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor.pm	2003/05/14 18:11:45	829
@@ -16,3 +16,28 @@
 use warnings;
 use CGI qw();
 
+sub title {
+	my $self = shift;
+	return "Instructor tools for ".$self->{ce}->{courseName};
+}
+
+sub body {
+	my $self = shift;
+	my $userEditorURL = "userEditor/?" . $self->url_args;
+	my $problemSetEditorURL = "problemSetEditor/?" . $self->url_args;
+
+	return CGI::p("\n".
+		CGI::a({href=>$userEditorURL}, "User Editor"). CGI::br(). "\n".
+		CGI::a({href=>$problemSetEditorURL}, "Problem Set Editor").CGI::br()."\n"
+	)
+}
+
+1;
+
+__END__
+
+=head1 AUTHOR
+
+Written by Dennis Lambe Jr., malsyned (at) math.rochester.edu
+
+=cut