[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 986 Revision 995
… …
114 return WeBWorK::ContentGenerator::Hardcopy->new($r, $ce, $db)->go($hardcopyArgument); 114 return WeBWorK::ContentGenerator::Hardcopy->new($r, $ce, $db)->go($hardcopyArgument);
115 } elsif ($arg eq "instructor") { 115 } elsif ($arg eq "instructor") {
116 my $instructorArgument = shift @components; 116 my $instructorArgument = shift @components;
117 if (!defined $instructorArgument) { 117 if (!defined $instructorArgument) {
118 return WeBWorK::ContentGenerator::Instructor::Index->new($r, $ce, $db)->go; 118 return WeBWorK::ContentGenerator::Instructor::Index->new($r, $ce, $db)->go;
119 } elsif ($instructorArgument eq "userList") { 119 } elsif ($instructorArgument eq "users") {
120 return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go; 120 return WeBWorK::ContentGenerator::Instructor::UserList->new($r, $ce, $db)->go;
121 } elsif ($instructorArgument eq "problemSetList") { 121 } elsif ($instructorArgument eq "sets") {
122 my $setID = shift @components;
123 if (defined $setID) {
124 return WeBWorK::ContentGenerator::Instructor::ProblemSetEditor->new($r, $ce, $db)->go($setID);
125 } else {
122 return WeBWorK::ContentGenerator::Instructor::ProblemSetList->new($r, $ce, $db)->go; 126 return WeBWorK::ContentGenerator::Instructor::ProblemSetList->new($r, $ce, $db)->go;
123 } elsif ($instructorArgument eq "problemSetEditor") { 127 }
124 return WeBWorK::ContentGenerator::Instructor::ProblemSetEditor->new($r, $ce, $db)->go(@components);
125 } elsif ($instructorArgument eq "pgProblemEditor") { 128 } elsif ($instructorArgument eq "pgProblemEditor") {
126 return WeBWorK::ContentGenerator::Instructor::PGProblemEditor->new($r, $ce, $db)->go(@components); 129 return WeBWorK::ContentGenerator::Instructor::PGProblemEditor->new($r, $ce, $db)->go(@components);
127 } 130 }
128 } elsif ($arg eq "options") { 131 } elsif ($arg eq "options") {
129 return WeBWorK::ContentGenerator::Options->new($r, $ce, $db)->go; 132 return WeBWorK::ContentGenerator::Options->new($r, $ce, $db)->go;
Legend:
Removed from v.986  
changed lines
  Added in v.995
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9