[WWcvs] webwork-modperl: Use base64 to save answers -- this ensures that symbols

[Mike G. <ga...@de...>]

Log Message:
-----------
Use base64 to save answers -- this ensures that symbols
in the answer won't cause trouble.  I have added a string
to the beginning of the encoded passage:

base64_encoded:AFDWERADADFRET

-- Mike

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK:
        Utils.pm

Revision Data
-------------
Index: Utils.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/Utils.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -Llib/WeBWorK/Utils.pm -Llib/WeBWorK/Utils.pm -u -r1.61 -r1.62
--- lib/WeBWorK/Utils.pm
+++ lib/WeBWorK/Utils.pm
@@ -31,8 +31,6 @@
 use Date::Format;
 use Time::Zone;
 use MIME::Base64;
-#use Date::Manip;
-#use DateTime::Format::DateManip;
 use Errno;
 use File::Path qw(rmtree);
 use Carp;
@@ -650,11 +648,15 @@
 		$result .= defined $ref ? $ref : '<font color="red">undef</font>';
 	}	
 }
-
+use constant BASE64_ENCODED => 'base64_encoded:';
 sub decodeAnswers($) {
 	my $string = shift;
-	$string = decode_base64($string);
 	return unless defined $string and $string;
+	if ($string =~/^BASE64_ENCODED/) {
+		$string =~ s/^BASE64_ENCODED//;
+		$string = decode_base64($string);
+	}
+
 	my @array = split m/##/, $string;
 	$array[$_] =~ s/\\#\\/#/g foreach 0 .. $#array;
 	push @array, "" if @array%2;
@@ -681,7 +683,9 @@
 		$string .= "$name##$value##"; # this is also not my fault
 	}
 	$string =~ s/##$//; # remove last pair of hashs
-	$string = encode_base64($string);
+
+	$string = BASE64_ENCODED.encode_base64($string);
+
 	return $string;
 }