| … | |
… | |
| 34 | |
34 | |
| 35 | if ($permLevel > 0 ) { |
35 | if ($permLevel > 0 ) { |
| 36 | $pathString .="<hr>"; |
36 | $pathString .="<hr>"; |
| 37 | $pathString .= CGI::a({-href=>$classList}, "Class editor") . CGI::br(); |
37 | $pathString .= CGI::a({-href=>$classList}, "Class editor") . CGI::br(); |
| 38 | $pathString .= ' '.CGI::a({-href=>$addStudent}, "Add Student") . CGI::br(); |
38 | $pathString .= ' '.CGI::a({-href=>$addStudent}, "Add Student") . CGI::br(); |
| 39 | $pathString .= CGI::a({-href=>$problemSetList}, "ProbSet editor") . CGI::br(); |
39 | $pathString .= CGI::a({-href=>$problemSetList}, "ProbSet list") . CGI::br(); |
| 40 | } |
40 | } |
| 41 | return $self->SUPER::links() . $pathString; |
41 | return $self->SUPER::links() . $pathString; |
| 42 | } |
42 | } |
| 43 | |
43 | |
| 44 | 1; |
44 | 1; |