[WWcvs] webwork2: Rolling back previous change of "\0 to \0 until further checking is done.

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

Log Message:
-----------
Rolling back previous change of "\0 to \0 until further checking is done.

Modified Files:
--------------
    webwork2/lib/WeBWorK:
        Form.pm

Revision Data
-------------
Index: Form.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/Form.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -Llib/WeBWorK/Form.pm -Llib/WeBWorK/Form.pm -u -r1.8 -r1.9
--- lib/WeBWorK/Form.pm
+++ lib/WeBWorK/Form.pm
@@ -170,11 +170,20 @@
 # supported is being called in scalar context, which in CGI.pm returned a
 # tied hashref to the original form data.  WeBWorK didn't need that, so I
 # didn't add it.  If you're feeling industrious...
+
+#FIXME?  I originally 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.
+#
+# Then I backed out of the change until this gets checked more thoroughly by Sam
+# -- Mike
+
 sub Vars {
 	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;