| … | |
… | |
| 51 | # display options (if from Problem) |
51 | # display options (if from Problem) |
| 52 | |
52 | |
| 53 | sub path { |
53 | sub path { |
| 54 | my ($self, $args) = @_; |
54 | my ($self, $args) = @_; |
| 55 | |
55 | |
| 56 | my $ce = $self->{courseEnvironment}; |
56 | my $ce = $self->{ce}; |
| 57 | my $root = $ce->{webworkURLs}->{root}; |
57 | my $root = $ce->{webworkURLs}->{root}; |
| 58 | my $courseName = $ce->{courseName}; |
58 | my $courseName = $ce->{courseName}; |
| 59 | return $self->pathMacro($args, |
59 | return $self->pathMacro($args, |
| 60 | "Home" => "$root", |
60 | "Home" => "$root", |
| 61 | $courseName => "$root/$courseName", |
61 | $courseName => "$root/$courseName", |
| … | |
… | |
| 68 | } |
68 | } |
| 69 | |
69 | |
| 70 | sub body { |
70 | sub body { |
| 71 | my $self = shift; |
71 | my $self = shift; |
| 72 | my $r = $self->{r}; |
72 | my $r = $self->{r}; |
| 73 | my $ce = $self->{courseEnvironment}; |
73 | my $ce = $self->{ce}; |
| 74 | |
74 | |
| 75 | # get form fields |
75 | # get form fields |
| 76 | my $key = $r->param("key"); |
76 | my $key = $r->param("key"); |
| 77 | my $userName = $r->param("user"); |
77 | my $userName = $r->param("user"); |
| 78 | my $module = $r->param("module"); |
78 | my $module = $r->param("module"); |
Parent Directory
| 
Revision Log
| 
Patch