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

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor.pm

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

Revision 1013 Revision 1014
… …
41} 41}
42 42
43sub assignProblemToUser { 43sub assignProblemToUser {
44 my ($self, $user, $globalProblem) = @_; 44 my ($self, $user, $globalProblem) = @_;
45 my $db = $self->{db}; 45 my $db = $self->{db};
46 my $userProblem = db->{problem_user}->{record}->new; 46 my $userProblem = $db->{problem_user}->{record}->new;
47 # Set up the key 47 # Set up the key
48 $userProblem->user_id($user); 48 $userProblem->user_id($user);
49 $userProblem->set_id($globalProblem->set_id); 49 $userProblem->set_id($globalProblem->set_id);
50 $userProblem->problem_id($globalProblem->problem_id); 50 $userProblem->problem_id($globalProblem->problem_id);
51 51
… …
61} 61}
62 62
63sub assignSetToUser { 63sub assignSetToUser {
64 my ($self, $user, $globalSet) = @_; 64 my ($self, $user, $globalSet) = @_;
65 my $db = $self->{db}; 65 my $db = $self->{db};
66 my $userSet = db->{set_user}->{record}->new; 66 my $userSet = $db->{set_user}->{record}->new;
67 my $setID = $globalSet->set_id; 67 my $setID = $globalSet->set_id;
68 68
69 $userSet->user_id($user); 69 $userSet->user_id($user);
70 $userSet->set_id($setId); 70 $userSet->set_id($setID);
71 $db->addUserSet($userSet); 71 $db->addUserSet($userSet);
72 72
73 foreach my $problemID ($db->listGlobalProblems) { 73 foreach my $problemID ($db->listGlobalProblems) {
74 my $problemRecord = $db->getGlobalProblem($setID, $problemID); 74 my $problemRecord = $db->getGlobalProblem($setID, $problemID);
75 $self->assignProblemToUser($user, $problemRecord); 75 $self->assignProblemToUser($user, $problemRecord);
Legend:
Removed from v.1013  
changed lines
  Added in v.1014
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9