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

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

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

Revision 667 Revision 670
… …
23use WeBWorK::ContentGenerator::Hardcopy; 23use WeBWorK::ContentGenerator::Hardcopy;
24use WeBWorK::ContentGenerator::Options; 24use WeBWorK::ContentGenerator::Options;
25use WeBWorK::ContentGenerator::Problem; 25use WeBWorK::ContentGenerator::Problem;
26use WeBWorK::ContentGenerator::ProblemSet; 26use WeBWorK::ContentGenerator::ProblemSet;
27use WeBWorK::ContentGenerator::ProblemSets; 27use WeBWorK::ContentGenerator::ProblemSets;
28use WeBWorK::ContentGenerator::Professor;
28use WeBWorK::ContentGenerator::Test; 29use WeBWorK::ContentGenerator::Test;
29use WeBWorK::CourseEnvironment; 30use WeBWorK::CourseEnvironment;
30 31
31# This module should be installed as a Handler for the location selected for 32# This module should be installed as a Handler for the location selected for
32# WeBWorK on your webserver. Here is an example of a stanza that can be added 33# WeBWorK on your webserver. Here is an example of a stanza that can be added
… …
117 my $hardcopyArgument = shift @components; 118 my $hardcopyArgument = shift @components;
118 $hardcopyArgument = "" unless defined $hardcopyArgument; 119 $hardcopyArgument = "" unless defined $hardcopyArgument;
119 # *** can i say go(shift || "") here? 120 # *** can i say go(shift || "") here?
120 return WeBWorK::ContentGenerator::Hardcopy->new($r, $course_env)->go($hardcopyArgument); 121 return WeBWorK::ContentGenerator::Hardcopy->new($r, $course_env)->go($hardcopyArgument);
121 } elsif ($arg eq "prof") { 122 } elsif ($arg eq "prof") {
122 # *** write a quick module that redirects to the old system's prof pages. 123 return WeBWorK::ContentGenerator::Professor->new($r, $course_env)->go;
123 # *** also, we should find a way to prevent
124 } elsif ($arg eq "options") { 124 } elsif ($arg eq "options") {
125 return WeBWorK::ContentGenerator::Options->new($r, $course_env)->go; 125 return WeBWorK::ContentGenerator::Options->new($r, $course_env)->go;
126 } elsif ($arg eq "feedback") { 126 } elsif ($arg eq "feedback") {
127 return WeBWorK::ContentGenerator::Feedback->new($r, $course_env)->go; 127 return WeBWorK::ContentGenerator::Feedback->new($r, $course_env)->go;
128 } elsif ($arg eq "logout") { 128 } elsif ($arg eq "logout") {
Legend:
Removed from v.667  
changed lines
  Added in v.670
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9