| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork2/lib/WeBWorK/Request.pm,v 1.6 2006/06/30 18:47:09 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/Request.pm,v 1.7 2006/07/15 14:23:38 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 42 | } |
42 | } |
| 43 | } |
43 | } |
| 44 | |
44 | |
| 45 | # Apache2::Request's param method doesn't support setting parameters, so we need to provide the |
45 | # Apache2::Request's param method doesn't support setting parameters, so we need to provide the |
| 46 | # behavior in this class if we're running under mod_perl2. |
46 | # behavior in this class if we're running under mod_perl2. |
|
|
47 | # FIXME it would be more efficient to copy the whole param list into this class. |
| 47 | BEGIN { |
48 | BEGIN { |
| 48 | if (MP2) { |
49 | if (MP2) { |
| 49 | *param = sub { |
50 | *param = sub { |
| 50 | my $self = shift; |
51 | my $self = shift; |
| 51 | if (@_ == 0) { |
52 | if (@_ == 0) { |