| … | |
… | |
| 53 | sub body { |
53 | sub body { |
| 54 | my $self = shift; |
54 | my $self = shift; |
| 55 | my $r = $self->{r}; |
55 | my $r = $self->{r}; |
| 56 | my $courseEnvironment = $self->{courseEnvironment}; |
56 | my $courseEnvironment = $self->{courseEnvironment}; |
| 57 | my $user = $r->param("user"); |
57 | my $user = $r->param("user"); |
| 58 | my $sort = $r->param("sort"); |
58 | my $sort = $r->param("sort") || "status"; |
| 59 | my $wwdb = $self->{wwdb}; |
59 | my $wwdb = $self->{wwdb}; |
| 60 | |
60 | |
| 61 | $sort = "status" unless $sort eq "status" or $sort eq "name"; |
61 | $sort = "status" unless $sort eq "status" or $sort eq "name"; |
| 62 | my $baseURL = $r->uri . "?" . $self->url_authen_args(); |
62 | my $baseURL = $r->uri . "?" . $self->url_authen_args(); |
| 63 | my $nameHeader = ($sort eq "name") ? "Name" : CGI::a({-href=>"$baseURL&sort=name"}, "Name"); |
63 | my $nameHeader = ($sort eq "name") ? "Name" : CGI::a({-href=>"$baseURL&sort=name"}, "Name"); |