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;
|
