[WWcvs] webwork-modperl: Modifications that set problems with path

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Modifications that set problems with path .../Library/setFoo/problemBar to reference the "Library" component in 
bugzilla.

Also the problemSeed is added to the url sent to bugzilla e.g.

/webwork/shared-courses/gage_course_single_sql/templates/rochesterLibrary/setMAAtutorial/simplemultiplechoiceexample.pg_with_problemSeed=4655

this means that you can't click on the link, but it automatically includes a seed which might be helpful.
It is not guaranteed that this the seed that caused problems -- that depends on how the
bug is submitted -- but it is often the case that this seed caused the problem.

-- Mike

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        PGProblemEditor.pm

Revision Data
-------------
Index: PGProblemEditor.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm,v
retrieving revision 1.62
retrieving revision 1.63
diff -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -u -r1.62 -r1.63
--- lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
@@ -423,11 +423,23 @@
     # Construct url for reporting bugs:
 	#########################################################################
 
-	$editFilePath =~ m|([^/]*)Library|;    #find the path to the file
-	my $libraryName = $1;                  # find the library, if any exists in the path name (first library is picked)
-	$libraryName ='rochester' unless defined($libraryName) and $libraryName =~/\S/; # default library
-	
-    my $BUGZILLA = "http://bugs.webwork.rochester.edu/enter_bug.cgi?product=Problem%20libraries&component=$libraryName&bug_file_loc=$editFilePath";
+# 	$editFilePath =~ m|([^/]*)Library|;    #find the path to the file
+# 	my $libraryName = $1;                  # find the library, if any exists in the path name (first library is picked)
+# 	$libraryName ='rochester' unless defined($libraryName) and $libraryName =~/\S/; # default library
+	my $libraryName = '';
+	if ($editFilePath =~ m|([^/]*)Library|)   {  #find the path to the file
+		# find the library, if any exists in the path name (first library is picked)
+		my $tempLibraryName = $1;
+		$libraryName = ( defined($tempLibraryName) and $tempLibraryName =~/\S/ ) ? 
+		                $tempLibraryName : "Library"; 
+		# things that start /Library/setFoo/probBar  are labeled as component "Library"
+		# which refers to the SQL based problem library. (is nationalLibrary a better name?)
+	} else {
+		$libraryName = 'rochester';  # make sure there is some default component defined.
+	}
+
+    my $BUGZILLA = "http://bugs.webwork.rochester.edu/enter_bug.cgi?product=Problem%20libraries".
+                   "&component=$libraryName&bug_file_loc=${editFilePath}_with_problemSeed=".$self->{problemSeed};
 	#FIXME  # The construction of this URL is somewhat fragile.  A separate module could be devoted to intelligent reporting of bugs.
     
 	#########################################################################