[WWcvs] webwork2: PGProblemEditor.pm: protect against undefined globalSets, e.g., when editing a problem in the Library Browser.

[Gavin L. v. a. <we...@ma...>]

Log Message:
-----------
PGProblemEditor.pm: protect against undefined globalSets, e.g., when
editing a problem in the Library Browser.

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.93
retrieving revision 1.94
diff -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -u -r1.93 -r1.94
--- lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
@@ -1210,7 +1210,7 @@
 		my $globalSet = $self->r->db->getGlobalSet( $setName );
 
 		my $problemPage;
-		if ( $globalSet->assignment_type =~ /gateway/ ) {
+		if ( defined($globalSet) && $globalSet->assignment_type =~ /gateway/ ) {
 			$problemPage = $self->r->urlpath->newFromModule("WeBWorK::ContentGenerator::GatewayQuiz",
 			courseID => $courseName, setID => "Undefined_Set");
 			# courseID => $courseName, setID => $fullSetName);
@@ -1472,7 +1472,7 @@
 		# we need to know if the set is a gateway set to determine the redirect
 		my $globalSet = $self->r->db->getGlobalSet( $setName );
 		my $problemPage;
-		if ( $globalSet->assignment_type =~ /gateway/ ) {
+		if ( defined( $globalSet) && $globalSet->assignment_type =~ /gateway/ ) {
 			$problemPage = $self->r->urlpath->newFromModule("WeBWorK::ContentGenerator::GatewayQuiz",
 			courseID => $courseName, setID => "Undefined_Set");
 			# courseID => $courseName, setID => $fullSetName);