| … | |
… | |
| 13 | =cut |
13 | =cut |
| 14 | |
14 | |
| 15 | use strict; |
15 | use strict; |
| 16 | use warnings; |
16 | use warnings; |
| 17 | use CGI qw(); |
17 | use CGI qw(); |
|
|
18 | |
|
|
19 | sub path { |
|
|
20 | my $self = shift; |
|
|
21 | my $args = $_[-1]; |
|
|
22 | |
|
|
23 | my $ce = $self->{ce}; |
|
|
24 | my $root = $ce->{webworkURLs}->{root}; |
|
|
25 | my $courseName = $ce->{courseName}; |
|
|
26 | return $self->pathMacro($args, |
|
|
27 | "Home" => "$root", |
|
|
28 | $courseName => "$root/$courseName", |
|
|
29 | 'instructor' => '', |
|
|
30 | ); |
|
|
31 | } |
| 18 | |
32 | |
| 19 | sub title { |
33 | sub title { |
| 20 | my $self = shift; |
34 | my $self = shift; |
| 21 | return "Instructor tools for ".$self->{ce}->{courseName}; |
35 | return "Instructor tools for ".$self->{ce}->{courseName}; |
| 22 | } |
36 | } |
Parent Directory
| 
Revision Log
| 
Patch