[system] / branches / rel-2-1-a1 / webwork-modperl / lib / WeBWorK.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-1-a1/webwork-modperl/lib/WeBWorK.pm

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

Revision 1410 Revision 1411
… …
27use WeBWorK::ContentGenerator::Instructor::ProblemSetEditor; 27use WeBWorK::ContentGenerator::Instructor::ProblemSetEditor;
28use WeBWorK::ContentGenerator::Instructor::ProblemSetList; 28use WeBWorK::ContentGenerator::Instructor::ProblemSetList;
29use WeBWorK::ContentGenerator::Instructor::UserList; 29use WeBWorK::ContentGenerator::Instructor::UserList;
30use WeBWorK::ContentGenerator::Instructor::SendMail; 30use WeBWorK::ContentGenerator::Instructor::SendMail;
31use WeBWorK::ContentGenerator::Instructor::ShowAnswers; 31use WeBWorK::ContentGenerator::Instructor::ShowAnswers;
32use WeBWorK::ContentGenerator::Instructor::Scoring;
32use WeBWorK::ContentGenerator::Login; 33use WeBWorK::ContentGenerator::Login;
33use WeBWorK::ContentGenerator::Logout; 34use WeBWorK::ContentGenerator::Logout;
34use WeBWorK::ContentGenerator::Options; 35use WeBWorK::ContentGenerator::Options;
35use WeBWorK::ContentGenerator::Problem; 36use WeBWorK::ContentGenerator::Problem;
36use WeBWorK::ContentGenerator::ProblemSet; 37use WeBWorK::ContentGenerator::ProblemSet;
… …
139 return $result; 140 return $result;
140 } elsif ($arg eq "instructor") { 141 } elsif ($arg eq "instructor") {
141 my $instructorArgument = shift @components; 142 my $instructorArgument = shift @components;
142 if (!defined $instructorArgument) { 143 if (!defined $instructorArgument) {
143 $result = WeBWorK::ContentGenerator::Instructor::Index->new($r, $ce, $db)->go; 144 $result = WeBWorK::ContentGenerator::Instructor::Index->new($r, $ce, $db)->go;
145 } elsif ($instructorArgument eq "scoring") {
146 $result = WeBWorK::ContentGenerator::Instructor::Scoring->new($r, $ce, $db)->go;
144 } elsif ($instructorArgument eq "users") { 147 } elsif ($instructorArgument eq "users") {
145 $result = WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go; 148 $result = WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go;
146 } elsif ($instructorArgument eq "sets") { 149 } elsif ($instructorArgument eq "sets") {
147 my $setID = shift @components; 150 my $setID = shift @components;
148 if (defined $setID) { 151 if (defined $setID) {
Legend:
Removed from v.1410  
changed lines
  Added in v.1411
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9