Menu
▾
▴
[WWcvs] webwork2: Changes fixing a problem that prevented a new problem from
|
From: Mike G. v. a. <we...@ma...> - 2005-02-17 18:15:47
|
Log Message:
-----------
Changes fixing a problem that prevented a new problem from being added to a set.
Tags:
----
rel-2-1-patches
Modified Files:
--------------
webwork2/lib/WeBWorK/ContentGenerator/Instructor:
PGProblemEditor.pm
Revision Data
-------------
Index: PGProblemEditor.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm,v
retrieving revision 1.48.2.1
retrieving revision 1.48.2.2
diff -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -u -r1.48.2.1 -r1.48.2.2
--- lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
@@ -31,6 +31,7 @@
use Apache::Constants qw(:common REDIRECT);
use HTML::Entities;
use URI::Escape;
+use WeBWorK::Utils;
use WeBWorK::Utils::Tasks qw(fake_set fake_problem);
###########################################################
@@ -346,7 +347,8 @@
my $targetSetName = $r->param('target_set');
my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem",
- courseID => $courseName, setID => $targetSetName, problemID => scalar($r->db->listGlobalProblems($targetSetName))
+ courseID => $courseName, setID => $targetSetName,
+ problemID => WeBWorK::Utils::max( $r->db->listGlobalProblems($targetSetName))
);
$viewURL = $self->systemLink($problemPage,
params => {
@@ -952,7 +954,7 @@
($action eq 'add_problem_to_set') and do {
my $sourceFile = $editFilePath;
my $targetSetName = $r->param('target_set');
- my $freeProblemID = WeBWorK::Utils::max($db->listGlobalProblems($setName)) + 1;
+ my $freeProblemID = WeBWorK::Utils::max($db->listGlobalProblems($targetSetName)) + 1;
$sourceFile =~ s|^$ce->{courseDirs}->{templates}/||;
my $problemRecord = $self->addProblemToSet(
setName => $targetSetName,
|
