[system] / trunk / webwork-modperl / lib / WeBWorK / DB.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/DB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 922 Revision 923
… …
295 295
296################################################################################ 296################################################################################
297# problem_user functions 297# problem_user functions
298################################################################################ 298################################################################################
299 299
300sub listProblemUsers($$$) {
301 my ($self, $setID, $problemID) = @_;
302 return map { $_->[0] } # extract user_id
303 $self->{problem_user}->list(undef, $setID, $problemID);
304}
305
300sub listUserProblems($$$) { 306sub listUserProblems($$$) {
301 my ($self, $userID, $setID) = @_; 307 my ($self, $userID, $setID) = @_;
302 return map { $_->[2] } 308 return map { $_->[2] } # extract problem_id
303 $self->{problem_user}->list($userID, $setID, undef); 309 $self->{problem_user}->list($userID, $setID, undef);
304}
305
306sub listProblemUsers($$$) {
307 my ($self, $setID, $problemID) = @_;
308 return map { $_->[2] }
309 $self->{problem_user}->list(undef, $setID, $problemID);
310} 310}
311 311
312sub addUserProblem($$) { 312sub addUserProblem($$) {
313 my ($self, $UserProblem) = @_; 313 my ($self, $UserProblem) = @_;
314 die "addUserProblem failed: user set ", $UserProblem->set_id, " does not exist.\n" 314 die "addUserProblem failed: user set ", $UserProblem->set_id, " does not exist.\n"
Legend:
Removed from v.922  
changed lines
  Added in v.923
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9