[WWcvs] webwork2: Changed join("\0", ....) to join(\0, ....) since I'm pretty sure that what was desired was a string separated by

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

Log Message:
-----------
Changed   join("\0",....)  to join(\0, ....) since I'm pretty sure that what was desired
was a string separated by nulls.   If one of the items in the list began with a number  eg 14
you would get    \014....\0name...\0   etc.  I think \0name evaluates properly but I'm pretty
sure that \014 does not.

Modified Files:
--------------
    webwork2/lib/WeBWorK:
        Form.pm
    webwork2/lib/WeBWorK/ContentGenerator:
        Problem.pm
        ProblemSet.pm

Revision Data
-------------
Index: Form.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/Form.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -Llib/WeBWorK/Form.pm -Llib/WeBWorK/Form.pm -u -r1.7 -r1.8
--- lib/WeBWorK/Form.pm
+++ lib/WeBWorK/Form.pm
@@ -174,7 +174,7 @@
 	my $self = shift;
 	my %varsFormat = ();
 	foreach my $key ($self->param) {
-		$varsFormat{$key} = join "\0", $self->param($key);
+		$varsFormat{$key} = join \0, $self->param($key);
 	}
 	
 	return %varsFormat;	
Index: Problem.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm,v
retrieving revision 1.212
retrieving revision 1.213
diff -Llib/WeBWorK/ContentGenerator/Problem.pm -Llib/WeBWorK/ContentGenerator/Problem.pm -u -r1.212 -r1.213
--- lib/WeBWorK/ContentGenerator/Problem.pm
+++ lib/WeBWorK/ContentGenerator/Problem.pm
@@ -493,7 +493,7 @@
 
 		my $publishedClass = ($set->published) ? "Published" : "Unpublished";
 		my $publishedText = ($set->published) ? "visible to students." : "hidden from students.";
-		$self->addmessage(CGI::p("This set is " . CGI::font({class=>$publishedClass}, $publishedText)));
+		$self->addmessage(CGI::span("This set is " . CGI::font({class=>$publishedClass}, $publishedText)));
 
   # test for additional problem validity if it's not already invalid
         } else {
Index: ProblemSet.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v
retrieving revision 1.89
retrieving revision 1.90
diff -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -u -r1.89 -r1.90
--- lib/WeBWorK/ContentGenerator/ProblemSet.pm
+++ lib/WeBWorK/ContentGenerator/ProblemSet.pm
@@ -74,7 +74,7 @@
 
 	my $publishedText = ($set->published) ? "visible to students." : "hidden from students.";
 	my $publishedClass = ($set->published) ? "Published" : "Unpublished";
-	$self->addmessage(CGI::p("This set is " . CGI::font({class=>$publishedClass}, $publishedText))) if $authz->hasPermissions($userName, "view_unpublished_sets");
+	$self->addmessage(CGI::span("This set is " . CGI::font({class=>$publishedClass}, $publishedText))) if $authz->hasPermissions($userName, "view_unpublished_sets");
 
 	$self->{userName}        = $userName;
 	$self->{user}            = $user;