| … | |
… | |
| 14 | |
14 | |
| 15 | use strict; |
15 | use strict; |
| 16 | use warnings; |
16 | use warnings; |
| 17 | use CGI qw(); |
17 | use CGI qw(); |
| 18 | |
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 $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 | |
|
|
35 | 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