| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK.pm,v 1.51 2004/03/15 02:25:11 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK.pm,v 1.52 2004/03/15 20:17:33 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. |
| … | |
… | |
| 149 | foreach my $key ($r->param) { |
149 | foreach my $key ($r->param) { |
| 150 | debug("\t$key\n"); |
150 | debug("\t$key\n"); |
| 151 | debug("\t\t$_\n") foreach $r->param($key); |
151 | debug("\t\t$_\n") foreach $r->param($key); |
| 152 | } |
152 | } |
| 153 | |
153 | |
| 154 | mungeParams($r); |
154 | #mungeParams($r); |
| 155 | |
155 | |
| 156 | debug("The munged params:\n"); |
156 | debug("The munged params:\n"); |
| 157 | foreach my $key ($r->param) { |
157 | foreach my $key ($r->param) { |
| 158 | debug("\t$key\n"); |
158 | debug("\t$key\n"); |
| 159 | debug("\t\t$_\n") foreach $r->param($key); |
159 | debug("\t\t$_\n") foreach $r->param($key); |
Parent Directory
| 
Revision Log
| 
Patch