| … | |
… | |
| 369 | my $root = $ce->{webworkURLs}->{root}; |
369 | my $root = $ce->{webworkURLs}->{root}; |
| 370 | my $permLevel = WeBWorK::DB::Auth->new($ce)->getPermissions($userName); |
370 | my $permLevel = WeBWorK::DB::Auth->new($ce)->getPermissions($userName); |
| 371 | return "" unless defined $permLevel; |
371 | return "" unless defined $permLevel; |
| 372 | |
372 | |
| 373 | my $probSets = "$root/$courseName/?" . $self->url_authen_args(); |
373 | my $probSets = "$root/$courseName/?" . $self->url_authen_args(); |
| 374 | my $prefs = "$root/$courseName/prefs/?" . $self->url_authen_args(); |
374 | my $prefs = "$root/$courseName/options/?" . $self->url_authen_args(); |
| 375 | my $prof = "$root/$courseName/prof/?" . $self->url_authen_args(); |
375 | my $prof = "$root/$courseName/prof/?" . $self->url_authen_args(); |
| 376 | my $profLine; |
376 | my $profLine; |
| 377 | if ($permLevel > 0) { |
377 | if ($permLevel > 0) { |
| 378 | $profLine = CGI::a({-href=>$prof}, "Professor") . CGI::br(), |
378 | $profLine = CGI::a({-href=>$prof}, "Professor") . CGI::br(), |
| 379 | } |
379 | } |