| … | |
… | |
| 439 | my $permLevel = $db->getPermissionLevel($userName)->permission(); |
439 | my $permLevel = $db->getPermissionLevel($userName)->permission(); |
| 440 | my $key = $db->getKey($userName)->key(); |
440 | my $key = $db->getKey($userName)->key(); |
| 441 | return "" unless defined $key; |
441 | return "" unless defined $key; |
| 442 | |
442 | |
| 443 | # URLs to parts of the system |
443 | # URLs to parts of the system |
| 444 | my $probSets = "$root/$courseName/?" . $self->url_authen_args(); |
444 | my $probSets = "$root/$courseName/?" . $self->url_authen_args(); |
| 445 | my $prefs = "$root/$courseName/options/?" . $self->url_authen_args(); |
445 | my $prefs = "$root/$courseName/options/?" . $self->url_authen_args(); |
| 446 | my $prof = "$root/$courseName/prof/?" . $self->url_authen_args(); |
446 | my $instructor = "$root/$courseName/instructor/?" . $self->url_authen_args(); |
| 447 | my $help = "$ce->{webworkURLs}->{docs}?" . $self->url_authen_args(); |
447 | my $help = "$ce->{webworkURLs}->{docs}?" . $self->url_authen_args(); |
| 448 | my $logout = "$root/$courseName/logout/?" . $self->url_authen_args(); |
448 | my $logout = "$root/$courseName/logout/?" . $self->url_authen_args(); |
| 449 | |
449 | |
| 450 | return |
450 | return |
| 451 | CGI::a({-href=>$probSets}, "Problem Sets"). CGI::br(). |
451 | CGI::a({-href=>$probSets}, "Problem Sets"). CGI::br(). |
| 452 | CGI::a({-href=>$prefs}, "User Options"). CGI::br(). |
452 | CGI::a({-href=>$prefs}, "User Options"). CGI::br(). |
| 453 | ($permLevel > 0 |
453 | ($permLevel > 0 |
| 454 | ? CGI::a({-href=>$prof}, "Professor") . CGI::br() |
454 | ? CGI::a({-href=>$instructor}, "Instructor") . CGI::br() |
| 455 | : ""). |
455 | : ""). |
| 456 | CGI::a({-href=>$help}, "Help"). CGI::br(). |
456 | CGI::a({-href=>$help}, "Help"). CGI::br(). |
| 457 | CGI::a({-href=>$logout}, "Log Out"). CGI::br() |
457 | CGI::a({-href=>$logout}, "Log Out"). CGI::br() |
| 458 | ; |
458 | ; |
| 459 | } |
459 | } |