| … | |
… | |
| 269 | } |
269 | } |
| 270 | |
270 | |
| 271 | sub body { |
271 | sub body { |
| 272 | my $self = shift; |
272 | my $self = shift; |
| 273 | |
273 | |
| 274 | unless ($self->{isOpen}) { |
|
|
| 275 | return CGI::p(CGI::font({-color=>"red"}, "This problem is not available because the problem set that contains it is not yet open.")); |
274 | return CGI::p(CGI::font({-color=>"red"}, "This problem is not available because the problem set that contains it is not yet open.")) |
| 276 | } |
275 | unless $self->{isOpen}; |
| 277 | |
276 | |
| 278 | # unpack some useful variables |
277 | # unpack some useful variables |
| 279 | my $r = $self->{r}; |
278 | my $r = $self->{r}; |
| 280 | my $wwdb = $self->{wwdb}; |
279 | my $wwdb = $self->{wwdb}; |
| 281 | my $set = $self->{set}; |
280 | my $set = $self->{set}; |
Parent Directory
| 
Revision Log
| 
Patch