| 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/ContentGenerator/Problem.pm,v 1.147 2004/06/26 16:12:16 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.148 2004/06/28 14:26:10 jj 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. |
| … | |
… | |
| 134 | my $globalProblem = $db->getGlobalProblem($setName, $problemNumber); # checked |
134 | my $globalProblem = $db->getGlobalProblem($setName, $problemNumber); # checked |
| 135 | # if the global problem doesn't exist either, bail! |
135 | # if the global problem doesn't exist either, bail! |
| 136 | if(not defined $globalProblem) { |
136 | if(not defined $globalProblem) { |
| 137 | my $sourceFilePath = $r->param("sourceFilePath"); |
137 | my $sourceFilePath = $r->param("sourceFilePath"); |
| 138 | # These are problems from setmaker. If declared invalid, they won't come up |
138 | # These are problems from setmaker. If declared invalid, they won't come up |
| 139 | #$self->{invalidProblem} = $self->{invalidSet} = 1 if defined $sourceFilePath; |
139 | $self->{invalidProblem} = $self->{invalidSet} = 1 unless defined $sourceFilePath; |
| 140 | # die "Problem $problemNumber in set $setName does not exist" unless defined $sourceFilePath; |
140 | # die "Problem $problemNumber in set $setName does not exist" unless defined $sourceFilePath; |
| 141 | $problem = fake_problem($db); |
141 | $problem = fake_problem($db); |
| 142 | $problem->problem_id(1); |
142 | $problem->problem_id(1); |
| 143 | $problem->source_file($sourceFilePath); |
143 | $problem->source_file($sourceFilePath); |
| 144 | $problem->user_id($effectiveUserName); |
144 | $problem->user_id($effectiveUserName); |