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.
#########################################################################
|
