| … | |
… | |
| 23 | use WeBWorK::ContentGenerator::Instructor::PGProblemEditor; |
23 | use WeBWorK::ContentGenerator::Instructor::PGProblemEditor; |
| 24 | use WeBWorK::ContentGenerator::Instructor::ProblemSetEditor; |
24 | use WeBWorK::ContentGenerator::Instructor::ProblemSetEditor; |
| 25 | use WeBWorK::ContentGenerator::Instructor::ProblemSetList; |
25 | use WeBWorK::ContentGenerator::Instructor::ProblemSetList; |
| 26 | use WeBWorK::ContentGenerator::Instructor::UserList; |
26 | use WeBWorK::ContentGenerator::Instructor::UserList; |
| 27 | use WeBWorK::ContentGenerator::Instructor::ProblemList; |
27 | use WeBWorK::ContentGenerator::Instructor::ProblemList; |
|
|
28 | use WeBWorK::ContentGenerator::Instructor::UserList; |
| 28 | use WeBWorK::ContentGenerator::Login; |
29 | use WeBWorK::ContentGenerator::Login; |
| 29 | use WeBWorK::ContentGenerator::Logout; |
30 | use WeBWorK::ContentGenerator::Logout; |
| 30 | use WeBWorK::ContentGenerator::Options; |
31 | use WeBWorK::ContentGenerator::Options; |
| 31 | use WeBWorK::ContentGenerator::Problem; |
32 | use WeBWorK::ContentGenerator::Problem; |
| 32 | use WeBWorK::ContentGenerator::ProblemSet; |
33 | use WeBWorK::ContentGenerator::ProblemSet; |
| … | |
… | |
| 121 | return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go; |
122 | return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go; |
| 122 | } elsif ($instructorArgument eq "sets") { |
123 | } elsif ($instructorArgument eq "sets") { |
| 123 | my $setID = shift @components; |
124 | my $setID = shift @components; |
| 124 | if (defined $setID) { |
125 | if (defined $setID) { |
| 125 | my $setArg = shift @components; |
126 | my $setArg = shift @components; |
|
|
127 | if (!defined $setArg) { |
|
|
128 | return WeBWorK::ContentGenerator::Instructor::ProblemSetEditor->new($r, $ce, $db)->go($setID); |
| 126 | if ($setArg eq "problems") { |
129 | } elsif ($setArg eq "problems") { |
| 127 | return WeBWorK::ContentGenerator::Instructor::ProblemList->new($r, $ce, $db)->go($setID); |
130 | return WeBWorK::ContentGenerator::Instructor::ProblemList->new($r, $ce, $db)->go($setID); |
| 128 | } else { |
131 | } elsif ($setArg eq "users") { |
| 129 | return WeBWorK::ContentGenerator::Instructor::ProblemSetEditor->new($r, $ce, $db)->go($setID); |
132 | return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go($setID); |
| 130 | } |
133 | } |
| 131 | } else { |
134 | } else { |
| 132 | return WeBWorK::ContentGenerator::Instructor::ProblemSetList->new($r, $ce, $db)->go; |
135 | return WeBWorK::ContentGenerator::Instructor::ProblemSetList->new($r, $ce, $db)->go; |
| 133 | } |
136 | } |
| 134 | } elsif ($instructorArgument eq "pgProblemEditor") { |
137 | } elsif ($instructorArgument eq "pgProblemEditor") { |