| … | |
… | |
| 269 | ################################################################################ |
269 | ################################################################################ |
| 270 | |
270 | |
| 271 | sub listGlobalProblems($$) { |
271 | sub listGlobalProblems($$) { |
| 272 | my ($self, $setID) = @_; |
272 | my ($self, $setID) = @_; |
| 273 | return map { $_->[1] } |
273 | return map { $_->[1] } |
| 274 | grep { $_->[0] eq $setID } |
274 | #grep { $_->[0] eq $setID } |
| 275 | $self->{problem}->list(undef, undef); |
275 | $self->{problem}->list($setID, undef); |
| 276 | } |
276 | } |
| 277 | |
277 | |
| 278 | sub addGlobalProblem($$) { |
278 | sub addGlobalProblem($$) { |
| 279 | my ($self, $GlobalProblem) = @_; |
279 | my ($self, $GlobalProblem) = @_; |
| 280 | die "addGlobalProblem failed: set ", $GlobalProblem->set_id, " does not exist.\n" |
280 | die "addGlobalProblem failed: set ", $GlobalProblem->set_id, " does not exist.\n" |