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

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

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

Revision 1004 Revision 1005
… …
22use WeBWorK::ContentGenerator::Instructor::Index; 22use WeBWorK::ContentGenerator::Instructor::Index;
23use WeBWorK::ContentGenerator::Instructor::PGProblemEditor; 23use WeBWorK::ContentGenerator::Instructor::PGProblemEditor;
24use WeBWorK::ContentGenerator::Instructor::ProblemSetEditor; 24use WeBWorK::ContentGenerator::Instructor::ProblemSetEditor;
25use WeBWorK::ContentGenerator::Instructor::ProblemSetList; 25use WeBWorK::ContentGenerator::Instructor::ProblemSetList;
26use WeBWorK::ContentGenerator::Instructor::UserList; 26use WeBWorK::ContentGenerator::Instructor::UserList;
27use WeBWorK::ContentGenerator::Instructor::ProblemList;
27use WeBWorK::ContentGenerator::Login; 28use WeBWorK::ContentGenerator::Login;
28use WeBWorK::ContentGenerator::Logout; 29use WeBWorK::ContentGenerator::Logout;
29use WeBWorK::ContentGenerator::Options; 30use WeBWorK::ContentGenerator::Options;
30use WeBWorK::ContentGenerator::Problem; 31use WeBWorK::ContentGenerator::Problem;
31use WeBWorK::ContentGenerator::ProblemSet; 32use WeBWorK::ContentGenerator::ProblemSet;
… …
119 } elsif ($instructorArgument eq "users") { 120 } elsif ($instructorArgument eq "users") {
120 return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go; 121 return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go;
121 } elsif ($instructorArgument eq "sets") { 122 } elsif ($instructorArgument eq "sets") {
122 my $setID = shift @components; 123 my $setID = shift @components;
123 if (defined $setID) { 124 if (defined $setID) {
125 my $setArg = shift @components;
126 if ($setArg eq "problems") {
127 return WeBWorK::ContentGenerator::Instructor::ProblemList->new($r, $ce, $db)->go($setID);
128 } else {
124 return WeBWorK::ContentGenerator::Instructor::ProblemSetEditor->new($r, $ce, $db)->go($setID); 129 return WeBWorK::ContentGenerator::Instructor::ProblemSetEditor->new($r, $ce, $db)->go($setID);
130 }
125 } else { 131 } else {
126 return WeBWorK::ContentGenerator::Instructor::ProblemSetList->new($r, $ce, $db)->go; 132 return WeBWorK::ContentGenerator::Instructor::ProblemSetList->new($r, $ce, $db)->go;
127 } 133 }
128 } elsif ($instructorArgument eq "pgProblemEditor") { 134 } elsif ($instructorArgument eq "pgProblemEditor") {
129 return WeBWorK::ContentGenerator::Instructor::PGProblemEditor->new($r, $ce, $db)->go(@components); 135 return WeBWorK::ContentGenerator::Instructor::PGProblemEditor->new($r, $ce, $db)->go(@components);
Legend:
Removed from v.1004  
changed lines
  Added in v.1005
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9