| … | |
… | |
| 318 | print CGI::strong("Problems"), CGI::br(); |
318 | print CGI::strong("Problems"), CGI::br(); |
| 319 | |
319 | |
| 320 | my $effectiveUser = $self->{r}->param("effectiveUser"); |
320 | my $effectiveUser = $self->{r}->param("effectiveUser"); |
| 321 | my @problemIDs = $db->listUserProblems($effectiveUser, $setName); |
321 | my @problemIDs = $db->listUserProblems($effectiveUser, $setName); |
| 322 | foreach my $problem (sort { $a <=> $b } @problemIDs) { |
322 | foreach my $problem (sort { $a <=> $b } @problemIDs) { |
| 323 | print CGI::a({-href=>"$root/$courseName/$setName/".$problem."/?" |
323 | print ' '.CGI::a({-href=>"$root/$courseName/$setName/".$problem."/?" |
| 324 | . $self->url_authen_args . "&displayMode=" . $self->{displayMode}}, |
324 | . $self->url_authen_args . "&displayMode=" . $self->{displayMode}}, |
| 325 | "Problem ".$problem), CGI::br(); |
325 | "Problem ".$problem), CGI::br(); |
| 326 | } |
326 | } |
| 327 | |
327 | |
| 328 | return ""; |
328 | return ""; |