| … | |
… | |
| 503 | my $self = shift; |
503 | my $self = shift; |
| 504 | my @components = @_; |
504 | my @components = @_; |
| 505 | my $args = pop(@components); # get hash of option arguments |
505 | my $args = pop(@components); # get hash of option arguments |
| 506 | my $courseName = $self->{ce}->{courseName}; |
506 | my $courseName = $self->{ce}->{courseName}; |
| 507 | my $root = $self->{ce}->{webworkURLs}->{root}; |
507 | my $root = $self->{ce}->{webworkURLs}->{root}; |
| 508 | my $userName = $self->{r}->param("user"); |
508 | my $userName = $self->{r}->param("effectiveUser"); |
|
|
509 | $userName = $self->{r}->param("user") unless defined $userName; |
| 509 | my ($set, $prob) = @components; |
510 | my ($set, $prob) = @components; |
| 510 | my $instructor = "$root/$courseName/instructor/?" . $self->url_authen_args(); |
511 | my $instructor = "$root/$courseName/instructor/?" . $self->url_authen_args(); |
| 511 | my $sets = "$root/$courseName/instructor/sets/?" . $self->url_authen_args(); |
512 | my $sets = "$root/$courseName/instructor/sets/?" . $self->url_authen_args(); |
| 512 | my $users = "$root/$courseName/instructor/users/?" . $self->url_authen_args(); |
513 | my $users = "$root/$courseName/instructor/users/?" . $self->url_authen_args(); |
| 513 | my $email = "$root/$courseName/instructor/send_mail/?" . $self->url_authen_args(); |
514 | my $email = "$root/$courseName/instructor/send_mail/?" . $self->url_authen_args(); |