| … | |
… | |
| 940 | croak "addUserProblem: requires 1 argument" |
940 | croak "addUserProblem: requires 1 argument" |
| 941 | unless @_ == 2; |
941 | unless @_ == 2; |
| 942 | croak "addUserProblem: argument 1 must be of type ", $self->{problem_user}->{record} |
942 | croak "addUserProblem: argument 1 must be of type ", $self->{problem_user}->{record} |
| 943 | unless ref $UserProblem eq $self->{problem_user}->{record}; |
943 | unless ref $UserProblem eq $self->{problem_user}->{record}; |
| 944 | croak "addUserProblem: user problem exists (perhaps you meant to use putUserProblem?)" |
944 | croak "addUserProblem: user problem exists (perhaps you meant to use putUserProblem?)" |
| 945 | if $self->{set_user}->exists($UserProblem->user_id, $UserProblem->set_id, $UserProblem->problem_id); |
945 | if $self->{problem_user}->exists($UserProblem->user_id, $UserProblem->set_id, $UserProblem->problem_id); |
| 946 | croak "addUserProblem: user set ", $UserProblem->set_id, " for user ", $UserProblem->user_id, " not found" |
946 | croak "addUserProblem: user set ", $UserProblem->set_id, " for user ", $UserProblem->user_id, " not found" |
| 947 | unless $self->{set_user}->exists($UserProblem->user_id, $UserProblem->set_id); |
947 | unless $self->{set_user}->exists($UserProblem->user_id, $UserProblem->set_id); |
| 948 | croak "addUserProblem: problem ", $UserProblem->problem_id, " in set ", $UserProblem->set_id, " not found" |
948 | croak "addUserProblem: problem ", $UserProblem->problem_id, " in set ", $UserProblem->set_id, " not found" |
| 949 | unless $self->{problem}->exists($UserProblem->set_id, $UserProblem->problem_id); |
949 | unless $self->{problem}->exists($UserProblem->set_id, $UserProblem->problem_id); |
| 950 | |
950 | |